Turbo pascal » Страница 7

Все привет!Решите кто нибудь задачку,пожалуйста! Палиндромы. Палиндром - это сочетание символов, которое читается одинаково слева направо и справа налево. Палиндромом может быть отдельное слово (ШАЛАШ, ТОПОТ, ПОП), число (4884, 121) или фраза (STRAP ON - NO PARTS, А РОЗА УПАЛА НА ЛАПУ АЗОРА).
Найдите в заданном тексте, состоящем из n строк, все слова-палиндромы (слово может включать как прописные, так и строчные буквы и в словах допускается перенос с одной строки на другую).

и в чем сложность? Алгоритм элементарный, подумайте немного)

конежно же неактуально уже но все же.
Алгоритм решения задачи:
1. Брать очередной символ с
начала строки и сравнивать его
с противоположным.
1. Если символы не равны,
то выдать сообщение "не
палиндром", изменить
значение флага и
остановить сравнение.
2. Если значение флага не было
изменено, то выдать
сообщение "палиндром".
s – строка;
f – флаг.
Программа на языке
Паскаль:
var
s : string ;
i ,f : byte ;
begin
write('String: ');
readln(s );
f := 0 ;
for i := 1 to length ( s) div 2 do
if s [i] <> s [ length (s )- i+ 1 ] then
begin
writeln( 'No palindrome' );
f := 1;
break
end ;
if f = 0 then
write( 'Palindrome') ;
readln
end .
сам по учебе изучаю паскаль, интересно повозиться бывает. впринципи в сети все можно найти

вопрос не по паскалю , а по делфи вобщем пробую написать игру судоку возникла проблема с генерацией таблицы, если кто знает подскажите как сделать?

актуальнее было бы задать вопрос в данной теме dimonvideo.ru/forum/topic_1728138342/33/20

всем привет. Никогда с этим не сталкивался, да и вообще я не программист и не пытался им быть, а вот пришлось. Помогите написать программу на турбо паскале, в которой нужно найти среднее арифметическое значение трех любых чисел. Заранее очень благодарен.

Искать пробовал? Более чем уверен, что есть готовое решение

это ж одна из простых программ.

-------------
добавлено в 23.43: будет что то вроде

program test;
var a, b, c, d:integer;
begin
    writeln('введите 3 числа');
    writeln('первое число');
    readln(a);
    writeln('второе число');
    readln(b);
    writeln('третье число');
    readln(c);
    d:=(a+b+c):3
    writeln('срднеарифметическое ', d);
    readkey;
end;
end.

SQR,
пробывал. вот сейчас как раз штундировал интернет. завтра сдавать.


Jaka,
Спасиб. ну для кого то может и простая а я эти буквы первый раз вижу)

может случиться, что на вход подадут, к примеру, 5, 3 и 2
тогда волшебным образом среднее арифметическое выходит 3, (3)
и программа вылетит =)
это информация к размышлению и правке)