1)Сгенерировать и вывести на экран пять случайных чисел из интервала [-10;10].
2) Одна штука некоторого товара стоит 22,4 руб. Вывести таблицу стоимости 2,3...10 штук этого товара.
Паскаль,тема циклы,можно пожалуйста без for
Ответы
1)
var i,a:integer;
begin
i:=0;
while i<5 do
begin
i:=i+1;
a:=random(21)-10;
write(a,' ');
end;
end.
Пример:
1 10 -2 -5 9
2)
var p:real; i:integer;
begin
p:=22.4;
i:=1;
while i<10 do
begin
i:=i+1;
writeln(i,' шт: ',i*p:5:2,' руб.');
end;
end.
Результат:
2 шт: 44.80 руб.
3 шт: 67.20 руб.
4 шт: 89.60 руб.
5 шт: 112.00 руб.
6 шт: 134.40 руб.
7 шт: 156.80 руб.
8 шт: 179.20 руб.
9 шт: 201.60 руб.
10 шт: 224.00 руб.
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
№1
begin
5.Range.Select(t -> random(-10, 10)).Println; // диапазон целый
5.Range.Select(t -> round(random(-10.00, 10.00), 2)).Println; // диапазон вещественный
end.
Пример:
-6 -1 -7 5 -8
-9.33 -5.91 -2.68 5.83 -7.51
№2
begin
10.Range.Select((e, i)-> (e, (i + 1) * 22.4)).Foreach(t -> begin
Println($'{t[0],2:f0} шт. - {t[1]:f2} руб.') end)
end.
Результат:
1 шт. - 22.40 руб.
2 шт. - 44.80 руб.
3 шт. - 67.20 руб.
4 шт. - 89.60 руб.
5 шт. - 112.00 руб.
6 шт. - 134.40 руб.
7 шт. - 156.80 руб.
8 шт. - 179.20 руб.
9 шт. - 201.60 руб.
10 шт. - 224.00 руб.