Студопедія
рос | укр

Головна сторінка Випадкова сторінка


КАТЕГОРІЇ:

АвтомобіліБіологіяБудівництвоВідпочинок і туризмГеографіяДім і садЕкологіяЕкономікаЕлектронікаІноземні мовиІнформатикаІншеІсторіяКультураЛітератураМатематикаМедицинаМеталлургіяМеханікаОсвітаОхорона праціПедагогікаПолітикаПравоПсихологіяРелігіяСоціологіяСпортФізикаФілософіяФінансиХімія






Тема 21. Гарантії прав і свобод людини і громадянина


Дата добавления: 2015-10-19; просмотров: 1806



Задание. Задан двумерный массив С из 4-х строк и 4-х столбцов (квадратная матрица). Составить программу подсчёта суммы всех элементов массива и произведения отрицательных элементов.

Решение. 1.Блок-схема решения задачи приведена на рисунке.

Рисунок 5.1

 
 

 


2. Текст программы.

 

program p4;

const n=4;

var c:array [1..4,1..4] of real;

S,P:real;

i,j:integer;

begin

for i:=1 to n do

for j:=1 to n do

begin

write('Введите c[',i,',',j,']=');

readln(c[i,j]);

end;

S:=0;

P:=1;

writeln('Исходный массив С');

for i:=1 to n do begin

for j:=1 to n do

write(c[i,j]:6:2);

writeln;

end;

for i:=1 to n do

for j:=1 to n do begin

S:=S+c[i,j];

if c[i,j]<0 then P:=P*c[i,j];

end;

writeln('Сумма S=',s:7:2,' Произведение P=',P:7:2);

readln;

end.

 

3.Результат выполнения контрольного примера.

 

Исходный массив С

2.00 -5.90 5.00 -65.00

-3.98 0.00 8.00 76.40

23.70 1.34 -9.00 1.00

4.00 7.40 1.00 8.00

Сумма S= 53.96 Произведение P= 13736.97


Задания к лабораторной работе № 6

Тема: Подпрограммы.

Задание. Составить программу на языке Паскаль для вычисления значения функции y = f (x) в точках x при заданных значениях a. Нахождение значения функции f(x) при заданных значениях а оформить в виде подпрограммы. Результат вывести в виде двумерной таблицы.

Варианты заданий

Таблица 6.1


<== предыдущая лекция | следующая лекция ==>
Класифікація | В юридичній літературі розрізняють соціально-економічні, політичні та юридичні гарантії.
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | <== 21 ==> | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 |
Studopedia.info - Студопедия - 2014-2024 год . (0.198 сек.) російська версія | українська версія

Генерация страницы за: 0.198 сек.
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7