РЕШИТЕ 3 НОМЕРА. 1. Является ли условным оператором следующая последовательность символов:
(Нужно ответить да или нет)
a. If x=10 then y:=x else y:= - x;
b. If x>3, x<6 then y:= 2*x else y:=5*x+7;
c. If a mod 2=0 then b:= a div 2; c:= b +a;
2. Используя полную форму условного оператора, упростите следующий фрагмент программы:
If f>0 then w:= 1;
If f=0 then w:=-1;
If f<0 then w:= -1;
3. Определите без компьютера, что будет выведено на экран при выполнении следующих фрагментов программ:
a) k:=20;
k:=k+10;
if k+10<>30 then k:=8 else k:=k-1;
writeln(k);
b) k:=20;
k:=k+10;
if k+10=30 then k:=8 else k:=k-1;
writeln(k);
c) p:=1;
if p>0 then p:=p+5;
write(p);
if p>10 then p:=p=1;
write(p);
Ошибкой (или так называемым багом) можно назвать недокументированные или нежелательные, "побочные" реакции программы на те, или иные действия пользователя, равно как и при использовании ее одновременно с другими программами или на другой аппаратной платформе.
В краткой классификации выделяются следующие ошибки.
- Ошибки пользовательского интерфейса.
- Ошибки вычислений.
- Ошибки управления потоком.
- Ошибки передачи или интерпретации данных.
- Перегрузки.
- Контроль версий.
- Ошибка выявлена и забыта.
- Ошибки тестирования.
program pole;
var a, b, c, d, n, kolvo, x, y: real;
begin
write ('За сколько часов топчет землю Нейромонах Феофан? ');
read (a);
write ('За сколько часов топчет землю Балалаечник Никодим? ');
read (b);
write ('За сколько часов топчет землю Косолапый Мишка? ');
read (c);
write ('За сколько часов топчет землю 1 Добрый Молодец? ');
read (d);
write ('За сколько часов нужно выкопать землю? ');
read (n);
x:=1/a+1/b+1/c;
kolvo:=(1/n-x)/(1/d);
if (kolvo<0) then write ('Группа справится без молодцев.') else
begin
y:=kolvo;
if (((trunc(y*10)) mod 10) <5) then
kolvo:=kolvo + 1;
write ('Вот столько вам потребуется добрых молодцев: ', round(kolvo));
end;
end.