Упражнение 2. Составьте таблицы истинности логических выражений с переменными логического типа a и
b установленного образца предыдущего примера. Во время выполнения задания обязательно
учитывайте приоритет логических операций (последовательность действий):
a) a or a and b
b) a or b or not b
c) not a or not b
d) a and not b or not a and b
Упражнение 3. Сформулируйте отрицание высказываний и запишите истинные или ложные
полученные выражения:
1) Автомобиль имеет право ехать на красный свет.
2) Число 3 является делителем числа 545.
3) Не существует натурального числа, делится на 2.
4) Уравнение имеет целый корень.
5) Существуют параллелограммы с прямыми углами.
Упражнение 4. Среди указанных высказываний найдите конъюнкции и дизъюнкции и определите
их истинность:
1) 17 < 42 < 18
2) Число 27 кратное 3 и кратное 9.
3) ABC является остроугольным, прямоугольным или тупоугольный треугольником.
4) Число или четное
5) Диагонали любого параллелограмма перпендикулярны и точкой пересечения
делятся пополам.
Посмотри в Help'е функцию Exec. У меня Turbo Pascal поэтому пример оттуда
Program StartApl;
{$M $4000, 0, 0 } { 16Kб стек, нет кучи }
uses Crt, Dos;
var ProgramName, CmdLine : String;
begin
ClrScr;
Write('Имя программы для запуска (с путём) : ');
ReadLn(ProgramName);
Write('Параметры командной строки ', ProgramName, ' : ');
ReadLn(CmdLine);
WriteLn('Пробую запустить...');
SwapVectors;
Exec(ProgramName, CmdLine);
SwapVectors;
WriteLn('... вернулся из Exec');
{ Была ошибка ? }
if DosError <> 0 then WriteLn('Ошибка DOS #', DosError)
else WriteLn('Запуск был удачным. Код выхода = ', DosExitCode);
end.
В данной программе предполагается что массив целочисленный
Program Massiv;
Uses Crt;
var a:array[1..10] of integer;
temp,max,i:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('Введите ',i, 'элемент массива: ' );
readln(a[i]);
end;
writeln;
write('Исходный массив: ');
max:=a[1];
for i:=1 to 10 do
begin
write(a[i])
write(' ');
if (a[i]>max) tnen max:=a[i];
end;
temp:=a[6];
a[6]:=a[9];
a[9]:=temp;
writeln;
write('Массив после обмена: ');
for i:=1 to 10 do
begin
write(a[i])
write(' ');
end;
writeln;
writeln('Максимальный элемент массива: ',max);
readkey;
end.