pomoc s programom v pascale

susana · Napísal **susana**: 31.03.2010 15:09

Potrebujem pomôcť s týmto program. Niečo som sa už snažila urobiť, asi to nebude všetko správne, tak vás prosím o pomoc.
Napíšte program, ktorý pre zadnú hodnotu priemer vypočíta objem guľového zásobníka na vodu. Výsledná hodnota bude vypísaná na obrazovku v kubických metroch aj v litroch. Ďalej predpokladajme, že tento zásobník je umiestnené v púštnej osade, v ktorej žije n osadníkov. Program vypíše, na koľko dní vystačí voda pri spotrebe 10 litrov na osobu a deň.

Kód:

program zasobnik gule;
const Pi = 3,14;
var r, V: real;
n, dni: integer;
begin
writeln ('Priemer gule v metroch, d = ');
readln (d:);

r:d/2;

V:=4/3*Pi*r*r*r;
writeln;
writeln('Objem v metroch kubickych V ='V:5:2);
writeln('Objem v litroch:'(V*1000)5:2);
writeln('Koľko osôb je v pusti:');
readln(n);

| Kody vkladaj do znacky [code]. Ďuri

Ďuri · Napísal **Ďuri**: 31.03.2010 15:19

Zislo by sa napisat, aku chybu pise kompilator alebo co program robi zle.
Na prvy pohlad vidim chybu v zapise desatinneho cisla, pouziva sa desatinna bodka, nie ciarka. Plus tam dalej v readln(d:) mas zrejme navyse tu dvojbodku, riadok nizsie ti chyba znak rovna sa.

Logik · Napísal **Logik**: 31.03.2010 16:18

Tu to mas spravene, tvoje vypocty som nekontroloval, predpokladal som ze su spravne...

Kód:

program zasobnik;
uses crt;
const Pi = 3.14;
var r, V, d, l, dni: real;
n: integer;
begin
clrscr;
writeln ('Priemer gule v metroch, d = ');
readln (d);

r:=d/2;

V:=4/3*Pi*r*r*r;
writeln;
writeln('Objem v metroch kubickych V =',V:5:2);
l := (V*1000);
writeln('Objem v litroch:',l:5:2);
writeln('Kolko osob je v pusti:');
readln(n);

dni  := l/10;
writeln('Dane mnozstvo tekutiny vystaci ',dni:5:0,'dni.');
readln;
end.

susana · Napísal autor témy **susana**: 31.03.2010 17:15

program mi vypočíta koľko je to m3 aj litre ale tie dni mi nepočíta, vždy mi vyskočí 0. Skúšala som to meniť ináč, ale nefunguje.

Logik · Napísal **Logik**: 31.03.2010 17:19

Tak zadaj ine parametre. Mne to funguje. Daj napriklad priemer gule 1 a pocet osob 45. Vyhodi 52 dni.

susana · Napísal autor témy **susana**: 31.03.2010 17:59

A koľko ti tam vyšlo litrov? ak tam vyšlo 523 litrov, tak 52 dni voda vydrží, ale pre jedného človeka, nie pre 45 ľudí. Ak na to idem logicky.

Logik · Napísal **Logik**: 31.03.2010 18:30

Mas pravdu, som si to neuvedomil som to narychlo robil. Zabudol som to vydelit poctom ludi. Tento zdrojak uz funguje:

Kód:

program zasobnik;
uses crt;
const Pi = 3.14;
var r, V, d, l, dni, pom: real;
n: integer;
begin
clrscr;
writeln ('Priemer gule v metroch, d = ');
readln (d);

r:=d/2;

V:=4/3*Pi*r*r*r;
writeln;
writeln('Objem v metroch kubickych V =',V:5:2);
l := (V*1000);
writeln('Objem v litroch: ',l:5:2);
writeln('Kolko osob je v pusti:');
readln(n);

pom  := l/10;
dni := pom/n;
writeln('Tekutina vystaci pre 1 cloveka ',pom:5:0,' dni.');
writeln('Tekutina vystaci pre ',n,' ludi ',dni:5:0,' dni.');
readln;
end.

susana · Napísal autor témy **susana**: 31.03.2010 18:30

Už som prišla na chybu. ten príkaz, ktorý počíta počet dní má vyzerať takto:
dni:=l/(n*10). Potom to počíta správne. Ale aj tak ti ďakujem za príklad - ostatné mi všetko sedelo. Ok funguje to aj tak. Vďaka.

Logik · Napísal **Logik**: 31.03.2010 18:33

no ano, aj tak sa da...

Gregi555 · Napísal **Gregi555**: 06.04.2010 15:22

a co tak takto (trosku elegantnejsie a uspornejsie):

Kód:

program ZASOBNIK;
uses crt;
var
  r,V,d,dni: Real;
  n: Word;

BEGIN
  ClrScr;
  Write ('Priemer zasobnika v metroch: ');
  ReadLn (d);
  Write ('Kolko osob je v pusti?: ');
  ReadLn (n);
  r:=d/2;
  V:=4/3*Pi*r*r*r;
  dni:=V*100/n;
  WriteLn ('Objem v m3: ',V:5:2);
  WriteLn ('Objem v litroch: ',V*1e3:5:2);
  Write ('Tekutina vystaci pre ',n,' ludi ',dni:5:2,' dni.');
  ReadLn;

END.

Logik · Napísal **Logik**: 06.04.2010 18:15

sa ti to vykrášľuje, keď to už funguje

pomoc s programom v pascale

Podobné témy