Номер 1 Найдите соответствия:
1 program p2 1Процедура вывода на экран
2 var a,b,c:integer 2Процедура ввода с клавиатуры
3 begin 3 Заголовок программ
4 realdnl (a,b) 4 Конец раздела операторов
5 c:=a+b 5 Раздел операторов
6 writeln ('c=',c); 6 Оператор присваивания
7 end 7 Начало раздела операторов
Номер 2
Что будет выведено на экран в результате выполнения первого задания ,если с клавиатуры вывести 7 3 ?
Что означает найденная величина?
Номер 3
Из задания номер один выпишите лексические единицы :
1Ключевые слова
2Индефекаторы
3Строки символов
Номер 4
Составьте из символов f 4 5 .E a 9 по два примера лексических единиц:
1 целые числа
2 вещественые числа
3 индификаторы
4 строки символов
Номер 5
Напишите на языке Паскаля выражение:
2а (во второй степени)+с
- с (во второй ст)
а+5с
Номер 6
Написать программу ,которая находит пересмотр и площадь ,если с клавиатуры вводят длины сторон .
// Внимание! Если программа не работает, обновите версию!
type
CheckBalls=class
private
ad:array of real; // диаметры шариков
ap:array of real; // веса шариков
etD:=24.0; // эталонный диаметр
derD:=2.0; // эталонное предельное отклонение
etP:=74.0; // эталонный вес
derP:=3.0; // эталонное предельное отклонение
procedure CheckBall(m:integer);
// проверка шарика с указанным номером
begin
Write('Шарик № ',m,': диаметр - ');
if Abs(aD[m-1]-etD)<=derD then Write('норма')
else Write('брак');
Write(', вес - ');
if Abs(aP[m-1]-etP)<=derP then Writeln('норма')
else Writeln('брак')
end;
public
constructor(ma,mp:array of real);
begin
ad:=Copy(ma);
ap:=Copy(mp);
end;
procedure CheckAllBalls;
begin
for var i:=1 to ad.Length do CheckBall(i)
end;
end;
begin
var n:=120; // число шариков
var a:=SeqRandom(n,200,280).Select(t->t/10).ToArray;
var b:=SeqRandom(n,700,800).Select(t->t/10).ToArray;
Writeln('Параметры шариков (диаметр,вес):');
a.Zip(b,(p,q)->(p,q)).Println;
Writeln('Результаты контроля:');
var oL:=new CheckBalls(a,b);
oL.CheckAllBalls
end.