Witam dopiero ci sie zapisalem do szkoly informatycznej i nie mam pojecia o programowaniu w turbo pascalu a mam juz zaliczeniowy egzamin;/ dostalem z programowania 3 zadania ktore podalem nizej prosze o napisanie mi gotowego schematu za ktory naturalnie zaplace.
moje gg : 4146610
@ : krzysieks2009@o2.pl
proponowal bym zad. 2 ale niekoniecznie.
Zadanie 1
Narysuj schemat blokowy algorytmu liczenia pierwiastków równania kwadratowego: Ax2 + Bx +C = 0, oraz napisz i uruchom program realizujący ten algorytm. Program powinien zawierać komentarze opisujące wykonywane czynności. Dane A, B, C do programu użytkownik wprowadza z klawiatury. Zadbaj o czytelny i przejrzysty wygląd wyświetlanych na monitorze wyników.
Zadanie 2
Napisz program, który będzie wykonywał wybrane operacje statystyczne. Dane do programu użytkownik wprowadza z klawiatury. Program powinie zawierać (zrealizowane za pomocą bloku case ) menu:
1 : pobierz dane
2 : oblicz średnią arytmetyczną
3 : oblicz wariancję
4 : oblicz element największy
5 : oblicz element najmniejszy
W programie wykorzystaj podprogramy typu funkction. Program powinien zawierać komentarze opisujące wykonywane czynności. Zadbaj o czytelny i przejrzysty wygląd wyświetlanych na monitorze wyników.
Zadanie 3
Napisz procedurę, która dodaje wartości dwóch zmiennych tablicowych tego samego typu (array[1..10] of Byte) i program demonstrujący jej działanie. Program powinien zawierać komentarze opisujące wykonywane czynności. Dane do programu należy wygenerować losowo. Zadbaj o czytelny i przejrzysty wygląd wyświetlanych na monitorze wyników.
![Zdjęcie](https://www.forum.tweaks.pl/public/style_images/master/profile/default_large.png)
Zlece napisanie banalnego schematu w turbo pascalu
Rozpoczęty przez
krzysiekkk88
, 26 11 2007 20:23
5 odpowiedzi w tym temacie
#1
Napisano 26 11 2007 - 20:23
#2
Napisano 28 11 2007 - 20:35
Rzeczywiście banalne. Takie coś na egzamin.
Wystarczyło by jakbyś odpalił google a nie płacił innym.
![;(](/public/style_emoticons/default/wink.png)
#3
Napisano 04 12 2007 - 12:11
Program Rownanie_Kwadratowe;uses crt;var a,b,c,delta,x1,x2:real; lin:real;begin repeat clrscr; writeln('Podaj wspolczynniki rzeczywiste a,b,c:'); readln(a,b,c); if a=0 then begin writeln('Gdy a=0 to rownianie nie jest kwadratowe!
'); writeln('Jest to rownanie linowe. '); lin:=c/ b; lin:= -lin; writeln('Wynik rownania liniowego wynosi:',lin:10:2); end else begin delta:=sqr(<img src='http://www.forum.tweaks.pl/public/style_emoticons/<#EMO_DIR#>/wink.png' class='bbc_emoticon' alt=':(' />-(4*a*c); if delta=0 then begin x1:=-b/(2*a); writeln('Pierwiastek wynosi: x0=',x1:3:2); end else begin if delta>0 then begin x1:=(-b-sqrt(delta))/(2*a); x2:=(-b+sqrt(delta))/(2*a); writeln('Pierwiastki wynosza: x1=',x1:3:2,' x2=',x2:3:2); end else writeln('Rownanie nie posiada rozwiazan rzeczywistych'); end; end; writeln('Delta wynosi: ',delta:4:2); writeln; writeln('Nacisnij dowolny klawisz aby kontynuowac lub ESC aby zakonczyc...'); repeat until keypressed; until readkey=#27;end.
#4
Napisano 04 12 2007 - 13:20
Dzieki
) a czy mogl bys dodac jesczze te komentarze opisujace dzialanie ?
![:(](/public/style_emoticons/default/wink.png)
#5
Napisano 04 12 2007 - 14:58
Dzieki
) a czy mogl bys dodac jesczze te komentarze opisujace dzialanie ?
Wysil wyobraźnię..., a jak nie dasz rady to pomogę...
![:(](/public/style_emoticons/default/wink.png)
#6
Napisano 04 12 2007 - 16:16
moja wiedza w turbo pascalu jest podstawowa ja sobie umiem wytlumaczyc o co tu chdzi i co jets za co odpowiedzialne ale pisząc komentarz do danej procedury chyba nie opisal by tego za dobrze wiec jesli bys mogl ... byl bym wdzieczny .... hm i tak juz jestem
![:(](/public/style_emoticons/default/wink.png)
Użytkownicy przeglądający ten temat: 1
0 użytkowników, 1 gości, 0 anonimowych