Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Мумин
0 / 0 / 0
Регистрация: 15.04.2012
Сообщений: 9
#1

В заданном тексте заменить все (а) на букву (о) - Turbo Pascal

15.04.2012, 18:27. Просмотров 1304. Ответов 2
Метки нет (Все метки)

1) подставить количество элементов одномерного массива для каторых выполняется неравенство іумножен на іменьше аменьше і(одномер массив)
2) в заданном тексте заменить все (а) на букву (о) (задача на одномер массив)
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.04.2012, 18:27
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В заданном тексте заменить все (а) на букву (о) (Turbo Pascal):

В заданном тексте заменить все буквы "а" на букву "о"
Помогите пожалуйста В заданном тексте заменить все буквы "а" на букву "о".

В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную – символом ‘+’,
В заданном тексте заменить каждую гласную букву символом ‘*’, а согласную –...

В заданном тексте заменить все знаки препинания на *
В заданном тексте заменить все знаки препинания на *

В заданном тексте в каждом четном слове заменить все строчные буквы на прописные
В заданном тексте в каждом четном слове заменить все строч-ные буквенные...

Строка: посчитать сколько раз встречается в заданном тексте слово pascal, все прописные символы в данном слове заменить на маленькие
ввести текст, состоящий из латинских букв.посчитать сколько раз встречается в...

Утройте каждую букву в заданном тексте.
Нпишите плиз программу!СПАСИБО! Утройте каждую букву в заданном тексте.

2
rai
8 / 8 / 9
Регистрация: 20.03.2012
Сообщений: 19
15.04.2012, 20:26 #2
Лучший ответ Сообщение было отмечено Мумин как решение

Решение

2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
  str: string;
  i: byte;
 
begin
  write('Введите текст: ');
  readln(str);
  for i := 1 to length(str) do 
  begin
    if (str[i] = 'а') or (str[i] = 'А') then str[i] := 'о'
  end;
  writeln('Получился текст: ', str);
end.
1
Мумин
0 / 0 / 0
Регистрация: 15.04.2012
Сообщений: 9
16.04.2012, 18:47  [ТС] #3
а кто сможет решать первый задача??????
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.04.2012, 18:47
Привет! Вот еще темы с решениями:

Утройте каждую букву в заданном тексте.
Помогите пожалуйста решить!СПАСИЬО! Утройте каждую букву в заданном тексте.

В заданном тексте букву "а" заменить на "А"
Составить программу в которой в заданном тексте букву << а >> заменить на << А...

Составить алгоритм, утраивающий каждую букву в заданном тексте
Составить алгоритм, утраивающий каждую букву в заданном тексте.Выведите...

В заданном тексте определить количество слов, которые заканчиваются на букву А
Помогите перевести программу из АВС в Турбо Паскаль заранее спасибо.:declare: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru