Pomoc - programski jezik pascal - zadaci!!!

[Sajo---:]

...

[Sajo---:]

...

[Sajo---:]

...

[Prpa.ba]

Sabur

[Sajo---:]

...

[predator]

Kol'ko cekas da ti ih neko uradi, mogao si dvadeset ovakvih dosad napraviti. Fakat ovo su ti trivijalne stvari, prirucnik za pocetnike u sake i uradices ih do petka sigurno. A i naucices.Ili ako ti je dzep dublji mozemo se dogovoriti

[Sajo---:]

...

[Saian]

kakvog petka Tito dragi, to ako ima jedno 7 godina, do sutra u 12, idi bolan prelistaj ne moras ni chitat, preleti prvih 20 strana bilo koje Pascal knjige ma bilo koje knjige o programiranju ba i to je to

[Sajo---:]

...

[Panasonic]

1)napisat program kojim se vrsi prevodenje iz galona u litre,ako je 1 galon= 4,54 litra


2) napisat program koji u zavisnosti od koeficjenta kvadratne jednacine racuna i ispisuje rjesenja iste


3) napisat program koji trazi da se sa tastature unese realan broj a potom ispisuje njegov cjeli i decimalni broj


4) napisati program kojem na osnovu unesenih koordinata a sektor x1x2 i b sa kordinataama y1y2 ispisuje jednacinu prave kroz te tacke

Ako ce ti sada biti od koristi, da ti odgovorim:
Prvi zadatak:

program prvi(input,output);
var a,b,c:real;
begin
writeln('Unesi litre:');readln(a);
c:=a*4.54;
writeln(a,' litara je ',c,' galona.');
readln;
end.

2. i 4. zadatak isto ovako radis, samo umjesto c:=a*4.54 stavis ovo:
(za drugi)
x1:=(b*(-1)+sqrt(b*b+4*a*c))/2*a;
x2:=(b*(-1)-sqrt(b*b+4*a*c))/2*a;

(za cetvrti zadatak)
stavi ovo:
x-x1=(y2-y1)/(x2-x1)*(y-y1)

A evo treci zadatak, posto se razlikuje od ostalih:
program treci(input,output);
var a:real;
b:integer;
begin
writeln('Unesi realan broj:');readln(a);
writeln('Cijeli dio:',trunc(a),' decimalni dio:', a-trunc(a));
readln;
end.

Pozdrav, nadam se da sam ti uspio pomoci.