Задание

1. Вызвать Turbo Pascal , набрать вышеуказанные программы и провести анализ

2. Наберите программу, задайте разные значения переменной, например, 1,5 и т.д. Обратите внимание на результат. Измените в программе знак < на знак > и задайте те же значения. Сравните полученные результаты.

program aba;

var x: real;

t: boolean;
begin
read (x);t:=x<round(x); { арифметическая функция round(x) - округление числа}
writeln(t);
end

3. Наберите программу, дайте для а и в разные значения ,обратите внимание на результат.

Program a1;

Var x,y:Boolean;

A,b:integer;

Begin

Writeln(‘a,b ввести’);

Read(a,b);

X:=true;

Y:=false;

If a>b then writeln (‘a>b-‘,x) else writeln (‘a>b-‘,y);

Readln;

End.

4. Вычислить значения логических выражений:

а) К mod 7=K div 5-1 при К=15; в) not odd(n)при n=0; д) (x*y<>0) and (y>x) при х=2, y=l;

б) odd(trunc(10*P)) при Р=0.182; г) t and (P mod 3=0) при t=true, P=10101; e) a or not b при a=false, b=true.

5. Если a=true и х=1, то какое значение получит логическая переменная d после выполнения оператора присваивания: a) d:=x<2; б) d:=not a or odd(x);

6. При подключении модуля CRT исключаются медленная функция MS DOS и повышается скорость вывода информации на дисплей. Понятно, что чем «медленнее» работает компьютер, тем заметнее будет эффект от подключения модуля CRT. Эту разницу можно увидеть: для чего просмотрите пример двух программ (без запуска)

Пример:

{Программа использует стандартный вывод}

PROGRAM Standart Output;

VAR i : Byte; {счетчик цикла }

for i : = 1 to 100 do Write (‘* Турбо Паскаль*’);

WriteLn

END.

{Программа использует средства модуля CRT}

PROGRAM CRT_Output;

USES CRT;

VAR i : Byte;

BEGIN

for i : = 1 to 100 do Write (‘* Турбо Паскаль*’);

WriteLn

END.

11.2. Работа с преподавателем:

При появлении затруднений или при ошибочных действиях обратиться к преподавателю для исправления ошибок.

К концу занятия показать преподавателю отчет о выполненной работе и получить зачет по данной работе.

11.3. Контроль исходного и заключительного уровня знаний:

Тестирование на компьютере.

Беседа преподавателя со студентом по вопросам самоподготовки.