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.
