[Pająk]

Potrzebuję bardzo pilnie pomocy w napisaniu kilku programów w pascalu, liczę na was.;)

1. Program który wczyta odp. wielkości typu real i obliczy pole trapezu 0,5(a+b)*h.
2. Program który wczyta wartość n typu integer a następnie obliczy wartość sumy: Suma od i=1 do n 1/i.
3. Program który wczytuje z klawiatury liczby typu integer do momentu naciśnięcia klawisza * i oblicza średnią arytmetyczną tych liczb.
4. Program który posługując się pojęciem funkcji obliczy pole trójkąta (0,5*a*h) gdzie a oraz h są wprowadzone z klawiatury i są typu real.

Z góry dziękuję za wszelką pomoc. Pzdr.

[rot10]

oj chlopie na kiedy to potrzebujesz? napisalbym ci to ale nie dzis bo musze robic jakas durna prezentacje na jutro

[SZKARŁATNIK]

ja kobieta lekkich obyczajów miałem pałe z pascala ale mój kumpel jest w tym zajebisty zobacze co da się zrobić

[Pająk]

Mam z tych programów zalkę w poniedziałek, więc najpóźniej potrzebuję na niedzielę rano, ale im szybciej tym prędzej.

[Yahoo]

kurcze prosciutkie programy, ale nie mam totalnie czasu i juz pascala wywalilem ale to jest naprawde prosciutkie

[SZKARŁATNIK]

[Yahoo]

program stefanek;
uses crt;

var
a,b,h: real;
pole: real;

begin

clrscr;

writeln('Podaj liczbe a');
readln(a);
writeln('Podaj liczbe b');
readln(b);
writeln('Podaj liczbe h');
readln(h);


pole:=(a+b)*h*0.5;


writeln('Wynik to ',pole:5:5);
readkey;

end.


to pierwszy programik tak szybciutko napisany, moze cos nie dzialac chyba dobrze skladnie pamietam. Pozdro

[COOLawik]

No proste strasznie , ale teraz tez nie mam czasu myśle że ktoś Ci to szybko zrobi

[kubawe]

Archiwum.

[rot10]

program nr 2

Program suma;
var
s: Real;
i, n: Integer;

Begin
writeln ('Podaj wartosc n');
readln (n);
s:=0;

for i:=1 to n do s:=s+1/i;

writeln ('suma = ',s);


End.

[rot10]

prdogrdam 4:

Program trojkat;
var a,h: Real;

Function pole(bok,wys:Real): Real;
Begin
pole:=0,5*bok*wys;
End;

Begin
writeln ('Podaj bok = ');
readln (a);
writeln ('Podaj wysokosc = ');
readln (h);
writeln ('Pole = ',pole(a,h));

End.

[rot10]

mam nadzieje ze nie ma gdzies literowek bo zalalem klawiature cherbata i mi pisze po 2 literki naraz

co do programu 3 bedzie za chwilkes tylko sciagne kompilator bo nie jestem czegos pewien

[Habibi]

[rot10]

no nawet nie wiesz ile sie musialem nameczyc zeby napisac jakis skladny tekst, ale juz mam nowo klawiature bo tamta nie przezyla proby czyszczenia

[Pająk]

Nie kłopocz się rot10, resztę już mam. Dziękuję wszystkim za pomoc.

[Yahoo]

jesli masz przez dluzszy czas pascala i tego nie potrafisz to lepiej szybko sie naucz, to najprostszy jezyk jaki moze byc wiec nie jest jakis tam okropny ale fakt ze nie wiem po ucza tego jezyka lepiej sie za C++ zabrac.

[JooreX]

heh ja tu sie spodziewalem dynamicznych struktur danych co najmniej

[Pająk]

Mów mi jeszcze.

[thomas]

[rot10]

a ja nie dokonca, bo zeby wziac sie za C++ ktore w swym zalozeniu jest jezykiem obiektowy, trzeba najpierw poznac podstawy programowania, aczkolwiek zgodze sie ze lepiej bylo by to robic na bazie jezyka C niz Pascala mimo iz C jest znacznie starszym jezykiem od TP, to skladnia C jest duzo bardziej przyjemna, tak wiec najpier C pozniej C++ lub C#. Ale wsumie nie wazne na bazie czego uczymy sie podstaw, bo tak naprawde chodzi o przestawienie sie na odpowiedni sposob myslenia