Практикум по решению задач на ЭВМ. Тарова И.Н - 98 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
END.
Лабораторная работа № 28
Программирование простейших игр
1) Составить программу обучения устному счету. На каждом шаге пред-
лагаются числа и арифметические действия, которые следует выполнить
над ними.
2) Написать программу, играющую в «крестики-нолики».
3) Угадайте число.
program ch;
uses crt;
var a,b:real;
i:integer;
begin
clrscr;
writeln('угадайте число');
randomize;{инициализация генератора случайных чисел}
a:=random(16);
i:=0;{нулевая попытка}
repeat
i:=i+1;
98
                             Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


  END.




   Лабораторная работа № 28
                   Программирование простейших игр
1) Составить программу обучения устному счету. На каждом шаге пред-
лагаются числа и арифметические действия, которые следует выполнить
над ними.

2) Написать программу, играющую в «крестики-нолики».

3) Угадайте число.

  program ch;
  uses crt;
  var a,b:real;
     i:integer;
  begin
   clrscr;
    writeln('угадайте число');
randomize;{инициализация генератора случайных чисел}
    a:=random(16);
    i:=0;{нулевая попытка}
    repeat
     i:=i+1;


                                  98

Страницы