program pascale

nazdar chlapci ....mam ulohu v pascale ...Napiste program na vypocet sucinu prirodzenych cisel A a B pomocou scitovania....som v tom programe noob tak by ste mi mohli napisat ako to ma byt

Niečo takéto (ak som sa nepomýlil):

Kód: Vybrať všetko

var
  a, b: Integer;
  i, s: Integer;

begin
  a := 10;
  b := 12;

  s := 0;
  for i := 1 to b do
  begin
    s := s + a;
  end;
  Writeln(a, ' * ', b, ' = ', c);
end.

to c je co lebo to vo var neni

To malo byť s.

ale nejak to nefunguje ...nejde to spustit

Keby si sem dal chybu, ktorú ti vypisuje pri kompilovaní, tak ti možno poradím (momentálne totiž nemám Pascal).

JurijRubanov

Povedal by som, že na začiatku musí byť niečo takéto:

Kód: Vybrať všetko

program nasobenie;

JurijRubanov napísal:Povedal by som, že na začiatku musí byť niečo takéto:
Kód: Vybrať všetko
program nasobenie;

Nemusí (aspoň v BP)

(ale ak sa to tam pridá, tak to ublížiť nemôže)

JurijRubanov

Program funguje, len nech si chlapec stlačí Alt+F5 a uvidí výsledok. teda v BP ovšem.

Chrono: Nikdy som si neuvedomil, že to ide aj bez toho program

Diky.

no mne tam nevypisuje ziadnu chybu iba nespuisti dany program normalne skusam ctrl+f9 ale nic nejde
a co to je BP??

Ten program len vypíše číslo, a hneď sa aj skončí. Skús tam pridať

Kód: Vybrať všetko

Readln;

(alebo niečo, aby si ten výpis aj videl; alebo v TotalCommanderovi pri spúštaní toho programu stlač <Shift+Enter> [a nie iba <Enter>])

BP - Borland Pascal

funguje to ale ja to potrebujem tak, ze ked spustim ten program tak mi napise ze npr zadaj dve cisla ..ja ich zadam a az potom mi to vypocita

Tak tam na začiatok pridaj niečo ako:

Kód: Vybrať všetko

Write('Zadaj prve cislo: ');
Readln(a);
Write('Zadaj druhe cislo: ');
Readln(b);

a odstráň

Kód: Vybrať všetko

a := 10;
b := 12;

a nie uz to ide diki chalpci

Pridal si na koniec nejaký príkaz, aby to počkalo na stlačenie klávesu? Napr.

Kód: Vybrať všetko

Write('Pre skoncenie programu stlacte [ENTER]');
Readln;

nie sak to urbi automaticky po stlaceni enter-u to vypne vzdy

Keď to dáš na koniec programu, tak sa po spustení postupne vypýtajú dve čísla. Potom sa zobrazí výsledok a nakoniec sa zobrazí ten reťazec vyzývajúci k stlačeniu ENTER. (ale dávať to tam nemusíš, ako nechceš)