Предмет: Информатика,
автор: Vampir476322
Имеется стопка квадратных плиток разных размеров. Сторона квадрата - случайное целое число из диапазона от 0 до 6 (использовать функцию random). Написать программу, которая вычисляет площадь каждого квадрата. Программа заканчивается, если сторона квадрата равна 0. Использовать функцию (While условие Do оператор "Условный цикл с предусловием") Написать программу в Pascal.
Ответы
Автор ответа:
0
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
var
a:integer;
begin
Randomize;
a:=Random(7);
while a>0 do begin
Writeln('a=',a,', s=',a*a);
a:=Random(7)
end
end.
Тестовое решение:
a=5, s=25
a=1, s=1
a=6, s=36
a=4, s=16
a=3, s=9
var
a:integer;
begin
Randomize;
a:=Random(7);
while a>0 do begin
Writeln('a=',a,', s=',a*a);
a:=Random(7)
end
end.
Тестовое решение:
a=5, s=25
a=1, s=1
a=6, s=36
a=4, s=16
a=3, s=9
Автор ответа:
0
Да, конечно, это же следует из условия.
Автор ответа:
0
Огромное спасибо. А то вроде все сделал, но сделал не правильное условие и рандом не писал 2 раза. И все пошло на перекосяа перекосяк. Огромное спасибо еще раз
Автор ответа:
0
Можно было и один раз, но тогда будет лишняя проверка врутри цикла.
Автор ответа:
0
Вот я ее и делал. И запутался...
Автор ответа:
0
Не страшно, со временем разберетесь.
Интересные вопросы
Предмет: Литература,
автор: mar9219745476
Предмет: Химия,
автор: 222205
Предмет: Литература,
автор: fioletovo12
Предмет: Математика,
автор: Niknurgazi
Предмет: Алгебра,
автор: zkkzisoxkdgntj