Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 33 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

32
uses crt; { Подключение системного модуля crt языка Pascal }
{ Здесь он нужен для генерации случайных чисел. }
var
K, M, N: byte;
begin
randomize; { Инициализация датчика случайных чисел }
M := random(10); { Генерация случайного числа в диапазоне }
{ от 0 до 10 }
K := 0; { Количество угадываний в начале равно 0 }
while true do { «Бесконечный» цикл }
begin
writeln('Введите число в диапазоне от 0 до 10');
readln(N);
K := K+1; { Количество «угадываний» увеличивается на 1. }
if N = M then
break; { Выход из цикла: Пользователь угадал
число }
end;
writeln('Число угадываний = ', K);
end.
2.4. Работа в среде Turbo Pascal
2.4.1. Редактирование текста программы.
Работа с блоками
Блок – горизонтальный участок текста, содержащий символы од-
ной или нескольких строк. Для работы с блоками используют меню
Edit (рисунок 2.3) или комбинации клавиш. 
  uses crt; { Подключение системного модуля crt языка Pascal }
             { Здесь он нужен для генерации случайных чисел. }
  var
    K, M, N: byte;
  begin
   randomize;        { Инициализация датчика случайных чисел }
   M := random(10); { Генерация случайного числа в диапазоне }
                     { от 0 до 10 }
   K := 0;           { Количество угадываний в начале равно 0 }
   while true do     { «Бесконечный» цикл }
   begin
     writeln('Введите число в диапазоне от 0 до 10');
     readln(N);
     K := K+1; { Количество «угадываний» увеличивается на 1. }
     if N = M then
        break; { Выход из цикла: Пользователь угадал число }
   end;
   writeln('Число угадываний = ', K);
  end.

  2.4. Работа в среде Turbo Pascal
  2.4.1. Редактирование текста программы.
          Работа с блоками
   Блок – горизонтальный участок текста, содержащий символы од-
ной или нескольких строк. Для работы с блоками используют меню
Edit (рисунок 2.3) или комбинации клавиш.




                              32

Страницы