August 2018 2 22 Report
Proszę o sprwadzenie mi mojego e mail'a
How are you? I hope you're not mad at me! I'm sorry I couldn't came to your training on Monday, but Iwas disease. First Iwent to doctor but him wasn't. Then cousin visited me. we went on pizza and spagethi.Finally came evening. Anyway I've got on the training
Marzena
More Questions From This User See All

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.