Информатика на пять О нас
 Добавить в избранное
5byte.ru
 Теория
 8 класс
 9 класс
 10 класс
 11 класс
Задания
 8 класс
 9 класс
 10 класс
 11 класс
Книги
Тесты
ЕГЭ
Turbo Pascal 7
 Описание
 Задачи
HTML
Рефераты

Задача 6.

Составление логических выражений

Program Bol_2;
{ Введем логические переменные, которые будут определять характеристики студента. Составим выражения, определяющие, является ли студент первокурсником, получающим стипендию }
  var
      Price:Boolean; { Определяет наличие стипендии у студента }
      Kursl:Boolean; { Определяет, является ли студент первокурсником }
      Rezult:Boolean; { Определяет результат }
begin
   Price:=True; { Пусть наш студент получает стипендию }
   Kursl:=True; { Пусть студент - первокурсник}
   Rezult:=Price and Kursl;
   writeln('Студент - первокурсник со стипендией? -', Rezult);
   Price:=False; { Пусть наш студент не получает стипендию }
   Rezult:=Price and Kursl;
   writeln('Студент - первокурсник со стипендией? -',Rezult);
   readln
end.





 У Вас есть материал пишите нам
 
    Copyright © 2008    
Rambler's Top100