Алгоритм — конечная последовательность точных действий, формальное выполнение которых позволяет получить решение задачи для любого допустимого набора исходных данных.
Алгоритмическая конструкция следование — последовательность команд алгоритма, которые выполняются в том порядке, в котором они записаны.
1) Цикл с параметром
For i:=1 to N do
begin
команда1;
команда2;
...
end;
2) Цикл с предусловием
While <условие> do
begin
команда1;
команда2;
...
end;
if <условие>
then begin
команда1;
...
end
else begin
команда2;
...
end;
Для данных целочисленных типов определены операции «+», «–», «*», «div», «mod».
Для данных вещественных типов определены операции «+», «–», «*», «/»;
Целочисленные типы могут быть преобразованы к вещественным, но не наоборот.
Переменной целочисленного типа нельзя присвоить вещественное значение.
Для ввода данных предназначена команда read (readln).
Для вывода данных используют команду write (writeln).
Описать слово «Pascal» как константу. Вывести слово на экран красным цветом.
Упражнение
Измените константу в программе примера 6.10 на свое имя. Используя команды графической библиотеки для работы с текстом, измените шрифт, размер символов, фон, начертание букв.
uses GraphABC;
const slovo = 'Pascal';
begin
SetFontColor(clRed);
writeln(slovo);
end.
Написать программу, которая выведет заданное слово на экран n раз. Значение n вводится.
uses GraphABC;
const sl = 'Программирование';
var n: integer;
begin
writeln ('Введи n ');
read(n); writeln (n);
SetFontColor(clRed);
for var i := 1 to n do
writeln(sl);
end.
Упражнение
Измените программу примера 6.11 так, чтобы выполнялись указанные условия.
Каждое слово должно выводиться случайным цветом.
Расстояние между словами должно быть 50 пикселей.
Каждое новое слово должно выводиться шрифтом на 5 пунктов больше, чем предыдущее. Отрегулируйте расстояние между словами так, чтобы слова при выводе не перекрывали друг друга.
Написать программу, которая выведет на экран n раз одно из двух слов. Выбор слова осуществляется случайным образом. Значение n вводится. Посчитайте, сколько раз было выведено каждое слово.
Упражнение
Измените программу из примера 6.12 так, чтобы случайным образом выбиралось одно из трех слов. Выводите каждое слово своим цветом (например, первое — красным, второе — синим, третье — зеленым).
uses GraphABC;
const
sl1 = 'Pascal';
sl2 = 'Python';
var
n, k1, k2, x: integer;
begin
writeln('Введи n ');
read(n);
writeln(n);
k1 := 0;k2 := 0;
for var i := 1 to n do begin
x := random(2);
if x = 0 then begin
writeln(sl1);
k1 := k1 + 1; end
else begin
writeln(sl2);
k2 := k2 + 1;
end
end;
writeln('Cлово ', sl1, ' - ', k1);
writeln('Cлово ', sl2, ' - ', k2);
end.
Измените константу в программе примера 6.10 на свое имя. Используя команды графической библиотеки для работы с текстом, измените шрифт, размер символов, фон, начертание букв.
Измените программу примера 6.11 так, чтобы выполнялись указанные условия.
Каждое слово должно выводиться случайным цветом.
Расстояние между словами должно быть 50 пикселей.
Каждое новое слово должно выводиться шрифтом на 5 пунктов больше, чем предыдущее. Отрегулируйте расстояние между словами так, чтобы слова при выводе не перекрывали друг друга.
Запустите программу из примера 6.12 несколько раз. Какие результаты получили?
Измените программу из примера 6.12 так, чтобы случайным образом выбиралось одно из трех слов. Выводите каждое слово своим цветом (например, первое — красным, второе — синим, третье — зеленым).