Turbo Pascal

[albert1991]

M�łgłbym was prosić o napisanie programu w pascalu obliczającego pole tr�łjkąta prostokątnego oraz program drugi ktory wystawi ocene majac podana liczbe punkt�łw: 80-100 bdb, 75-79 db, 60-74 dst, 50-59 dop, ,50 ndst.

[smalu]

Chcesz pom�łc młodszemu bratu w obliczaniu pola czy chodzi o zadanie domowe z informatyki ?

[Nimitz]

Mam dzisiaj dzie� dobroci dla leni. ;-) Moja propozycja wygl�da nast�puj�co:

PROGRAM Pole;
Var 
       opcja: string
       a: real;
       b: real;
       c: real;
       h: real;
       S1: real;
       S2: real;
       jednostka:string;
BEGIN
  Writeln ('Witam w programie obliczaj�cym pole tr�jk�ta prostok�tnego');
  Writeln ('Wybierz jednostk� (Jednostka d�ugo�ci w uk�adzie SI')
  Readln ('jednostka');
 Writeln ('Prosz� podaj d�ugo�ci bok�w tr�jk�ta gdzie a i b to przyprostok�tne lub przeciwprostok�tn� c i wysoko�� h');
  Writeln ('Jakie dane podajesz? 1-(a,b) 2-(c,h)');
  Readln (opcja);
If opcja = '1' Then
Writeln ('Podaj d�ugo�� a');
  Readln (a);
  Writeln ('Podaj d�ugo�� b');
  Readln (b);
  S1=(a*b)/2
  Writeln ('Pole tr�jk�ta ' , S1, , jednostka, ')
  Readln;
  
If opcja = '2' Then
  Writeln ('Podaj d�ugo�� c');
  Readln (c);
  Writeln ('Podaj wysoko�� h');
  Readln (h);
  S2=(c*h)/2
   Writeln ('Pole tr�jk�ta ' , S2, , jednostka, ')
  Readln;
END.

Chyba nie ma b��d�w, ale pisz� to z g�owy, bez sprawdzenia i chcia�em zaznaczy�, �e Pascala uczy�em si� �adnych kilka lat temu i bardzo kr�tko ;-)

Analogicznie zastusuj funkcj� If do ocen czyli dzielisz sobie na przedzia�y. Deklarujesz zmienn� "a" kt�ra jest liczb� punkt�w. Je�li przedzia� od tyle do tyle - komputer ma wy�wietlni� "dosta�e� bdb", je�li przedzia� od tyle do tyle to "dosta�e� dobry"
Kawa�ek kodu kt�ry proponuj� to:

Writeln ('Twoja ocena to ');
If (a >= 0) and (a < 25) Then
Writeln ('Niedostateczny (1)');

+ mo�esz doda� warunek "or" je�li kto� wpisze swoj� liczb� "a" w przedziale innym ni� 0-100 i analogicznie jak w funkcji if stosujesz zapis.

Powinno pasowa�, ale 100% gwarancji nie daj�, bo nawet nie mam zainstalowanego jakiego� kompilatora. Je�li zadzia�a prawid�owo podam Ci na PW adres na kt�ry masz mi wys�a� piwko ;-)

[albert1991]

Wielkie dzięki ...
Tak naprawdę jest to praca domowa dla mojej kumpeli...
Więc jak wszystko będzie dobrze...to dam znać za kilka dni :P

Pozdrawiam Albert

[Black]

Czy dzisiaj z kobietami umawia się dając im program, zamiast kwiat�łw? :P

[macol]

buehehe...
mi się te�ź tam zdarzało kole�źankom pisać programy do szkoły...

[albert1991]

Obiecałem to musiałem wykonać nie ma wyjścia

[Nimitz]

Lepiej mi powiedz, czy jeszcze pamietam jak się takie rzeczy pisze i co kole�źanka dostała

[krYsti]

Nimitz, na co Ty liczysz. Przecie�ź widzisz, �źe albert1991 musiał, to wykonał. Skoro on wykonał, to Ty nie będziesz wiedział czy pamiętasz jeszcze Pascala :mrgreen:

[Alpha]

czy mo�źe ktoś napisać mi program : aproksymacja wielomianowa metodą małych kwadratow ?? help

Nie sądzę:-D Albo się nie znam, albo niemo�źliwe jest napisanie programu z metodą małych kwadrat�łw...[lol]