Примечание.
trunc(x) - возвращает целую часть аргумента х (результат
целое число).
Cамостоятельная работа:
Ветвления в алгоритмах
Вариант 1
1) Выберите из предложенных полные записи оператора if:
a)
if x>y then x:=0
else y:=0; |
c)
if x>y then x:=0;
|
b)
if x>y then
begin
x:=0;
y:=0;
end; |
d)
if x>y then
begin
x:=0; y:=0;
end
else y:=110; |
2) Запишите оператор ветвления в общем виде.
3) Выполните одно из следующих двух заданий:
a) Найти и исправить ошибки в записи оператора ветвления:
if x>=y then
x:=0;
y:=0;
else
write(z);
b) Какое значение будет иметь переменная t после выполнения
программы, если x=1.5, y=–0.8?
var x, y: real;
t: boolean;
begin
read(x);
t:=x<trunc(x);
read(y);
t:=t or (y<trunc(y));
writeln(t);
end.
4) Даны три числа. Возвести в квадрат те из них, которые
положительны. Остальные оставить без изменения.
5) Записать на Паскале логическое выражение истинное только при
выполнении следующего условия: хотя бы одно из чисел x, y, z является
положительным.
Вариант 2
1) Выберите из предложенных неполные записи оператора if:
a)
if x>y then x:=0
else y:=0; |
c)
if x>y then x:=0;
|
b)
if x>y then
begin
x:=0;
y:=0;
end; |
d)
if x>y then
begin
x:=0; y:=0;
end
else y:=110; |
2) Запишите оператор ветвления в сокращенном виде.
3) Выполните одно из следующих двух заданий:
a) Найти и исправить ошибки в записи оператора ветвления:
if x>=y then begin x:=0; y:=0;
else end; write(z);
b) Какое значение будет иметь переменная t после выполнения
программы, если x=2.1, y=8.4?
var x, y: real;
t: boolean;
begin
read(x);
t:=x<trunc(x);
read(y);
t:=t or (y<trunc(y));
writeln(t);
end.
4) Даны три числа. Увеличить в 5 раз те из них, которые
отрицательны. Остальные оставить без изменения.
5) Записать на Паскале логическое выражение истинное только при
выполнении следующего условия: хотя бы одно из чисел x, y, z является
четным.
Вариант 3
1) Выберите из предложенных полные записи оператора if:
a)
if x>y then begin if x>0 then x:=0 else y:=0;
end else x:=y |
c)
if x>y then x:=0 else y:=0;
|
b)
if x>y then
begin
x:=0;
y:=0;
end; |
d)
if x>y then
begin
x:=0; y:=0;
end; |
2) Запишите оператор ветвления в общем виде.
3) Выполните одно из следующих двух заданий:
a) Найти и исправить ошибки в записи оператора ветвления:
if x:=y then;
x:=0;
y:=0; end;
else
write(z);
b) Какое значение будет иметь переменная t после выполнения
программы, если x=1.5, y=–0.8?
var x, y: real;
t: boolean;
begin
read(x);
t:=x>trunc(x);
read(y);
t:=t and (y<trunc(y));
writeln(t);
end.
4) Даны три числа. Возвести в куб те из них, которые
нечетны. Остальные оставить без изменения.
5) Записать на Паскале логическое выражение истинное только при
выполнении следующего условия: хотя бы одно из чисел x, y, z является
нечетным.