Referacik na infe xD

[Tur! 0]

Witam wszystkich mózgów

 

Robie referacik z infy (niestety obowiązkowy )

z pierwszymi punktami bez problemowo.. gorzej z ostatnią dwójką

 

5. Napisz procedurę, która dla dwóch liczb całkowitych obliczy ich NWD.

6. Napisz procedurę, która rozwiązuje równanie kwadratowe ax^2-bx+c=0

 

Wiem jak napisać funkcję która obliczy NWD.. ale ja mam napisać procedurę.. i nie wiem czy to jest to samo co funkcja czy nie?

 

co do 6-tego.. to jestem zielony... nie mam pojęcia jak się w ogóle zabrać.

 

W Turbo Pascalu siedzimy od początku roku (w teorii... bo w praktyce 2-2.5 miesiąca)

 

I teraz.. to ma być jeszcze w formie referatu... więc no nie wiem jak to zrobić... z góry dzięki za pomoc

 

dla 5-tego funkcja na NWD to:

 

program olbNWD;

var c,d,w:integer;

 

function NWD(a,b:integer):integer;

var wynik:integer, i:integer, min:integer;

begin

i:=1;

wynik:=1;

if(a<b)then min:=a

else min:=b;

while(i<=min)do

begin

if(a mod i=0) and (b:mod i=0)then wynik:=1

i:=i+1;

end

NWD:=wynik;

end;

begin

writeln('bla bla bla cyferke 1');

readlnŠ;

writeln('bla bla bla cyferke 2');

readln(d);

w:=NWD(c,d);

writeln('to jest', w);

end.

 

i co z tym zrobić, jak zamienić to na procedure? - z góry THX master'owie

[januzi 24]

procedura to to samo co funkcja, tylko jest zapisana jako procedure i nie ma wyjscia

[Tur! 0]

Wybacz, jeżeli zadaje ułomne pytania, ale nie chce tego spaprać..

 

czyli jak mam to napisać w tym referaciku?

przepisać to na papier?

 

function NWD(a,b:integer):integer;

var wynik:integer, i:integer, min:integer;

begin

i:=1;

wynik:=1;

if(a<b)then min:=a

else min:=b;

while(i<=min)do

begin

if(a mod i=0) and (b:mod i=0)then wynik:=1

i:=i+1;

end

NWD:=wynik;

end;

[Tur! 0]

Wybaczcie za post pod postem.. ale potrzebuje to na jutro ;/

any ideas?

[mieszek 0]

function NWD(a,b:integer):integer;

procedure NWD(a,b;integer; var nwd:integer)

[mr262560 0]

Wybacz, jeżeli zadaje ułomne pytania, ale nie chce tego spaprać..

 

czyli jak mam to napisać w tym referaciku?

przepisać to na papier?

pisanie procedury do tego jest troszke bez sensu i zgodne z archaicznym pascalem...

mozna jednak zamienic po prostu nagłówek Twojej funkcji na

procedure NWD(a,b:integer; var wynik:integer);

i wywalić zmienna wynik z normalnego var'a tej teraz "procedury"..

[revcorey 0]

Tur! sie pyta jak napisać ten referat. A nie o implementacje chodz dobrze że ją sprawdziliście ( a nóż cos mu umknie) no cóż tu może być trochę ciężko bo tu humanistów nie uświadczy ale mi się zdaje że powinieneś sobie to na kartke przepisać a najlepiej jak byście mieli w szkole rzutnik i nim byś się mógł wspomagać w jakimś tam stopniu takie moje rady ale wiedz humanistą nie jestem i zapan brat z polskim też

[Tur! 0]

Znalazłem takie coś:

 

6. Procedura, która rozwiązuje równanie kwadratowe ax2+bx+c=0

(a,b,c - liczby rzeczywiste są parametrami wejściowymi)

 

program trojmian;

uses crt;

var

a,b,c,delta,x0,x1,x2:real;

procedure trojmianu;

begin

clrscr;

Writeln('Podaj wspolczynniki trojmianu ax^2 + bx + c');

readln(a);

readln(b);

readln©;

delta:=b*b-4*a*c;

clrscr;

if delta>0 then begin

writeln('Delta = ',delta:10:2,', czyli Delta > 0 , wiec :');

x1:=(-1*b-sqrt(delta))/(2*a);

x2:=(-1*b+sqrt(delta))/(2*a);

writeln('Miejscami zerowymi trojmianu kwadratowego sa : ');

writeln('x1 = ',x1:10:2,' oraz x2 = ',x2:10:2);

end;

if delta=0 then begin

writeln('Delta = 0 , wiec :');

x0:=(-1*b)/(2*a);

writeln('Miejscem zerowym, podwojnym, jest x0 = ',x0:10:2);

end;

if delta<0 then begin

writeln('Delta = ',delta:10:2,' czyli Delta < 0 , wiec nie ma miejsc zerowych');

end;

end;

begin

trojmianu;

readln;

end.

 

nie wiele z tego rozumiem.. ale przepisze to.. zobaczymy czy może być xD