ПОЖАЛУЙСТА ПОМОГИТЕ! ПРОШУ ВАС ЧИСТО СЕРДЕЧНО ПОМОЧЬ МНЕ((1) Выберите из предложенных полные записи оператора if: a) if xy then begin if x0 then x:=0 else y:=0; end else x:=y c) if xy then x:=0 else y:=0; b) if xy then begin x:=0; y:=0; end; d) if xy then begin x:=0; y:=0; end; 2) Запишите оператор ветвления в общем виде. 3) Выполните следующие задания: a) Найдите ошибки в записи оператора ветвления, запишите правильный вариант фрагмента программы: if x:=y then; x:=0; y:=0; end; else write(z); b) По блок-схеме составьте программу. 4) Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без изменения. 5) Нарисовать на плоскости (х,у) область, в которой истинно указанное выражение: (y=x) and (y+x=0) and (y

Question

ПОЖАЛУЙСТА ПОМОГИТЕ! ПРОШУ ВАС ЧИСТО СЕРДЕЧНО ПОМОЧЬ МНЕ((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) По блок-схеме составьте программу. 4) Даны три числа. Возвести в куб те из них, которые нечетны. Остальные оставить без изменения. 5) Нарисовать на плоскости (х,у) область, в которой истинно указанное выражение: (y>=x) and (y+x>=0) and (y<=1).

gheromeibe605 · Answer

1.Ответ: скорее всего C(b и d идентичны) 2.if условие then begin операторы; end else begin операторы; end: 3. a) if x:=y then begin x:=0; y:=0; end else writeln(z); (Перед else никогда не ставиться запятая; после и перед then тем более; если нужно указать несколько операторов, то в зависимости от условия задачи устанавливаем begin и end) b) Некорректная задача. Где блок-схема? 4. var a,b,c:integer;beginreadln(a,b,c);if a mod 2=1 then writeln(a*a*a);if b mod 2=1 then writeln(b*b*b);if c mod 2=1 then writeln(c*c*c);end.5. Опять же некорректная задача. В каком смысле нарисовать?

kidai919 · Answer

1) - a), c)2) if  then  else 3) а)if x=y  then begin x:=0; y:=0; end else write(z);б) - нет блок-схемы4)var a,b,c:integer;beginwriteln('a, b, c:');readln(a,b,c);if a mod 2  0 then a:=a*a*a;if b mod 2  0 then b:=b*b*b;if c mod 2  0 then c:=c*c*c;writeln('a = ',a,' b = ',b,' c = ',c);end.Пример:a, b, c:5 2 7a = 125 b = 2 c = 3435)Решение - в прилагаемом файле.

Ответы и объяснения 2

Знаете ответ? Поделитесь им!

Есть сомнения?