Лабораторная работа №9 по программированию

Лабораторная №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.

Ответ:

Ссылка на основную публикацию
Open

Close
Adblock detector