Самостоятельная работа "Модуль CRT" Средствами модуля CRT составить тест на любую тему, состоящий из трех вопросов (в каждом вопросе по 3 варианта ответа) и выставляющий оценку по окончании.
2. Подберите подходящий тип данных: a) Количество учеников в классе – integer, word, byte b)Заработанная плата сотрудника фирмы- real, double c) Фамилия сотрудника фирмы – string
3.Запишите арифметические выражения на языке программирования Паскаль: a) ac-b+xyz = a*c-b+x*y*z; в) a*x^2+b*x+c = a*x*x+b*x+c; c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);
4) Напишите инструкцию вывода на экран: а) Вашего имени = write('Ваше имя'); В) Число 400 = write(400); С) Значение выражения x+y = write(x+y);
Var SurName : Array [1..30] of String; Mark : Array [1..30] of Real; Cand : Array [1..30] of String; NPupil, K : Integer;
BEGIN Write('Сколько всего учеников ? '); ReadLn(NPupil); WriteLn('Введите фамилии и оценки учеников :'); For var i := 1 to NPupil do begin Write(i, '. Фамилия - '); ReadLn(SurName[i]); Write(' Оценка - '); ReadLn(Mark[i]); end; WriteLn; K:=0; For var i := 1 to NPupil do If Mark[i]=2 then begin K:=K+1; Cand[K] := SurName[i] end; If K=0 then WriteLn('В КЛАССЕ НЕТ ДВОЕЧНИКОВ.') else begin WriteLn('ДВОЕЧНИКИ :'); For var i := 1 to K do WriteLn( i, '. ' , Cand[i]); end; END.
+ 1) RAZMER
+ 2)_Beta
- 3) 5 ABC
+ 4) Y22M
2. Подберите подходящий тип данных:
a) Количество учеников в классе – integer, word, byte
b)Заработанная плата сотрудника фирмы- real, double
c) Фамилия сотрудника фирмы – string
3.Запишите арифметические выражения на языке программирования Паскаль:
a) ac-b+xyz = a*c-b+x*y*z;
в) a*x^2+b*x+c = a*x*x+b*x+c;
c) (a-b)x+3/y+z = (a-b)*x+3/(y+z);
4) Напишите инструкцию вывода на экран:
а) Вашего имени = write('Ваше имя');
В) Число 400 = write(400);
С) Значение выражения x+y = write(x+y);