Урок информатики итоговый тест по окончанию 1 четверти для шестого класса https://onlinetestpad.com/ru/testview/186439-itogovyj-test-po-okonchaniyu-i-chetverti-dlya-6-klassa
type wind = record c: char; //направление ветра (с,ю,в,з) f: integer; //сила ветра end;
var a: array[1..n] of wind; i, nday: integer;
begin for i := 1 to n do begin write(i, ' - день направление ветра (с,ю,в,з)'); readln(a[i].c); write('сила ветра :'); readln(a[i].f); if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1; end; writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday); end.
Тестовое решение: 1 - день направление ветра (с,ю,в,з)с сила ветра :7 2 - день направление ветра (с,ю,в,з)с сила ветра :7 3 - день направление ветра (с,ю,в,з)ю сила ветра :6 4 - день направление ветра (с,ю,в,з)ю сила ветра :5 5 - день направление ветра (с,ю,в,з)ю сила ветра :4 6 - день направление ветра (с,ю,в,з)в сила ветра :4 7 - день направление ветра (с,ю,в,з)ю сила ветра :3 8 - день направление ветра (с,ю,в,з)в сила ветра :5 9 - день направление ветра (с,ю,в,з)з сила ветра :4 10 - день направление ветра (с,ю,в,з)ю сила ветра :3 Дней когда дул южный ветер с силой, не превышающей 4 м/с :3
//Задание 33 const n = 2; type student = record f: string; p1, p2, p3: integer; end;
var a: array[1..n] of student; m: array[1..n]of real; i: integer; s: real;
begin s := 0; for i := 1 to n do begin writeln('Введите фамилию ', i, ' ученика '); readln(a[i].f); writeln('оценки по 3 предметам '); readln(a[i].p1, a[i].p2, a[i].p3); if (a[i].p1 + a[i].p2 + a[i].p3) / 3 >= s then begin s := (a[i].p1 + a[i].p2 + a[i].p3) / 3; m[i] := s; end; end; if m[1] = m[2] then writeln('Средний учащихся одинаков') else if m[1] > m[2] then writeln(a[1].f, ' учится лучше') else writeln(a[2].f, ' учится лучше') end.
Тест №1 Введите фамилию 1 ученика Иванов оценки по 3 предметам 3 4 5 Введите фамилию 2 ученика Петров оценки по 3 предметам 4 4 4 Средний учащихся одинаков
Тест №2 Введите фамилию 1 ученика Иванов оценки по 3 предметам 3 4 4 Введите фамилию 2 ученика Петров оценки по 3 предметам 5 5 5 Петров учится лучше
//Задание 34 var a,b,c,min,max:integer; begin readln(a,b,c); min:=a; max:=a; if b<min then min:=b; if b>max then max:=b; if c<min then min:=c; if c>max then max:=c; writeln(max-min); end.
n = 10;
type
wind = record
c: char; //направление ветра (с,ю,в,з)
f: integer; //сила ветра
end;
var
a: array[1..n] of wind;
i, nday: integer;
begin
for i := 1 to n do
begin
write(i, ' - день направление ветра (с,ю,в,з)');
readln(a[i].c);
write('сила ветра :');
readln(a[i].f);
if (a[i].c = 'ю') and (a[i].f <= 4) then nday := nday + 1;
end;
writeln(' Дней когда дул южный ветер с силой, не превышающей 4 м/с :',nday);
end.
Тестовое решение:
1 - день направление ветра (с,ю,в,з)с
сила ветра :7
2 - день направление ветра (с,ю,в,з)с
сила ветра :7
3 - день направление ветра (с,ю,в,з)ю
сила ветра :6
4 - день направление ветра (с,ю,в,з)ю
сила ветра :5
5 - день направление ветра (с,ю,в,з)ю
сила ветра :4
6 - день направление ветра (с,ю,в,з)в
сила ветра :4
7 - день направление ветра (с,ю,в,з)ю
сила ветра :3
8 - день направление ветра (с,ю,в,з)в
сила ветра :5
9 - день направление ветра (с,ю,в,з)з
сила ветра :4
10 - день направление ветра (с,ю,в,з)ю
сила ветра :3
Дней когда дул южный ветер с силой, не превышающей 4 м/с :3
const
n = 2;
type
student = record
f: string;
p1, p2, p3: integer;
end;
var
a: array[1..n] of student;
m: array[1..n]of real;
i: integer;
s: real;
begin
s := 0;
for i := 1 to n do
begin
writeln('Введите фамилию ', i, ' ученика ');
readln(a[i].f);
writeln('оценки по 3 предметам ');
readln(a[i].p1, a[i].p2, a[i].p3);
if (a[i].p1 + a[i].p2 + a[i].p3) / 3 >= s then begin
s := (a[i].p1 + a[i].p2 + a[i].p3) / 3;
m[i] := s;
end;
end;
if m[1] = m[2] then writeln('Средний учащихся одинаков')
else if m[1] > m[2] then
writeln(a[1].f, ' учится лучше')
else writeln(a[2].f, ' учится лучше')
end.
Тест №1
Введите фамилию 1 ученика
Иванов
оценки по 3 предметам
3 4 5
Введите фамилию 2 ученика
Петров
оценки по 3 предметам
4 4 4
Средний учащихся одинаков
Тест №2
Введите фамилию 1 ученика
Иванов
оценки по 3 предметам
3 4 4
Введите фамилию 2 ученика
Петров
оценки по 3 предметам
5 5 5
Петров учится лучше
//Задание 34
var a,b,c,min,max:integer;
begin
readln(a,b,c);
min:=a; max:=a;
if b<min then min:=b;
if b>max then max:=b;
if c<min then min:=c;
if c>max then max:=c;
writeln(max-min);
end.