Практика №5. Операторы цикла (for).
Задача 1 (Zad5_1.Pas). Написать программу для вывода на экран визиток (3-5 шт., использовать цикл). В визитке должны быть указаны ФИО, школа, телефон.
Задача 2 (Zad5_2.Pas). Программа осуществляет ввод с клавиатуры произвольного целого числа N и вычисление произведения всех целых чисел от 1 до N.
Задача 3 (Zad5_3.Pas). Вывести таблицу кубов первых n чисел.
Задача 4 (Zad5_4.Pas). Измените программу стартового отсчета так, чтобы на экран выводился таймер.
Program L5_3;
{Программа выводит на экран стартовый отсчет}
var
і : Integer; {переменная цикла}
Begin
for і := 10 downto 1 do {Цикл отсчета}
begin
Writeln('До старта осталось ', i, ‘ с.’);
Delay(1000);
end;
End.
Задача 5 (Zad5_5.Pas). Написать программу звездного неба. В тексте программы можно использовать оператор цикла for, а также GotoXY и Random (фрагмент):
for i := 1 to n do
begin
GotoXY(Random(80) + 1, Random(25) + 1);
Write(‘*’);
end;
Доработайте программу так, чтобы цвет звезд также задавался случайно.
Задача 6 (Zad5_6.Pas). Написать программу, которая выводит таблицу степеней двойки (от нулевой до десятой).
Задача 7 (Zad5_7.Pas). Написать программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 10, выводит эти числа на экран и вычисляет их среднее арифметическое. Рекомендуемый вид экрана во время работы программы приведен ниже.
Случайные числа
Среднее арифметическое равняется 3.9
