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

[GidroFobia]

ошибку 36 выдаёт

[GidroFobia]

Вот я вставил по твоему примеру. Где ошибка?

Program test;
label m1;
uses
    crt;
Var a,b,c,d,m,n,s:real;
      vopros : string;
Begin
    textbackgrount(blue);
    TextColor (white);
    clrscr;
	
	
    textbackground (7);
    clrscr;
 
    textcolor (12);
    gotoxy (10,5);
    write ('Hi, world!');
 
    delay (1500);
 
    gotoxy (40,22);
    textcolor (14);
    write ('Yes');



m1 : writeln('---------------------');
writeln('PROGRAM BY OMETOV VLAD!a/b * c/d');
writeln('FORMULA:');
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:5:5);
writeln('ZNAMENATEL:',n:5:5);

writeln('OTBET:',s:5:5);
readln;
writeln('Repeat?');
readln(vopros);
if vopros='YES' then goto m1;
end.

[Hacker19_90]

Program test;
uses
    crt;
label m1;
Var a,b,c,d,m,n,s:real;
      vopros : string;
Begin
    textbackground(blue);
    TextColor (white);
m1 : writeln('---------------------');
writeln('PROGRAM BY OMETOV VLAD!a/b * c/d');
writeln('FORMULA:');
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:5:5);
writeln('ZNAMENATEL:',n:5:5);

writeln('OTBET:',s:5:5);
readln;
writeln('Repeat?');
readln(vopros);
if vopros='YES' then goto m1;
end.

[GidroFobia]

А как изменить размер окна?

[Hacker19_90]

Мышкой попробуйте!

[GidroFobia]

не растягивает

[Hacker19_90]

Смысла от изменения размера?

[Poma][a]

изменить размер можно в Far (ох, давишня программа, хотя паскаль не моложе...) с ней открываешь Паскаль (файлик с *.pas или ищешь exe'шник) и там Alt+Enter во весь экран

[Hacker19_90]

изменить размер можно в Far (ох, давишня программа, хотя паскаль не моложе...) с ней открываешь Паскаль (файлик с *.pas или ищешь exe'шник) и там Alt+Enter во весь экран

Ну так и в самом паскале это можно, если у вас не Windows 7, которая не поддерживает полноэкранный режим 16 битных программ, для этого DosBox!

[Poma][a]

Сообщение от Hacker19_90

если у вас не Windows 7

блин, как раз... а я то думал что не пашет.... спасибо, просвятил!