Logo GenDocs.ru

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

Загрузка...

Вариант 13 - файл Лаба №4.doc


Вариант 13
скачать (7.3 kb.)

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

Лаба №4.doc49kb.08.11.2007 19:04скачать


Лаба №4.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.







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

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

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