Logo GenDocs.ru

Поиск по сайту:  

Загрузка...

Вариант 7 - файл 1.doc


Вариант 7
скачать (53.5 kb.)

Доступные файлы (1):

1.doc54kb.15.12.2011 21:32скачать

содержание
Загрузка...

1.doc

Реклама MarketGid:
Загрузка...
ФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ

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

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


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


ОТЧЁТ ПО ЛАБОРАТОРНОЙ РАБОТЕ №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.


Скачать файл (53.5 kb.)

Поиск по сайту:  

© gendocs.ru
При копировании укажите ссылку.
обратиться к администрации