Pascal

Ievietoja: Zjii @ 2009.10.15 19:27

Kas man nav pareizi?Programmu palaiž,bet nerēķina laukumu.

program trapece;
var a,b,h: integer;
S: real;
begin
S:= (a+b)*h/2;
writeln ('Ievadit pirmo trapeces pamata malas garumu!');
readln (a);
writeln ('Ievadit otro trapeces pamata malas garumu!');
readln (b);
writeln ('Ievadit trapeces augstuma garumu!');
readln (h);
writeln ('Trapeces laukums=');
S:= (a+b)*h/2;
readln (S);
writeln (S);
If a>2*b then writeln ('a>2b');
end.

Komentāri:

#1 ob1 @ 2009.10.15 19:31

Tādus murgus es sen nebiju redzējis...
Varbūt pamēģini progu rakstīt skaidrā?

#2 Zjii @ 2009.10.15 19:36

ja tur būtu murgs tad vi;nu nemaz nepalaistu ..viss ir pareizi izņemot to kas ir pēc- Trapeces laumums....
Un varēji arī bez uzbraucieniem,es te lūdzu palīdzību nevis kritiku,ne vkisi jav var būt pro...

#3 nuucha @ 2009.10.15 19:36

es paskālu esmu kniberējis ļoti ĻOTI sen atpakaļ, bet pie visas savas loģiskās domāšanas pat uzreiz sapratu kur te ir problēma!

Varbūt pamēģini laukuma formulu ielikt PĒC visām ievades procedūrām?
šobrīd sanākka tev proga vispirms izrēķina laukumu no neesošiem datiem un tikai pēc tam paprasa vajadzīgos lielumus! :)

#4 Zjii @ 2009.10.15 19:38

ķipa to kas pēc begin izņemt ārā? man šķiet tāpat nedarbojās..varbūt varat atrast man kļūdu pēc rindas -writeln ('Trapeces laukums=');

#5 nuucha @ 2009.10.15 19:40

1) augšā nevaja to formulu!
2) nafig pēc tam kad sarēķināta formula pēc ievades tur ir readln(S)??? Dzēs nost!
3) pēc writeln (S) iraksti prosta readln; lai proga parāda normaļi rezultātu un sagaida enter un tad izslēdzas. tagad sanāk ka tev viņa veras uzreiz ciet.
4) saliktajās darbības iesaku veikt atsevišķi, jo Paskāls mēdz niķoties šādu darbību izpildē! teikism ievies vēl mainīgos kaka1 un kaka2:integer un tad sadali laukuma formulu:
kaka1:=a+b;
kaka2:=kaka1*h;
S:=kaka2/2;

nu tā apmēram

#6 Zjii @ 2009.10.15 19:42

paldies liels :) iemēģināsu.

#7 ob1 @ 2009.10.15 19:48

Kļuda tev ir DNS-ā. Točna zinu

#8 Zjii @ 2009.10.15 19:55

riebeklis..

#9 Zjii @ 2009.10.15 19:55

paldies,nuucha-viss aizgāja ;)

#10 Knight @ 2009.10.15 20:05

ahujela - programmeris.....
un kas pie joda ir "Trapeces laumums", kaa arii par teemas nosaukumu... vispaar nerunaasim...

varbuut apmeklee latvieshu valodas stundas?

#11 Zjii @ 2009.10.15 20:14

Knight- neesi bik nekaunīgs? Atradis kur piesieties,šausmas,laikam pats nekad neesi kļūdījies rakstot.Ja tā-tad apbrīnoju tevi-supercilvēks!
Tādiem cilvēkiem, kā tu- kas māk tikai kritziēt,piekasīties kādam, nav vietas forumos..

#12 KaNeiet @ 2009.10.15 22:09

Ja gribi te vēl kādreiz ko rakstīt, izlasi http://datuve.lv/noteikumi/ un izlabo tēmas nosaukumu

Datuve

Mana Datuve

Forums

Ieskaties

Raksti

Lietotāji online

Pascal

Komentāri: