Перевод кода с Pascal - C# (198819)
Формулировка задачи:
uses crt;
var n,t,i,max,min:integer;
begin
clrscr;
i:=1;
max:=-100;
min:=100;
writeln('t>100 - Exit');
writeln;
while t<120 do begin
write(i, ' Vvod t=');
readln(t);
if t<100 then begin
if t>max then max:=t;
if t<min then min:=t;
end;
if i/24=i div 24 then begin
writeln('max=',max);
writeln('min=',min);
end;
i:=i+1;
end;
writeln;
writeln('max =',max);
writeln('min=',min);
readln;
end.Решение задачи: «Перевод кода с Pascal»
textual
Листинг программы
int t = 0, n = 0, i = 1, max = -100, min = 100;
Console.Writeline("t > 100 - Exit");
while(t<120)
{
Console.Writeline("{0} Vvod t=", i);
Console.Writeline();
t = int.Parse(Console.Readline());
if (t < 100)
{
if (t > max)
max = t;
if (t < min)
min = t;
}
if (i/24 == (double)i / 24 )
{
Console.Writeline("max = {0}", max);
Console.Writeline("min={0}", min);
}
i++;
}
Console.Writeline();
Console.Writeline("max = {0}", max);
Console.Writeline("min={0}", min);
Console.ReadKey();