Практическая работа "Логические величины"

Логические величины, операции, выражения

1. Дано целое число A. Проверить истинность высказывания: «Число A является нечетным».

Для того чтобы узнать, является ли данное число нечетным в Паскале предусмотрена специальная функция Odd, которая возвращает true, если число нечетное и false, если число четное.

program n_1;

var a: integer; b : boolean;

begin

write('Введите число A: ');

read(a);

b := Odd(a);

writeln('Число A является нечетным - ', b); { Можно обойтись и без b }

end.

Что делает следующая программа? Вместо … впишите ответ.

program n_2;

var n: integer; ans: boolean;

begin

write ('Введите исходное число');

readln (n);

ans:=n mod 2=0;

writeln ('Число ', n,' является … - ', ans)

end.

2. Даны два целых числа: A, B. Проверить истинность высказывания: «Ровно одно из чисел A и B нечетное». 

Используем xor.

program n_3;

var a,b: integer; c :boolean;

begin

write('Введите число A, B: ');

read(a,b);

c := (Odd(a)) xor (Odd(b));

writeln('Ровно одно из чисел A и B нечетное - ', c);

end.

3. Треугольник со сторонами a, b, c является равносторонним.

program proverka;

Задание:

1. Написать программу «Определение истинности высказывания о равнобедренном треугольнике»

2. Дано четырехзначное число. Проверить истинность высказывания: «Данное число читается одинаково слева направо и справа налево».

Оценивание:
1. За простое воспроизведение (набор программы) без проверки оценка «3»
2. За проверку работы программы, ответы на вопросы по программе оценка «4»
3. За решение всех заданий, изменение программы оценка «5»

uses crt; /зачем нужна эта команда?/

var a,b,c: real; d:boolean;

begin

clrscr; /зачем нужна эта команда?/

write('введите A, B , C');

readln(a,b,c);

d:= (a=b) and (a=c) and (b=c);

write(d);

end.