Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Prosze o pomoc w programie

W dół

Od 1 do 1 z 1

  1.  
    • CommentAuthorGadul
    • CommentTime24 Apr 2009 zmieniony
     
    Witam stworzylem program. Program Pianino; USES CRT; VAR a,z:char; b1,b2:real; BEGIN REPEAT {P©tla Gˆ˘wna} clrscr; extcolor(white); writeln('Menu Gˆ˘wne'); writeln('Aby wej˜† do danego programu naci˜nij: '); 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 naci˜ni©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 naci˜nij 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 dˆugo˜ci 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.

Od 1 do 1 z 1

  1.