Nenapisal si podstatnu vec. Co ma ten program akoze robit. Takze som sa pokusil dedukovat z udajov, ze sa jedna o vypocet ceny zajazdu ak je dana cena celeho zajazdu, ktora je rozpocitavana na pocet ucastnikov. V Tomto pripade tam ale vobec nema vyznam ten cyklus FOR. Preto ak to ma byt riesenie ine, napis ake.
PS: min. 1 problem v tom Tvojom programe je presne co uz pisal tu kolega, ze najprv nacitas dajaku premennu, no nasledne ju zmenis cez cyklus na uplne inu. Toto sa nerobi, iba ak chces zmiast nepriatela, alebo beries tazke antidepresiva
Kód:
program ZAJAZD;
uses Crt;
const
cena = 340; {konstanta}
var
ludi: Word;
vysledok: Real;
BEGIN
{vymazeme obrazovku}
ClrScr;
Write ('Kolko ludi bude ubytovanych? :');
{nacitame pocet ludi do premennej 'ludi'}
ReadLn (ludi);
{cena na osobu = cena deleno pocet ludi}
vysledok:=cena/ludi;
{vysledok vypiseme vo formate 5 znakov (vratane .) z toho 2 za des. ciarkou}
WriteLn ('Jeden cestujuci zaplati ',vysledok:5:2,' eur.');
ReadLn;
END.
