Datuve :: Forums :: Arhīvs :: Pascal Uzdevumi

Datuve

Mana Datuve

Reģistrācija | Noteikumi | Paroles atjaunošana



Forums

Ieskaties

prāta darbnīca PrātaDarbnīca.lv - par interesanto visapkārt

hc hc.lv - kultūras portāls

Reklāma portālā


Raksti

Lietotāji online

Lietotāji online: 113

Reģistrētie lietotāji online: 0

Viesi online: 113

Datuve.lv video
Top.LV

Pascal Uzdevumi

Ievietoja: bamslitis @ 2008.06.17 09:46  

Vai ir kāds kurš piekristu izpildīt 3 pascala uzdevumus par samaksu :)
p.s rakstit PM

Komentāri:

#1 Osy @ 2008.06.17 10:30

kādi ir tie uzdevumi?

#2 bamslitis @ 2008.06.17 11:06

Nekādi pārāk grūtie jau nav, ja kcik saprot no paskāla
Bet man ar to saprašanu paskālā kā nu ir tā ir...:(
Ja gribi paskatities kādi ir tie uzdevumi vari iedot epastu

#3 BlowMagnum @ 2008.06.17 12:13

Nekautrējies, liec tepat, moška kāds pa brīvu palīdzēs ;)

#4 bamslitis @ 2008.06.17 12:34

http://yy.lv/upload/index.php?ACT=4&f=140237&ext=DOC

#5 BlowMagnum @ 2008.06.17 12:57

Nebūs īsti pareizi, bet domu cerams sapratīsi (1.uzd)
Drošvien ka A un B nebūs string, bet gan Real ...

Program AunB;

var

     A : string[30];
     B : string[30];

begin
       
     write ('Ievadi A ');
     readln (A);
     write('Ievadi B');
     readln (B);
     writeln ('A='A + 'B='B);
     if A<B then
     writeln ('rezultats'A + '<' + B)
     else if A>B then
     writeln ('rezultats'A + '>' + B);

     writeln( 'Starpiba=' A - B );
     writeln('Videjais=' A+B/2);

end.

#6 KaNeiet @ 2008.06.17 13:03

A+B/2 gan nebūs vidējais, jālieto iekavas;
starpībai vēlams būt pozitīvai, jālieto modulis.