Problem z turbo pascal program.

[Gadul 0]

Witam stworzylem program.

 

Program Pianino;

USES CRT;

VAR

a,z:char;

b1,b2:real;

 

BEGIN

REPEAT {P©tla G˘wna}

clrscr;

textcolor(white);

writeln('Menu G˘wne');

writeln('Aby wej† do danego programu nacinij: ');

writeln('1 Pianino');

writeln('2 ');

a:=readkey;

IF a='1' Then

Repeat {P©tla Pianino}

clrscr;

textcolor(cyan);

writeln('*****************************');

writeln('* *');

writeln('* Dorota Waloszewska *');

writeln('* Program: Pianino *');

writeln('* *');

writeln('*****************************');

textcolor(yellow);

writeln('Opis');

textcolor(red);

writeln('Program wytwarza d«wi©ki po nacini©ciu danego klawisza:');

textcolor(green);

writeln('z-140Hz ,x-227Hz ,c-389Hz ,v-440Hz ,b-530Hz ,n-640Hz ,m-770Hz');

writeln('a-889Hz ,s-940Hz ,d-1030Hz ,f-1170Hz, g-1289Hz, h-1340HZ, j-1430Hz');

writeln('k-1540Hz ,l-1670Hz ,q-1789Hz ,w-1840Hz ,e-1930Hz, r-2040Hz');

writeln('t-2170Hz, y-2289Hz, u-2340Hz, i-2430Hz, o-2570Hz, p-2689Hz');

writeln('Aby wyj† z programu nacinij 0');

REPEAT;

a:=Readkey;

IF a='z' THEN sound(140);

IF a='x' THEN sound(270);

IF a='c' THEN sound(389);

IF a='v' THEN sound(440);

IF a='b' THEN sound(530);

IF a='n' THEN sound(640);

IF a='m' THEN sound(770);

IF a='a' THEN sound(889);

IF a='s' THEN sound(940);

IF a='d' THEN sound(1030);

IF a='f' THEN sound(1170);

IF a='g' THEN sound(1289);

IF a='h' THEN sound(1340);

IF a='j' THEN sound(1430);

IF a='k' THEN sound(1540);

IF a='l' THEN sound(1670);

IF a='q' THEN sound(1789);

IF a='w' THEN sound(1840);

IF a='e' THEN sound(1930);

IF a='r' THEN sound(2040);

IF a='t' THEN sound(2170);

IF a='y' THEN sound(2289);

IF a='u' THEN sound(2340);

IF a='i' THEN sound(2430);

IF a='o' THEN sound(2570);

IF a='p' THEN sound(2689);

delay(65535);

nosound;

a:=Readkey;

UNTIL a='0';

IF a='2' Then

Repeat {P©tla Pola}

clrscr;

write('Podaj dugoci bok˘w prostokĄta: ');

readln(b1,b2);

writeln('Pole prostokĄta o bokach ', b1:0:2 , ' oraz ' , b2:0:2 , ' wynosi ', b1*b2:0:2 , ' cm2. ');

readln;

UNTIL z='0';

 

z:=Readkey;

 

UNTIL (z=#27);

 

END.

 

 

Ale cos zle zrobilem bo pojawia sie to Error in Statement , pojawia się chyba pomiądzy Untilem a End'em Bardzo Prosze o Pomoc.

[Nerio 17]

przepisz od początku... pascal tak ma, że czasami jakieś niewidoczne krzaki są (zresztą tutaj ich nie brakuje) i skompiluj...

 

Ponadto popraw kod (użyj bloku code...) - dla czytelności wcięcia... itp.