Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.11.2015, 12:32   #1
Arsball
 
Регистрация: 24.11.2015
Сообщений: 6
По умолчанию строки

Ввести 2 строки. Написать подпрограмму, заменяющую каждую гласную латинскую букву (a,e,o,u,l) на букву, стоящую за ней по алфавиту. Например mama -mbmb. Вывести исходные и преобразованные строки
Arsball вне форума Ответить с цитированием
Старый 24.11.2015, 12:50   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Попытки? Наработки? Хотя бы ввод...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.11.2015, 13:02   #3
Arsball
 
Регистрация: 24.11.2015
Сообщений: 6
По умолчанию

uses
* SysUtils;
*
Var * * St1, st2,: string;
* * i: integer;
Begin
* * Write('vvedite stroky teksta ');
* * Readln(St1, st2);
* * z:='а';
i:=1 to length

Цитата:
Сообщение от Stilet Посмотреть сообщение
Попытки? Наработки? Хотя бы ввод...
я уже), готов)

Последний раз редактировалось Stilet; 24.11.2015 в 13:19.
Arsball вне форума Ответить с цитированием
Старый 24.11.2015, 13:19   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Ой какая каша...
Это тебе так препод написал?
Ладно. Ввод у тебя есть.
Вот тебе цикл для твоего условия:
Код:
for i:=1 to Length(St1) do if St1[i] in ['a','e','o','u','l'] then St1[i]:=chr(Ord(St1[i])+1);
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.11.2015, 13:24   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

неплохо. (Виталий, это не Вам! )

Код:
procedure SwapLetters(var s: string);
var i:integer;
begin
  for s:=1 to Length(s) do
    if s[i] in ['a','e','o','u','i'] then s[i] := chr( ord(s[i])+1);
end;

Var st1, st2,: string;
Begin
  Write('vvedite 1-u stroky teksta: ');
  Readln(st1);
  Write('vvedite 2-u stroky teksta: ');
  Readln(st2);
  SwapLetters(st1);
  SwapLetters(st2);
  WriteLn('Stroka1: ', st1);
  WriteLn('Stroka2: ', st2);
  ReadLn
end.

p.s. у Вас ошибочна написана буква 'L', которая не является гласной, она написана вместо гласной буквы 'i'
Serge_Bliznykov вне форума Ответить с цитированием
Старый 24.11.2015, 13:27   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Виталий, это не Вам!
Да понял я )
Я бы так код паскаля не украшал... Я бы наоборот преподам за такое руки из одного места пересаживал. С попы на лицо, как поется в одной пошлой песенке.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 24.11.2015, 13:47   #7
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Цитата:
Сообщение от Arsball Посмотреть сообщение
uses
* SysUtils;
*
Var * * St1, st2,: string;
* * i: integer;
Begin
* * Write('vvedite stroky teksta ');
* * Readln(St1, st2);
* * z:='а';
i:=1 to length
я уже), готов)
Ето Паскаль "*" ставит или Arsball так "умело" код форматирует?
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выводить только измененные строки. Перед каждой строкой записывать номер строки в исходном тексте.используя строки и текст.файл nero4ka C++ Builder 1 13.06.2015 07:14
Задача на строки. Даны две строки. Определить можно ли из символов первой строки получить вторую строку.( написать подпрограммой и ANTON1994 Паскаль, Turbo Pascal, PascalABC.NET 5 09.02.2013 14:07
Программа на языке "Ассемблер" - ввод строки, анализ длины строки, добавление точки в конец строки Алексей_2012 Помощь студентам 1 05.04.2012 11:26
Сделать в гриде строки выше, чтобы не растягивать строки до бесконечности kris__tina БД в Delphi 1 09.06.2011 15:31
Перенести символа с начала строки в место перед запятой этой же строки. Zhiltsov Microsoft Office Excel 4 05.06.2009 13:10