Пример:

IF Temp>100 THEN Writeln(’Вызывайте пожарных! ’) ELSE Writeln(’Bce в порядке’);

В операторе IF вторая часть может отсутствовать:

IF (условие = ИСТИНА) THEN (оператор1);

В этом случае, если условие ложно, оператор IF игнорируется и выполняется следующий за IF оператор. Такой оператор называется неполным.

Оператор IF используется в тех случаях, когда имеется два варианта действий в зависимости от какого-то условия.

Ход работы

Запустить программу PascalABC.

Набрать программу из примера и запустить ее на выполнение командой

Программа-Выполнить или нажатием на клавиши F9.

Пример: Вывести на экран большее из двух данных чисел.

Составим алгоритм решения задачи:

1Начало.
2Ввод чисел х и у.
3Если х>у, то выполнить вывод (х), иначе - вывод (у).
4Конец.
Программа:

Program Primer 1;
Var х, у: Integer;
Begin
writeln ('Введите два числа через пробел*);
readln(x,y); { вводим два целых числа через пробел }
if х>у then writeln(x) { если (If) х больше у, то (then) выводим х }
else writeln(y); { иначе (else) выводим у }
End

Решите самостоятельно задачу, составив алгоритм и программу:

1) Вывести на экран номер четверти, которой принадлежит точка с координатами (х, у), при условии, что х и у отличны от 0.

👇

Увидеть ответ

Ответ:

Алина12292006

04.10.2022

прога с комментами на фото

Пример: IF Temp>100 THEN Writeln(’Вызывайте пожарных! ’) ELSE Writeln(’Bce в порядке’); В операто

4,8(42 оценок)

Открыть все ответы

Ответ:

sgjisgop

04.10.2022

1. Pascal ABC

const
nn=100;
var
M,C:array[1..nn] of integer;
x,i,n,s,max:integer;
m1,r:real;
begin
Write('x=');
Read(x);
Write('>');
s:=0;
n:=0;
for i:=1 to x do begin
    Read(M[i]);
    if M[i]>3 then begin
      s:=s+M[i];
      n:=n+1
    end
end;
if n>0 then m1:=s/n
else m1:=0;
max:=M[x];
for i:=x-1 downto x-9 do
    if M[i]>max then max:=M[i];
r:=max/m1;
n:=0;
for i:=1 to x do
    if M[i]>r then begin
      n:=n+1;
      C[n]:=M[i];
      Write(C[n],' ')
      end;
end.

Пример
x=18
>-15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21

2. PascalABC.NET 3.2, сборка 1370 от 24.12.2016
Если программа не работает, обновите версию!

begin
var M:=ReadArrInteger('>',ReadInteger('x='));
var r:=(M.TakeLast(10).Max)/(M.Where(b->b>3).Average);
var C:=M.Where(b->b>r).ToArray; C.Println
end.

Пример
x= 18
> -15 -19 -32 3 2 35 32 12 -44 39 -36 16 31 5 17 21 -43 -20
3 2 35 32 12 39 16 31 5 17 21

Сравнение явно не в пользу школьного программирования...

4,4(71 оценок)

Ответ:

dva4evskaja201p08ub4

04.10.2022

1. Переводим число в двоичную систему
168.625₁₀ = 10101000.101₂
2. Сдвигаем точку влево так, чтобы она отделяла в целой части только одну цифру и фиксируем величину сдвига, как двоичный порядок
10101000.101₂ = 1.0101000101₂×2⁷
3. Отбрасываем целую часть, получая мантиссу 0101000101₂
4. Прибавляем к порядку 127
7+127 = 134₁₀ = 10000110₂
5. Приписываем к порядку его знак - 0 (сдвиг был влево), получая
010000110₂
6. Приписываем справа мантиссу и дополняем её нулями справа до 32 разрядов
01000011001010001010000000000000₂ = 01000011 00101000 10100000 00000000₂
7. Переводим результат в шестнадцатиричную систему счисления, заменяя каждые 4 двоичных цифры соответствующей шестнадцатиричной
01000011 00101000 10100000 00000000₂ = 43 28 A0 00₁₆

Получить шестнадцатеричную форму внутреннего представления числа в формате с плавающей точкой в 4-х