Лабораторная №9.
Задание 1.
Написать программу, которая обрабатывает результаты экзамена. Для каждой оценки программа должна вычислить процент от общего количества оценок.
Program z1;
Var T:array[1..4] of real;
Var i:integer;
var s:real;
Begin
writeln (‘Обработка результатов экзамена.’);
Writeln (‘Введите исходные данные.’);
Writeln (‘пятерок:’);
Read(T[1]);
Writeln (‘четверок:’);
Read(T[2]);
Writeln (‘троек:’);
Read(T[3]);
Writeln (‘двоек:’);
Read(T[4]);
writeln (‘Результаты экзамена.’);
s:=T[1]+T[2]+T[3]+T[4];
For i:=1 to 4 do
T[i] :=(t[i]/s)*100;
Writeln (‘пятерок=’, T[1]:5:2, ‘%’);
Writeln (‘четверок=’, T[2]:5:2, ‘%’);
Writeln (‘троек=’,T[3]:5:2, ‘%’);
Writeln (‘Двоек=’,T[4]:5:2, ‘%’);
End.
Ответ:
Задание 2.
Написать программу, которая определяет количество учеников в классе, чей рост превышает средний.
program z2;
var x:array[1..100] of integer;
y,k,t:real;
s,n,i:integer;
begin
t:=0;
s:=0;
writeln(‘анализ роста учеников’);
writeln(‘Введите количество учеников:’);
readln(n);
writeln(Введите рост учеников в сантиметрах:’);
for i:=1 to n do
begin
readln(x[i]);
s:=s+x[i];
end;
k:=s/n;
for i:=1 to n do
begin
if x[i]>k then t:=t+1
end;
writeln(‘Средний рост: ‘,k,’ ñì.’);
writeln(‘Ó ‘,t,’ человек рост превышает средний ‘);
end.
Ответ:
Задание 3.
Дан массив из десяти целых чисел:{2;-3;5;0;7;-4;1;-1;-6;9}
program z3;
var a:array[1..10] of integer;
i,s:integer;
Begin
s:=1;
for i:=1 to 10 do Begin
write (‘a[i]= ‘);
readln (a[i]);
if a[i]<>0 then s:=s*a[i];
end;
writeln (‘произведение нулевых элементов =’,s);
end.
Ответ:
Задание 4.
Написать программу, которая «задумывает» число в диапазоне от 0 до 9 и предлагает пользователю угадать число за 5 попыток.
program z4;
label m1;
var
y,k,t,x:real;
s,n,i:integer;
begin
n:=5;
x:=random(9);
writeln(‘угадай число’);
writeln(‘Компьютер “Задумал” число от 0 до 9.’);
writeln(‘Угадай его за 5 попыток.’);
writeln(‘Введите число и нажмите «Enter» ‘);
for i:=1 to n do
begin
m1:
read(y);
if y=x then
begin
writeln(‘Вы выйграли! Поздровляю’); goto m1;
end
else writeln(‘Нет’);
end;
end.
Ответ:
