Prosím o radu – Pascal – Fórum – Programujte.com

 Dobrý den, mám následující program. Zadání je, abych do vstupu napsal jakákoli čísla dat. typu longint ukončená nulou a následně se přes funkci vypíše, zda li je číslo palindrom či ne (čte se stejně od zadu jako od předu...). Funkci jsem myslím napsal dbře, jen potřebuji poradit jak s tím, aby mi funkce projela všechny zadané hodnoty a až poté je vypsala??? Přikládám svůj zdrojový kod. Předem moc děkuji!

program palindrom;

var cislo,ib,c,d,: longint;

function pal(cislo:integer): longint;

begin b:= cislo; c:=0;

if cislo <> 0 then repeat

d:= cislo mod 10;

c := c*10 + d;

cislo := cislo div 10 until cislo=0;

if c=b then writeln(b);

end;

begin repeat readln(cislo);

 until cislo = 0;

end;

end.
 

#1 Buránek
V tom programu máš sysntaktické i logické chyby, nejde ani přeložit, máš pracovat s longintem, do funkce ale předáváš integer, používáš funkci která ale nic nevrací, navíc ji v hlavním programu ani nezavoláš, takže to vlastně vůbec nic nedělá...

Tvůj dotaz je navíc zmatený, funci máš navrženou na jedno číslo, nic se nikam neukládá, takže zařídit, aby "funkce projela všechny zadané hodnoty a až poté je vypsala" nelze nijak. Navíc u takovýchto školních zadání se nic podobného ani neočekává - většinou se pro každé zadané číslo rovnou vypisuje výsledek, pokud bys to chtěl opravdu až vše na závěr, musel by sis všechna ta zadaná čísla ukládat (třeba do pole)

Až ten program opravíš, aby šel přeložit a tu funkci volal, tak ti to pro každé zadané číslo buď nevypíše nic nebo zopakuje zadané číslo (nemělo by to raději vypsat něco jako: zadané číslo je/není palindrom???)

#2 JoDiK
Jo a pokud bys chtěl panu učiteli udělat radost, tak když už to máš navržené pomocí funkce, tak ji uprav tak, že funkce jenom zjistí stav a vrátí logickou hodnotu ano/ne. V hlavním programu pak teprve vypisuj, co ta funkce pro zadané číslo zjistila. (Funkce tohoto typu by neměly nic vypisovat)

Pardon, špatně jsem z Pascalu opsal zdrojový kod, na konci mi chybí volání funkce...

stejné datové typy u funkce jsem opravil, obojí mám longint. Jen prosím, potřeboval bych tedy at se mi to vypíše pak vše na jednou, jak to zadám přes to pole?

Děkuji.

#4 Buránek

špatně jsem z Pascalu opsal zdrojový kod

Co jsi odkud opisoval?

Každopádně si nejdřív ověř přesné zadání, u těchhle jednoduchých úloh se málokdy očekává práce s polem, ať neděláš něco zbytečně...

A kdybys to jo chtěl, tak ne "jak to zadám přes to pole", ale ta zadávaná čísla si postupně ukládej do pole a až narazíš na ukončovací nulu, tak to pole celé projeď a vypiš co a jak...