Программирование на Pascal / Delphi / Лабораторная работа №4. Вариант 13
.docФЕДЕРАЛЬНОЕ АГЕНСТВО ПО ОБРАЗОВАНИЮ
ГОСУДАРСТВЕННОЕ ОБРАЗОВАТЕЛЬНОЕ УЧРЕЖДЕНИЕ ВЫСШЕГО ПРОФИЛЬНОГО ОБРАЗОВАНИЯ
УФИМСКИЙ ГОСУДАРСТВЕННЫЙ АВИАЦИОННЫЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ
Кафедра экономической информатики
Отчет по лабораторной работе №4
Массивы
Вариант№13
Выполнила:
Проверила:.
Уфа 2007
Цель работы:
Изучить принципы работы с одно- и двумерными массивами на языке программирования Pascal. Получение навыков применения основных алгоритмов для решения задач с использованием массивов.
Задание:
1.Известен месячный план выпуска некоторой продукции и объемы выпущенной этой продукции заводом за год (помесячно). Определить, когда
завод перевыполнил план. Результат получить в виде: номер месяца и объем продукции, выпущенной сверх плана.
2. Известны результаты сдачи трех экзаменов десятью студентами. Найти средний балл каждого студента и общий средний балл. Точность среднего балла – два знака после запятой.
3.Создать блок-схемы
Программы:
1.
Program plan;
Uses crt;
Var
i,N,: integer;
pl,ob,ot: array[1..12] of real {pl-план, ob-объем, ot-отклонение}
Begin
Clrscr;
N:=12
For i:=1 to N do begin
Writeln(‘Введите план за месяц’,i,’объем за месяц’, i’);
Readln(pl[i],ob[i]);
Ot[i]:=ob[i]-pl[i];
End;
Writeln(‘План выполнен’);
For i:=1 to n do begin
If ot[i]>0 then writeln(‘Месяц-‘,I,’’,ot[i]:5:3’);
End;
End.
2.
Program lab4_2;
Uses crt;
Const n=3; m=10;
Label 1;
Var Fam,X:array[1..n] of string;
Y:array[1..n] of real;
Oc:array[1..n,1..m] of integer;
I,j,s:integer;
Begin
Clrscr;
S:=0;
For i:=1 to n do begin
Y[i]:=0;
Writeln(‘Введите фамилию ИО студента’);
Readln(fam[i]);
For j:=1 to m do begin
1:writeln(‘Введите оценку’,I,’ –го студента за’,j’ –ый экзамен’);
Readln(oc[I,j]);
If oc [I,j]>5 then begin writeln(‘Оценка введена не верно’); goto 1; end;
Y[i]:=y[i]+oc[I,j]; s:=s+oc[i,j];
End;
Y[i]:=y[i]/m;
End;
Writeln;
For i:=1 to n do begin
Writeln(‘fam[i],’ средний балл ‘,y[i]:2:1);
End;
Writeln(‘ Средний балл всего ‘, s/m/n:2:1);
End.