1. Ученик написал программу, которая рисует определенную геометрическую фигуру. Определите направление линии рисования и начертите фигуру, которая получится после выполнения алгоритма. Одна клетка размером 20х 20 шагов.
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016 begin var a,b:real; Write('Введите два числа через пробел: '); Read(a,b); if a>b then Writeln(a,'>',b,', максимум равен ',a) else if a<b then Writeln(a,'<',b,', максимум равен ',b) else Writeln('Веденные числа равны') end.
Тестовые решения: Введите два числа через пробел: 36.4 32.15 36.4>32.15, максимум равен 36.4
Введите два числа через пробел: -46.46 -18.54 -46.46<-18.54, максимум равен -18.54
Введите два числа через пробел: 38.0 38 Веденные числа равны
//PascalABC.NET 3.1 сборка 1200 begin // создаем массив и заполняем случайными числами от -50 до 50 var a := ArrRandom(ReadInteger('n='), -50, 50); //выводим массив a.Println; //находим индекс максимального элемента var max := a.IndexMax(); // выводим значение макс. элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); // заменяем максимальный элемент минимумом a[max] := -50; //находим индекс второго максимального элемента (на данный момент уже первого) max := a.IndexMax; // выводим значение элемента и его индекса writeln('Max = ', a[max], ' Index = ', max); end.
begin
var a,b:real;
Write('Введите два числа через пробел: ');
Read(a,b);
if a>b then Writeln(a,'>',b,', максимум равен ',a)
else
if a<b then Writeln(a,'<',b,', максимум равен ',b)
else Writeln('Веденные числа равны')
end.
Тестовые решения:
Введите два числа через пробел: 36.4 32.15
36.4>32.15, максимум равен 36.4
Введите два числа через пробел: -46.46 -18.54
-46.46<-18.54, максимум равен -18.54
Введите два числа через пробел: 38.0 38
Веденные числа равны