Программирование на Pascal / Delphi / Лабораторная работа №4. Вариант 7

ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФЕССИОНАЛЬНОГО ОБРАЗОВАНИЯ

УФИМСКИЙ ГОСУДАРСТВЕННЫЙ АВИАЦИОННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

Кафедра экономической информатики

ОТЧЁТ ПО ЛАБОРАТОРНОЙ РАБОТЕ №3

МАССИВЫ

ВАРИАНТ№7

Выполнила: студентка I курса ЭУП-129

Кочеткова А.А.

Проверила: Лысенко И.А.

Программа №2;

program lab42;

uses Crt;

type PR=array[1..3,1..3]of integer;

Nazv=array[1..3] of string[6];

var r:PR;

nv:Nazv;

i,j:integer; S,sred:real;

begin

ClrScr;

for i:=1 to 3 do

begin

writeln('vvedite nazvanie ' ,i,'-ogo zavoda');

readln(nv[i,j]); begin S:=0;

end;

for j:=1 to 3 do begin

writeln('vvedite kolichestvo produkcii za ' ,j,'-yii mesjac');

readln(r[1,j]);

S:=S+r[1,j];

end;

writeln('vsego S= ',S:8:2);

begin sred:=S/3; writeln('srednemesyachnoe kolichestvo- ',sred:8:2);

end;

end;

readln;

end.

Блок-схема к программе 2.

Программа №1;

program Bank;

uses Crt;

const

Name : array[1..12] of string = ('Jan', 'Feb', 'Mar', 'Apr', 'May',

'Jun', 'Jul', 'Aug', 'Sep', 'Oct',

'Nov', 'Dec');

Day : array[1..12] of byte = (31, 28, 31, 30, 31, 30, 31, 31,

30, 31, 30, 31);

var

stavka : real;

i : integer;

Month: array[0..12] of real;

begin

clrscr;

Month[0]:=1500;

write('Procent: ');

readln(stavka);

for i:=1 to 12 do

begin

Month[i]:=Month[i-1] + (Month[i-1]*stavka*Day [i]/365/100);

writeln(Name[i],' - ',Month[i]:2:2);

end;

readln;

end.

УФА 2

Цель работы.

Изучить принципы работы с одно- и двумерными массивами на языке программирования Pascal. Получение навыков применения основных алгоритмов для решения задач с использованием массивов.

Задание.

Исходные данные необходимо оформить в виде массива. При выполнении задания ввод исходных данных и вывод результатов сопровождать комментариями (какие данные нужно ввести и что получается в результате).

1)Известен годовой процент на вклад с капитализацией (начисление процентов ежемесячно). Определить, сколько денег получит вкладчик в конце года, если на 1 января сумма вклад составляла 1500руб. В качестве результата вывести сумму вклада на конец каждого месяца.

2)Известно количество выпущенной продукции тремя заводами за первый квартал (помесячно). Найти среднемесячное количество выпущенной продукции каждого завода.

Вывод.

В этой работе мы изучили принципы работы с одно- и двумерными массивами на языке программирования Pascal, получили навыки применения основных алгоритмов для решения задач с использованием массивов.

Блок-схема к программе 1.