Измените программу из примера 6.12 так, чтобы случайным образом выбиралось одно из трех слов. Выводите каждое слово своим цветом (например, первое — красным, второе — синим, третье — зеленым). (создать программу на Паскаль)
спросил 10 Окт, 19 от вишенка в категории школьный раздел

решение вопроса

+8
Для начала добавим возможность вывода трёх слов вместо двух. Для этого создадим константу для третьего слова sl3 = 'PHP' и объявим переменную для счётчика количества повторений var n, k1, k2, k3, x: integer;, обнулим переменную k3 := 0;, а в конце программы добавим строку для вывода результата для третьего слова writeln('Cлово ',sl3,' - ',k3);. Также нужно добавить ещё одно условие в цикле for (просмотрите внимательно на изменения в этом цикле). С помощью команды SetFontColor() установим цвет для каждого слова, а после завершения цикла восстановим цвет текста на чёрный.
uses GraphABC;
const sl1 = 'Pascal';
 sl2 = 'Python';
 sl3 = 'PHP';
var n, k1, k2, k3, x: integer;
begin
 writeln ('Введи n ');
 read(n);
 writeln (n);
 k1 := 0; k2 := 0; k3 := 0;
 for var i := 1 to n do
 begin
  x := random(3);
  if x = 0 then
  begin
   SetFontColor(clRed);
   writeln(sl1);
   k1 := k1 + 1;
  end
  else if x = 2 then
  begin
   SetFontColor(clBlue);
   writeln(sl2);
   k2 := k2 + 1;
  end
  else
  begin
   SetFontColor(clGreen);
   writeln(sl3);
   k3 := k3 + 1;
  end
 end;
 SetFontColor(clBlack);
 writeln('Cлово ',sl1,' - ',k1);
 writeln('Cлово ',sl2,' - ',k2);
 writeln('Cлово ',sl3,' - ',k3);
end.
ответил 10 Окт, 19 от милина

Связанных вопросов не найдено

Обучайтесь и развивайтесь всесторонне вместе с нами, делитесь знаниями и накопленным опытом, расширяйте границы знаний и ваших умений.

Популярное на сайте:

Как быстро выучить стихотворение наизусть? Запоминание стихов является стандартным заданием во многих школах. 

Как научится читать по диагонали? Скорость чтения зависит от скорости восприятия каждого отдельного слова в тексте. 

Как быстро и эффективно исправить почерк?  Люди часто предполагают, что каллиграфия и почерк являются синонимами, но это не так.

Как научится говорить грамотно и правильно? Общение на хорошем, уверенном и естественном русском языке является достижимой целью.