Как на паскале перевести числа в обычный вид?

[weech]

Делай все в цикле:

Program test;
Var a,b,c,d,m,n,s:real;
z,i:integer;
Begin
readln(z);
writeln('---------------------');
writeln('a/b * c/d');
writeln('---------------------');
for i:=1 to z do
     begin
write('A=');
 read(a);
write('B=');
 read(b);
write('C=');
 read(c);
write('D=');
 read(d);

m:=a*d;
n:=b*c;
s:=m/n;

writeln('CHISLITEL:',m);
writeln('ZNAMENATEL:',n);

writeln('OTBET:',s);
end;
end.

[adaptive person]

Картинку нельзя. Только в delphi.
----------------------------------------------------------------------------------------------------------------------------------
Weech, Почему For to do ? Ведь времена goto еще не прошли.

Вот мой вариант кода

Program test;
label m1;
Var a,b,c,d,m,n,s:real;
      vopros : string;
Begin
m1 : writeln('---------------------');
writeln('a/b * c/d');
writeln('---------------------');

write('A=');
 read(a);
write('B=');
 read(b);
write('C=');
 read(c);
write('D=');
 read(d);

m:=a*d;
n:=b*c;
s:=m/n;

writeln('CHISLITEL:',m);
writeln('ZNAMENATEL:',n);

writeln('OTBET:',s);
readln;
writeln('хотите посчитать еще ?');
readln(vopros);
if vopros='да' then goto m1;
end.

[GidroFobia]

А в делфи как картинку прописать?

[GidroFobia]

weech, ругается на строчку "for i:=1 to z do"

[Hacker19_90]

Картинку нельзя. Только в delphi.

Нет ничего не возможного! Просто трабл с этим много!
Смотрите в инете модуль Bmp.pas
Но я ещё раз говорю что ничего кроме новых проблем вы не найдёте!

я использовал вариант 2, всё хорошо, программа всё считает, но есть одно но, она это делает только один раз, после чего закрывается и приходится её еще раз запускать.

делайте как вам говорили через цикл
НО ИМХО лучше через repeat until вот так

var
    ch: char;
begin
    repeat
        ТУТ ВАШ КОД!
        Writeln ('Хотите продолжить? (y/n)');
        ReadLn (ch);
    until ch = 'n';
end.

[adaptive person]

Не пользуйтесь for to do, для вас пока еще рано. Начните с goto. А для картинок есть специальный компонент в delphi.

[Hacker19_90]

Weech, Почему For to do ? Ведь времена goto еще не прошли.

goto не есть гуд!

А в делфи как картинку прописать?

Так у вас Turbo Pascal или всё таки Delphi? определитесь!!

[weech]

Сообщение от adaptive person

Weech, Почему For to do ? Ведь времена goto еще не прошли.

Та почему бы собственно и нет?
GidroFobia, Инициализируйте i.

[weech]

Сообщение от adaptive person

Weech, Почему For to do ? Ведь времена goto еще не прошли.

Та почему бы собственно и нет?

GidroFobia, Инициализируйте i.

[Hacker19_90]

А для картинок есть специальный компонент в delphi.

Ну скажите мне специальный компонент в делфи для картинок с выводом в консоль!