1.Napisz program sprawdzający czy dany tekst jest palindromem

2.Napisz program wypisujący z tekstu wszystkie wyrazy zaczynające się na literę p i jednocześnie posiadające nieparzysta liczbę liter

Proszę o odpowiedź

Ad. 1.

Tak na pierwszy rzut oka lub pomysłu, zrobiłbym tak. Odczytujesz poszczególne litery do tablicy (pomijając spacje i inne znaki). Teraz sprawdzasz, czy pierwsza litera jest taka sam jak ostatnia, jeśli tak to przechodzisz do drugiej litery i przedostatniej. Postępujesz tak długo, ąz warunek w pętli nie będzie spełniony lub do końca znaków w tablicy.

Ad. 2.

Wczytujesz pokolei wyrazy i jeśli zaczyna sie na literę 'p' to sprawdzasz, czy ma parzysta liczbę liter. Musiałbyś jakąś funkcją sprawdzić ilość liter w wyrazie. Nie pamiętam jak to funkcja w Pascal'u. Jeśli nie to przechodzisz do nastepnego wyrazu.
Albo zczytywać pokolei znaki aż do trafienia na spacje lub inny znak (nie literę).

Tylko tyle potrafięna szybko wymysleć. Jak będziesz miał juz coś gotowego, a nie będzie działać, to wstaw tutaj kod. Może uda mi sięcoś wymyśleć. Dawno nie pracowałem w Pascalu, ale może coś sobie przypomnę.


wymiennik

wymiennik napisał/a

Jak będziesz miał juz coś gotowego, a nie będzie działać, to wstaw tutaj kod.

Tyle, że ja wogóle nie umiem tego napisac
Potrzebuję gotowego kodu...

Ha. Gotowego kodu niestety nie dostaniesz.
Skoro ktoś ci zadał takie zadanie, tzn. że powinienies mieć jakies podstawy. A to jużcoś. MOze masz książkę. Może ktoś ze znajomych posiada, moze w bibliotece jest. Poczytaj, poszukaj w necie jakiegoś samouczka, informacji dla początkujących. Kiedyś też korzystałem z takich źródeł informacji.
Mogę pomóc w jakimś konkretnym przypadku, ale gotowca to ci nie zrobie. Przykro mi ale w ten sposób nie mogę ci pomóc.


wymiennik

Może komuś jeszcze będzie potrzebne

Ad 1.

uses crt;
function ispalin(s:string):boolean;
var b:boolean;
x:string;
begin
x:=s;
b:=true;
while (length(x)>1)and (b) do
begin
b:=b and(x[1]=x[length(x)]);
delete(x,1,1);
delete(x,length(x),1);
end;
ispalin:=b;
end;

var s:string;
ch:char;

begin
clrscr;
repeat
writeln('Podaj text');
readln(s);
if ispalin(s) then
writeln('Podany text jest palindromem')
else writeln('Podany text nie jest palindromem');
ch:=readkey;
until ch=#27;
end.

Ad 2.

uses crt;

var f:fext;
s:string;
begin
assign(f,'text.txt');
{$I-}
reset(f);
{$I+}
if ioresult = 0 then
begin
reset(f);
while not eof(f) do
begin
readln(f,s);
if (s[1]='p')and odd(length(s)) then
writeln(s);
end;
end;
readkey;
close(f);
end.