Pascal - stupidní problém
Napsal: 07 bře 2013 08:31
Zdravím, asi Vám tento problém přijde stupidní, ale já nevím jak toto vyřešit.
Udělal jsem si program, který má vypočítat třetí mocninu čísel od 1 do 10 + vám pak vypočítá součet všech celých čísel od 1 do n. Zatím jsem teprve u té mocnin, ale již zde mám problém.
V posledním řádku, když chci vypsat mocninu, tak mi překladač hlásí chybu, že za slovem mocnina očekával tečku, ale našel závorku, poradíte mi s tímto problémem? Děkuji
Udělal jsem si program, který má vypočítat třetí mocninu čísel od 1 do 10 + vám pak vypočítá součet všech celých čísel od 1 do n. Zatím jsem teprve u té mocnin, ale již zde mám problém.
Kód: Vybrat vše
program project1;
uses crt, mocnina;
var n:integer;
procedure NactiVstupOdUzivatele;
begin
write('Zadej cele cislo n: ') ;
read(n);
end;
begin
write('Tento program vam vypise tabulku tretich mocnin cisel od 1 do 10');
write(' + soucet vsech celych cisel od 1 do zvoleneho cisla n');
writeln('treti mocnina cisel je: ');
write(mocnina);
end.
V posledním řádku, když chci vypsat mocninu, tak mi překladač hlásí chybu, že za slovem mocnina očekával tečku, ale našel závorku, poradíte mi s tímto problémem? Děkuji
