Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

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

Пример решения задачи | Задание 2. Вложенные ветвления | Пример решения задачи | Задание 3. Оператор выбора | Пример решения задачи | Задачи повышенной сложности | Лабораторная работа № 3 | Пример решения задачи | Задания к лабораторной работе № 4 | Пример решения задачи |


Читайте также:
  1. I Всебелорусский съезд (конгресс) в Минске в декабре 1917 г. и его решения. Провозглашение Белорусской народной республики и ее уставные грамоты
  2. I. ЗАДАЧИ КОМИССИЙ ПО ДЕЛАМ НЕСОВЕРШЕННОЛЕТНИХ И ПОРЯДОК ИХ ОРГАНИЗАЦИИ
  3. I. ОСНОВНЫЕ ЗАДАЧИ ОРГАНОВ НАРОДНОГО КОНТРОЛЯ
  4. I.ЗАДАЧИ НАБЛЮДАТЕЛЬНЫХ КОМИССИЙ И ПОРЯДОК ИХ ОРГАНИЗАЦИИ
  5. II. ОСНОВНЫЕ ЗАДАЧИ НА 1938 ГОД
  6. II. ЦЕЛИ И ЗАДАЧИ
  7. II. Цели и задачи конкурса

Задание. Задан двумерный массив С из 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



Дата добавления: 2015-07-11; просмотров: 56 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Задания к лабораторной работе № 5| Задания к лабораторной работе № 6

mybiblioteka.su - 2015-2024 год. (0.005 сек.)