FORUM DH-zone.com

witam zna sie moze ktos na tym bo ja nie mam zielonego pojecia o co chodzi mam takiego debilnego nauczyciela ze wogole go nie kumam o co mu chodzi :/ mam napisac 3 programy i kompletnie nie wiem o co chodzi, jak sie do tego zabrac :/ moze ktos z was mi pomoze i przy okazji napisze dlaczego tak a nie inaczej bede bardzo wdzieczny ;)

a wiec zadania wydladaja nastepujaco:

1)
napisz program sprawdzajacy ilosc cyfr wprowadzonej liczby naturalnej

1 2 3 4 -> (4)
1 4 -> (2)

2)
napisz program obliczajacy silnię zadanej liczby

3! = 1*2*3
4! = 1*2*3*4 itd.

3)
napisz program sprawdzajacy czy wprowadzony ciąg znaków jest PALINDROMEM

kajak -> (TAK)
zaraz -> (TAK)



z gory wielkie dzieki za pomoc

POZDRO!!

pomogl by ktos :(

K.urwa, dziecinnie proste ale mi się nie chce. ;-) Nie wiem, ale skoro ja skumałem o co biega to nie sądzę aby nauczyciel był debilny...

pisalem ze nauczyciel nie umie tego wytlumaczyc

bodzio2k moze tobie jakos lepiej to łba wchodzi mi jakos nie chce ;]

Ale mu chodzi o program który to bedzie potrafił zrobić, załapać to każdy głupi potrafi ;P

MoZe na jakimś forum informatycznym spróbuj??

bardzo prosta sprawa...napisalem Ci te programy, ale przesle je jutro z rana lub gdy wroce ze szkoly, teraz juz nie mam czasu:) pozdr

napisalem w pascalu bo nie mam Dev c++ i nie chcialo mi sie sciagac...ale w dev wyglada to analogicznie, tylko skladnia jest ciut inna, ale to sobie juz poprawisz:)
here u are:
----------------------------------------------
program silnia;
uses crt;
var
lancuch, pal : string;
i : integer;
begin
clrscr;
writeln('Podaj ciag znakow:');
readln(lancuch);
for i:=length(lancuch) downto 1 do
pal:=pal+lancuch;
if pal=lancuch then
writeln('Podany ciag jest palindromem') else
writeln('Podany ciag nie jest palindromem');
repeat until keypressed;
end.
----------------------------------------------
program lancuchy;
uses crt;
var
i,l,s : integer;
begin
clrscr;
writeln('Podaj liczbe:');
readln(l);
s:=1;
for i:=1 to l do
s:=s*i;
writeln('Silnia podanej liczby to:');
writeln(s);
repeat until keypressed;
end.
----------------------------------------------