Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Найти определенный интегралл Написать программу на языке Паскаль (можно и в среде Delphi 7.0), реализующую нахождение приближенного значения интеграла указанным методом. С помощью формулы трапеций вычислить интеграл \large \int_{2}^{4}\frac{dx}{xlnx} с точностью ε=0.01. https://www.cyberforum.ru/ turbo-pascal/ thread1203882.html	Вывести на экран те символы, которые встречаются в файле ровно один раз Turbo Pascal Дан текстовый файл.Вывести на экран те символы,которые встречаются в нем ровно один раз.
Turbo Pascal Сформировать множество по правилу дано множество Xl,содержащее целые числа из диапазона.Сформировать новое множество Y путем выделения из множества Xl нечетных чисел и чисел,делящихся без остатка на 17. https://www.cyberforum.ru/ turbo-pascal/ thread1203836.html	Turbo Pascal Вычислить произведение ряда https://www.cyberforum.ru/ turbo-pascal/ thread1203819.html Даны натуральное число n, действительное число x. Вычислить:
Turbo Pascal Изобразить на экране ЭВМ рисунок Изобразить на экране ЭВМ следующий рисунок 2 картинка	Turbo Pascal На небе нарисовать N планет https://www.cyberforum.ru/ turbo-pascal/ thread1203783.html На небе нарисовать N планет (координаты задаются явно или случайным образом ) Паскаль, граф
Turbo Pascal Найти все слова, длина которых кратна трем Ребята помогите решить задачки)))) 1) Дан массив из слов X(k). Найти все слова, длина которых кратна трем. https://www.cyberforum.ru/ turbo-pascal/ thread1203692.html	Операторы цикла и блок-схема к нему Turbo Pascal Помогите решить. Буду безмерно благодарен
Turbo Pascal Построить график стилизованной ромашки https://www.cyberforum.ru/ turbo-pascal/ thread1203605.html Построить график стилизованной ромашки. Лепестки задаются параметрически p= sin^2(3ф), где ф принадлежитП]. Стебель задаются так: р = 21 sin ф * tg ф, где ф принадлежитП/2). Помогите если кто знает как это делать!	Turbo Pascal Определить сколько раз в массиве встретилось число большее 10 https://www.cyberforum.ru/ turbo-pascal/ thread1203535.html Массив B включает 20 чисел из интервала , полученных с помощью датчик случайных чисел. Определить сколько раз встретилось число большее 10. Использовать только один цикл
Turbo Pascal Вычислить значение выражения Приветствую. Нужна помощь по Паскалю. По теме условные операторы Помогите прошу Вас.	Turbo Pascal Опер Паскаля https://www.cyberforum.ru/ turbo-pascal/ thread1203519.html ребят ещё один вопрос...кто главный опер паскаля и как его использовать? препод что спросила то и пишу вам...сам не в курил нифига...может кто подскажет

Kodzaev

3030 / 1916 / 1649

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

Сообщений: 3,060

09.06.2014, 20:36

Во введенном тексте заменить все латинские буквы на символ * - Turbo Pascal - Ответ 6296695

09.06.2014, 20:36. Показов 3069. Ответов 2

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

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

Решение

Pascal

const
  eng = ['A'..'Z'];
  rus = ['А'..'П', 'Р'..'Я', 'а'..'п', 'р'..'я', 'Ё', 'ё'];
  g = [ 'ё','у','е','ы','а','о','э','я','и','ю','Ё','У','Е','Ы','А','О','Э','Я','И','Ю'];
  s = rus - g;
  
var
  x: string;
  i, k: integer;
  
begin
  WriteLn('Введите строку:');
  ReadLn(x);
  for i := 1 to Length(x) do
  begin
    if UpCase(x[i]) in eng then
      x[i] := '*'
    else
      if x[i] in g then
        x[i] := '+'
      else
        if x[i] in s then
          k := k + 1
  end;
  WriteLn('Полученный текст:');
  WriteLn(x);
  Write('Количество согласных = ', k);
  ReadLn
end.

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

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

09.06.2014, 20:36

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

Составить программу, которая во введенном тексте заменяет все латинские буквы на "*"
Составить программу, которая во введенном тексте заменяет все латинские буквы на "*", все гласные...

Заменить в произвольном тексте все строчные латинские гласные на соответствующие заглавные буквы
Напишите программу, заменяющую в произвольном тексте все строчные латинские гласные на...

В введенном тексте заменить все маленькие буквы на большие
В введеном тексте заминить все маленькие буквы на большие

Заменить в тексте все большие латинские буквы на маленькие, не изменяя все остальные символы
Цель работы: Сформировать понятие величин строкового типа. Научиться составлять алгоритмы обработки...

	09.06.2014, 20:36

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

09.06.2014, 20:36

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

Строка: Заменить в тексте все большие латинские буквы на маленькие
1. Написать программу , заменябщую в тексте все большие латинские буквы на маленькие .(не через...

Во введенном тексте все строчные буквы латинского алфавита заменить прописными
Доброго времени суток! Возникли проблемы с написанием программы в Visual Basic. **** в...

Составить программу,которая во введенном тексте удваивает латинские буквы
Добрый день, помогите пожалуйста с задачей Составить программу,которая во введенном тексте...

Множества. Составить программу, которая во введённом тексте удваивает латинские буквы
Составить программу, которая во введённом тексте удваивает латинские буквы, подсчитывает количество...

Наверх