1) графический — с помощью рисунков или значков;
2) числовой — с помощью чисел:
3) символьный с помощью символов того же алфавита, что и исходный текст.
Const int neededInputs = 8;
try
{
int counterNegativeNumbers = 0;
int counterInLoop = 0;
while (counterInLoop < neededInputs)
{
Console.WriteLine("Type a number, please ");
int number = Int32.Parse(Console.ReadLine());
if(number < 1)
counterNegativeNumbers++;
counterInLoop++;
}
Console.WriteLine(String.Format("You`ve written {0} negative or zero numbers", counterNegativeNumbers));
}
catch(FormatException ex)
{
Console.WriteLine("Invalid format of the number");
}
Var
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
<u>Пример</u>
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
<u>Пример</u>
7 2
m=7, n=7
Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.