Помогите пожалуйста решить задачи! - Форум
Понедельник, 05.12.2016, 07:29
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста решить задачи!
Помогите пожалуйста решить задачи!
strikeДата: Четверг, 14.10.2010, 20:55 | Сообщение # 1
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Задачи на языке Turbo pascal.
№1.Ввести символьную строку и проверить является ли она палиндромом (т.е читается одинаково в обеих направлениях, например слово КАЗАК).
№2. Ввести имя файла(например dfh.com или просто файл без расширения dfh.) и изменить его расширение на .exe
 
ignorerДата: Четверг, 14.10.2010, 21:19 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
задача №1:
Code
uses crt;
var s1, s2 : string;
       i : integer;
begin
    clrscr;
    readln(s1);
    for i:=1 to length(s1) do
     s2:=s2+s1[length(s1)-i+1];
    if s1=s2 then write('Строка является палиндромом') else    
    write('Строка не является палиндромом');
    readkey;
end.
 
ignorerДата: Четверг, 14.10.2010, 21:58 | Сообщение # 3
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
в turbo pascal программа с файлами выглядит несколько иначе, нежели в PascalАВС, а я работал в основном на АВС, поэтому вот вариант проги на АВС. почти такой же алгоритм будет и для turbo, но работа с файлами будет осуществляться по-другому, я не знаю, как.
Code
uses crt;
Var s1, s2, s : string;
     i, n, l : integer;
     t1, t2 : text;
begin
  readln(s1);
  s2:=s1;
  for i:=1 to length(s2) do
   if s2[i]='.' then n:=i;
  delete(s2, n, length(s2)-n+1);
  s2:=s2+'.exe';
  assign(t1, s1);
  assign(t2, s2);
  reset(t1);
  rewrite(t2);
   repeat
    readln(t1, s);
    writeln(t2, s);
   until eof(t1);
  close(t1);
  close(t2);
end.
 
strikeДата: Пятница, 15.10.2010, 18:48 | Сообщение # 4
Сержант
Группа: Новичок
Сообщений: 7
[ 0 ]
Статус: Offline
Спасибо большое за помощь!!! biggrin
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите пожалуйста решить задачи!
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016