Записи (решебник)

tux 2013.04.30 Решебник https://tux.org.ua/?p=2670 2008 0

Решение типовых задач по теме «процедуры и функции». Решение производилось с использованием Free Pascal, в качестве IDE использовался Geany. Задачи из сборника Абрамова отмечены соответствующим номером.

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

Type wed=record {Тип wed включает 3 поля: n, fio, bal}
	n:integer;
	fio:string[40] ;
	bal:array [1..3] of integer {Поле bal – массив из 3 оценок }
end;
Var spisok:wed; {Запись spicok типа wed}
	i,j,kol,s:integer;
	sr:real;
BEGIN
	kol:=0; {kol- количество отличников}
	With spisok do {with присоединяет имя записи spisok ко всем }
		For i:=1 to 3 do { полям внутри цикла For по i }
			begin
				n:=i;
				Write (' Введите ФИО » ', i ,' ');
				Readln (fio);
				s:=0;
				For j:= 1 to 3 do
					begin
						write (' Введите оценку » ');
						readln (bal[j]);
						s:=s+bal[j];
					end;
				if s=15 then kol:=kol+1; {подсчет количества отличников}
				sr:=s/3;
				writeln(fio, ', Средний бал = ', sr:4:1);
			end;
	writeln('Количество отличников = ', kol);
END.

Type wed=record {Тип wed включает 3 поля: n, fio, bal}

n:integer;

fio:string[40] ;

bal:array [1..3] of integer {Поле bal – массив из 3 оценок }

end;

Var spisok:wed; {Запись spicok типа wed}

i,j,kol,s:integer;

sr:real;

BEGIN

kol:=0; {kol- количество отличников}

With spisok do {with присоединяет имя записи spisok ко всем }

For i:=1 to 3 do { полям внутри цикла For по i }

begin

n:=i;

Write (' Введите ФИО » ', i ,' ');

Readln (fio);

s:=0;

For j:= 1 to 3 do

begin

write (' Введите оценку » ');

readln (bal[j]);

s:=s+bal[j];

end;

if s=15 then kol:=kol+1; {подсчет количества отличников}

sr:=s/3;

writeln(fio, ', Средний бал = ', sr:4:1);

end;

writeln('Количество отличников = ', kol);

END.

pascal, программирование, решебник

Процедуры и функции (решебник)

#:

Записи (решебник)

Похожие материалы:

Оставить комментарий