Prosze was o pomoc mialam do napisania program ktory policzy pola i obwody następujących figór trojkat prostokat kolo rownoleglobok Wypisze wam moje problemy zwiazane z tym programem NAPIASALAM GO ALE JAK Z KOMPILUJE W TURBO PASCALU 1.TO JAK WYBIORE OPCJE NUMER 2 PODAJE BOK A I B PROSTOKATA A NIE POKAZUJE MI ILE WYNOSI POLE A ILE OBOD 2. TAK SAMO POJAWIA MI SIE W OPCJI 3 3. JAK DAM OPCJE 4 TO WOGÓLE MI NIEDZIAŁA NIE POJAWIA SIE PYTANIE PODAJ BOK ITP.. 4. JAK WEJDE NP W OPCJE JEDEN POJAWI MI SIE OBWOD I POLE TO NIE wiem w ktorym miejscu DO KODU DODAC ZEBY PISALO POWROT DO MENU ESC I POKLIKNIECIU ESC ZEBY POWRACAŁO DO MENU o to kod programu program pola_i_obwody; uses crt; var a,b,c,h,r:integer; ch:char; wybor:byte; PROCEDURE Normalne; BEGIN textcolor(black); textbackground(magenta); END; PROCEDURE tlo; Var i:integer; BEGIN textcolor(lightgray); FOR i:=1 TO 2000 Do write(#1545135); Normalne END; procedure okno(x1,y1,x2,y2:byte;napis:string); var i:integer; begin tlo; window(x1,y1,x2,y2); clrscr; write(#46596879); for i:=1 to x2-x1-2 do write(#46596879); write(#46596879); writeln; write(' ',napis,''); for i:=2 to y2-y1 do begin gotoxy(1,i); write(#46596879); gotoxy(x2-x1,i); write(#46596879); end; writeln;write(#46596879); for i:=1 to x2-x1-2 do write(#46596879); write(#46596879); end; procedure Trojkat; begin clrscr; writeln('podaj a: '); readln(a); writeln('podaj b: '); readln(b); writeln('podaj c: '); readln(c); writeln('podaj h: '); readln(h); writeln('pole trojkata wynosi ',(a*h)/2:2:2); writeln('obwod trojkata wynosi ',a+b+c); readln; end; procedure prostokat; begin clrscr; writeln('podaj bok a: '); readln(a); writeln('podaj bok b: '); readln(b); writeln('Pole prostokata wynosi: ',(a*b)); writeln('obwod prostokata wynosi: ',2*a+2*b); end; procedure rownoleglobok; begin clrscr; writeln('podaj a: '); readln(a); writeln('podaj b: '); readln(b); writeln('podaj h: '); readln(h); writeln('pole r˘wnolegoboku wynosi: ',a*h); writeln('obw˘d r˘wnolegoboku wynosi: ',2*a+2*b); end; procedure kolo; begin clrscr; writeln('podaj promien koa: '); readln(r); writeln('pole ko wynosi: ',(3.14*r)*(3.14*r)); writeln('obw˘d koa wynosi: ',2*3.14*r); readln; repeat ch:=readkey; until ch=chr(27); end; function menu:integer; var ch:char; begin window(1,1,80,25); clrscr; tlo; okno(19,5,57,19,' GLOWNE MENU PROGRAMU'); gotoxy(2,4); writeln(' Wybierz operacje'); gotoxy(2,6); writeln(' 1:trojkat'); gotoxy(2,8); writeln(' 2:prostokat'); gotoxy(2,10); writeln(' 3:rownoleglobok'); gotoxy(2,12); writeln(' 4:kolo'); gotoxy(2,14); writeln(' 0:koniec pracy'); repeat ch:=readkey; until ch in ['0'..'3']; menu:=ord(ch)-ord('0'); window(6,6,89,35); clrscr; end; begin normalne; repeat case menu of 1:trojkat; 2:prostokat; 3:rownoleglobok; 4:kolo; 0:halt(0); end; until false; writeln('powr˘t do menu ESC'); end.
Answer

Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.