Procedury w Turbo Pascalu.

[krzywy1607]

Witam. Mam do napisania referat. Z punktami teoretycznymi raczej sobie poradze, ale sa tez programy do napisania ;/ Strukture procedury znalazlem ale nie jestem pewien. Czy tak wyglada struktura procedury:
::=
procedure [()];




begin

end;
?
No i teraz zadanka:
1.Napisz procedurę, która dla liczby całkowitej n sprawdzi czy jest ona pierwsza.
2. Napisz procedurę, która dla dwóch liczb całkowitych obliczy ich NWD.
3.Napisz procedurę, która rozwiązuje równanie kwadratowe \(\displaystyle{ ax^{2}+bx+c=0}\)
(a,b,c - liczby rzeczywiste są parametrami wejściowymi)

Co do zadania 1 i 2. Czy jest jakies podobieństwo z do funkcji w TP ? Jesli tak to jakie. Co musiałbym pozmieniac. To nawet sam bym je zrobił

Z góry dziekuje. Pozdro.

[kolanko]

Co do NWD to wyglada nastepujaca ...

program NWD;
uses crt;
var a,b:integer;
procedure nwd;
begin
clrscr;
writeln ('Wprowadz dwie liczby:');
readln (a,b);
repeat
if (a>b) then a:=a-b
else
b:=b-a;
until a=b;
writeln ('NWD wynosi: ',a);
begin
wreiteln('Program do obliczania NWD dwoch liczb');
readln;
end.

Mam nadzieje ze sie nie pomylilem ... Pisalem bez kompilatora

[krzywy1607]

Dzieki. Gdybys mogl to zrob pozostałe. Bede wdzieczny.

[kolanko]

1 zadanie zrobie po mojemu

program pierwsza;
uses crt;
var
a,b,c,d:integer;
procedure lpierwsza;
begin
clrscr;
writeln('Podaj liczbe');
readln(a);
for b:=2 to a-1 do
begin
if a mod b = 0 then c:=c+1;
end;
if c>0 then writeln('Liczba nie jest pierwsza');
if c=0 then writeln('Liczba jest pierwsza');
readln;
end;
begin
c:=0;
Writeln('Program do sprawdzania czy podana liczba jest pierwsza');
lpierwsza;
end.

Tez nie dam sobie reki uciac ze chodzi...
Wnioslem poprawke ....

[krzywy1607]

W tym z NWD brakuje gdzies ";" tylko nie wiem gdzie ;/
Drugi zaraz sprawdze

[ Dodano: 15 Kwiecień 2007, 10:41 ]
Drugie działa tylko ze jak chce się sprawdzic drugi raz czy liczba jest pierwsza to wyskakuje "error 200: division by zero "

[kolanko]

bede po 12 to Ci zmienie

[krzywy1607]

Ok. Czekam Chyba ze sam cos zrobie.

[ Dodano: 15 Kwiecień 2007, 11:20 ]
Ten bład to przez mojego pascala. Teraz juz mam dobra wersje. Ale NWD nie działa ;/

[Sokół]

Ale NWD nie działa ;/

sprawdz to:

[krzywy1607]

Juz mam te zadania A to co podales to bez procedury