Cоставить программу, получающую при вводе действительное число и выводящую цифру 1, если...

Question

Cоставить программу, получающую при вводе действительное число и выводящую цифру 1, если это число падает [-20;0], и цифру 2, если это число попадает в промежуток [1;+∞]. В остальных случаях программа выводит слово No. Программу следует составить в Pascal.

Comments

turbo, ABC, ABC.NET ?

---

ABC

---

Точно ABC.NET! Чуть выше написал не подумав)

---

Физикъ555 ты можешь к этому заданию блок-схему сделать? Пожалуйста! Буду очень очень благодарен.

---

Смертельный номер=))) За программы почти всегда 5 получал, за блок-схемы - никогда=))

---

блин глянуть как она выглядеть будит(

---

будЕт. Ладно, сделаю, как умею

Answer 1

Var
R:real;
Begin
WriteLn('Введи число');
ReadLn(R);
If (R>=-20)and(R<=0) then Write(1)<br>else if (R>=1)and(R<=real.PositiveInfinity) then Write(2)<br>else Write('No')
End.

Над стрелками после условия знаки поставь: над правой плюс, над левой минус.

---

Answer 2

Var
  n:double;
begin
  Write('n='); Read(n);
  if (n>=-20) and (n<=0) then Writeln('1')<br>  else
    if n>=1 then Writeln('2') else Writeln('No')
end.

Блок-схема во вложении, знаком & обозначена операция "логическое и"

---