Программа "Ответы на все вопросы"

Тип статьи:
Авторская

Блок-схема алгоритма

Видео о программе: 

Исходный код

uses
  GraphABC; //Подключаем модуль графического окна
var
  a, b: integer; //объявляем целочисленные переменные
  fr: array [0..6] of string; //объявляем массив со строковыми значениями
begin
  a := 1; //инициализируем переменную а
  fr[0] := 'Это хорошая мысль'; // Заполняем массив
  fr[1] := 'я думаю, стоящая идея';
  fr[2] := 'Прекрасно придумано';
  fr[3] := 'нуууу, не знаю...';
  fr[4] := 'Не стоит оно того...';
  fr[5] := 'Нет';
  fr[6] := 'Ужасная идея';
while a > 0 do//организуем цикл «пока а > 0. Цикл бесконечный, т.к. а не меняет значений
  begin
   SetFontSize(20); //устанавливаем размер шрифта в графическом окне
   writeln('Введите свой вопрос');//выводим текст
   readln(); //считываем вопрос. Ничему его не присваиваем. Вопрос нам не важен.
   b := random(6);//присваиваем переменной b случайное значение
   writeln(fr[b]); //выводим случайный ответ из значений массива.
  end;
end.
Нет комментариев. Ваш будет первым!
Загрузка...

Соц. сети