Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Заполнить двухмерный массив целыми числами от 1 до 100 по спирали https://www.cyberforum.ru/ turbo-pascal/ thread549173.html заполнить 2-х мерный массив целыми числами от 1...до 100по спирали	Turbo Pascal Вычислить площади квадратов с стороной a1, a2, a3 Вычислить z = (S1+S2)/S3, где S1,S2,S3 площади квадратов с стороной a1, a2, a3. Площади квадратов вычислять в подрограмме-процедуре.
Turbo Pascal Массив. Найти колчество четных элементов одномерного массива до элемента, равного заданному найти колчество четных элементов одномерного массива до первого встречного числа равного наперед заданному числу (а) https://www.cyberforum.ru/ turbo-pascal/ thread549170.html	Turbo Pascal Сортировка двухмерного массива https://www.cyberforum.ru/ turbo-pascal/ thread549147.html помогите написать функцию сортировки каждой строки двухмерного массива Добавлено через 2 минуты отсортировать по не убыванию массив размером N*N
Разбить подпрограмму по матрицам на модули Turbo Pascal ПОдпрограмма: - Вычисление количества отрицательных элементов матрицы. - Сложение 2х матриц. И эту подпрограмму разбить на модули.	Turbo Pascal В массиве чисел М(n) найти число (или числа), повторяющееся максимальное количество раз Помогите написать программу на Pascal..В массиве чисел М(n) найти число (или числа), повторяющееся максимальное количество раз.. Если например зададим массив 1 2 3,что бы выдавала все числа,а если 1 2 1 2 3 1,то 1(так как она повторяется max кол-во раз)! https://www.cyberforum.ru/ turbo-pascal/ thread549098.html
Turbo Pascal Вычислить значение сложной функции Помогите пожалуйста.. https://www.cyberforum.ru/ turbo-pascal/ thread549050.html	Turbo Pascal Переписать в одномерный массив максимальные значения среди повторяющихся элементов Помогите решить, пожайлуста!!! 1) К элементам K1-й строки двумерного массива прбавить элементы k2-й строки. 2) Дана целочисленная матрица A, состоящая из M строк и N столбцов. Переписать в одномерный массив B максимальные значения среди повторяющихся элементов по строкам. Предпологается, что повторяющие элементы есть в каждой строке. Вывесит на экран массив В. 3)два столбца с заданными...
Turbo Pascal Вывести слова разным цветом в зависимости от первой буквы Программа вводит строку (текста), а затем - выводит ее строкой ниже в преобразованном виде: слова, начинающиеся с буквы а, делает ярко-зелеными, с буквы е - ярко-синими, с буквами и - ярко-желтыми, с буквы о-красными. Премного благодарен тому, кто поможет. Я как "профи" догадался только первое слово покрасить :( https://www.cyberforum.ru/ turbo-pascal/ thread549038.html	Turbo Pascal Ввести произвольную символьную цепочку. Удвоить её символы на четных местах https://www.cyberforum.ru/ turbo-pascal/ thread549035.html Ввести произвольную символьную цепочку. Удвоить её символы на четных местах. В полученной цепочке подсчитать число символов, совпадающих с первым. Может кто помочь сделать? Добавлено через 50 минут Заранее спасибо Добавлено через 57 минут Ну помогите сделать=(
Turbo Pascal Операции работы с целыми числами в Turbo Pascal задания в файле. Помогите пожалуйста	Turbo Pascal Три максимальных числа последовательности Задача заключалась в том, чтобы вывести на черный экран три максимальных числа (игнорируя дубликаты) последовательности чисел, не превосходящих по модулю 10^9. Вот мой код: program qwe1; uses crt; label 1; var i,n,f,v,max:longint; a: array of longint; Begin clrscr; writeln('Vvedite kol-vo cisel: '); https://www.cyberforum.ru/ turbo-pascal/ thread549016.html

rai

9 / 9 / 9

Регистрация: 20.03.2012

Сообщений: 19

15.04.2012, 20:26

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

15.04.2012, 20:26. Показов 4809. Ответов 2

Метки (Все метки)

Сообщение было отмечено Мумин как решение

Решение

Pascal

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.

Вернуться к обсуждению:
В заданном тексте заменить все (а) на букву (о) Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

15.04.2012, 20:26

Готовые ответы и решения:

Заменить все запятые на букву к в заданном тексте
Дан текст.Заменить все запятые на букву к.Как это сделать ,есть только небольшая часть...

Заменить в тексте, заданном с клавиатуры, все буквы «О» на букву «Т»
Помоги пожалуйста решить две простенькие задачки. 1)Составьте программу, которая заменяет в...

В заданном тексте заменить все буквы "а" на букву "о"
Мое задание: " В заданном тексте заменить все буквы "а" на букву "о" . Создать класс со...

В заданном тексте заменить все буквы "а" на букву "о"
Добрый вечер! Вообщем нужно заменить в слове/тексте все буквы "a" на букву "o", которое ты ввел в...

	15.04.2012, 20:26

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

15.04.2012, 20:26

Помогаю со студенческими работами здесь

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

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

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

В заданном тексте из разделенных одним пробелом слов вывести на печать все слова, заканчивающиеся на букву «м»
В заданном тексте из разделенных одним пробелом слов вывести на печать все слова, заканчивающиеся...

Наверх