1 Тема від Nika Востаннє редагувалося Torbins (11.12.2013 12:36:59)

  • Nika
  • Користувач
  • Поза форумом
  • Дата реєстрації: 10.12.2013
  • Повідомлень: 1
    • Репутація: 0

Тема: Робота з рядками, друк

:[
Сформувати динамічний рядок із ланкою-заголовком, вивести його на
друк та визначити, чи є рядок симетричним відносно своєї середини.(в паскалі)

2 Відповідь від Chemist-i Востаннє редагувалося Chemist-i (10.12.2013 23:14:37)

  • Chemist-i
  • Chemist-i
  • Replace Team
  • Поза форумом
  • Звідки: world wide web
  • Дата реєстрації: 31.10.2012
  • Повідомлень: 3 800
    • Репутація: 2394

Re: Робота з рядками, друк

S := 'рядок';
a := 0;
for i:=1 to Length(s) div 2 do
  begin
    if s[i] = s[Length(s)-i) then
      inc(a);
  end;

if a = (Length(s) div 2) then
  messageBox(0,'Рядок симетричний, '', MB_OK);

Chemist-i вебсайт