August 2018 1 23 Report
Kto mi opisze obrazek ???? help
nie kopiowac z neta daję DUZO PUNKTÓW WIC WARTO wymagam solidnej i samodzielnej pracy a nie kserokopii

mam napisac co widzę na obrazku
na obrazku jestem ja i moja mama tata i mój wujek z ciocia
my grilujemy w ogrodzie moja mama ma sweterek w paseczki
a moj tata ma na sobie t-shirt moja ciocia z wojkiem tez
to było latem na moje wakacje moja mam jest zabawna ma ona krotkie proste włosy koloru blond moj tata jest przyjacielski ma krótkie krecone włoxy moją ciocie kocham najbardziej ze wszystkich wujek jest wyskoki i dobrze zbudowany wszyscy świetnie sie bawiliśmy w tle widac drzewa

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 - 2025 KUDO.TIPS - All rights reserved.