Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Выяснить, делится ли одно число на другое https://www.cyberforum.ru/ turbo-pascal/ thread423011.html
Даны два натуральных числа a и b. Выяснить, делится ли а на b? помогите,плиз)
Составить блок схему к готовому коду Turbo Pascal
пожалуйста напишите блок-схему к этой программе. Я просто не знаю как писать блок-схемы uses crt; var s:string; i:integer ; begin writeln('vvedite stroku'); readln(s); ...
Turbo Pascal Проверить на равенство многочлены Многочлен задан своими коэффициентами, которые хранятся в форме списка. Написать функции: – Equal(p, q), проверяющую на равенство многочлены p и q; – Summa(p, q, r), которая строит многочлен r... https://www.cyberforum.ru/ turbo-pascal/ thread422994.html Turbo Pascal Вычислить f=(y+x)/(y-x) при изменении х на отрезке [0.5; 0.8] с шагом 0.75, https://www.cyberforum.ru/ turbo-pascal/ thread422981.html
Вычислить f=(y+x)/(y-x) при изменении х на отрезке с шагом 0.75... Продолжение задачи во вложении "53.doc"...
задача Вводя в цикле по 4 оценки Turbo Pascal
Вводя в цикле по 4 оценки, полученные студентами группы в летнюю сессию, определить число неуспевающих студентов. помогите решить пожалуйста
Turbo Pascal Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках? Вычислить количество способов, которыми можно разместить 7 одинаковых карандашей в 3 различных ящиках? https://www.cyberforum.ru/ turbo-pascal/ thread422958.html
Turbo Pascal Вычислить количество способов, которыми ... https://www.cyberforum.ru/ turbo-pascal/ thread422957.html
Вычислить количество способов, которыми можно переставить буквы слова «комиссия» так, чтобы никакие две гласные не стояли рядом.
Многочлен задан своими коэффициентами, которые хранятся... Turbo Pascal
Многочлен задан своими коэффициентами, которые хранятся в форме списка. Написать функции: – Equal(p, q), проверяющую на равенство многочлены p и q; – Summa(p, q, r), которая строит многочлен r...
Turbo Pascal Написать процедуры проверки наличия в списке заданного числа. Написать процедуры проверки наличия в списке заданного числа. https://www.cyberforum.ru/ turbo-pascal/ thread422954.html Turbo Pascal Изобразить на экране движущийся объект https://www.cyberforum.ru/ turbo-pascal/ thread422953.html
Разработать и программно реализовать алгоритм создания движущегося графического объекта на экране с использованием стандартных процедур и функций модуля GRAPH
Turbo Pascal Вывести на экран график функции, приведенной ...
Вывести на экран график функции, приведенной в Вашем индивидуальном задании. Отобразить координатную плоскость. Вывод графика производить попиксельно с задержкой и звуковым сигналом.
Turbo Pascal Вывести на экран график функции, приведенной... Вывести на экран график функции, приведенной в Вашем индивидуальном задании. Отобразить координатную плоскость. Вывод графика производить попиксельно с задержкой и звуковым сигналом. https://www.cyberforum.ru/ turbo-pascal/ thread422950.html
337 / 126 / 114
Регистрация: 09.04.2011
Сообщений: 246
06.01.2012, 19:26 0

Во введенном тексте удалить все гласные буквы латинского алфавита - Turbo Pascal - Ответ 2360652

06.01.2012, 19:26. Показов 1780. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Только не работает почему то Основная идея реализована. Будет время исправлю ))
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var s,s1,sr,str:string;
    i,j,k:integer;
begin
  write('s=');
  readln(s);
  j:=0;i:=0;str:='';
  s1:='';
  while s[i]<>'.' do
   begin
     inc(i);
     if s[i]<>' ' then s1:=s1+s[i]
      else
       begin
         sr:='';
         inc(j);
         if j mod 2=1 then
          for k:=length(s1) downto 1 do sr:=sr+s1[i];
         if sr<>'' then str:=str+sr
         else str:=str+s1;
         str:=str+' ';
         s1:='';
       end;
    end;
 writeln(str);
 readln;
end.


Вернуться к обсуждению:
Во введенном тексте удалить все гласные буквы латинского алфавита Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2012, 19:26
Готовые ответы и решения:

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

Выдать все гласные буквы в порядке латинского алфавита
Программа выдает все Гласные буквы ,по-порядку как они есть в тексте , а надо ,чтоб выдавала в...

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

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

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2012, 19:26
Помогаю со студенческими работами здесь

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

Удвоить в заданной строке все гласные буквы латинского алфавита и удалить из неё все цифры
1. Удвоить в заданной строке все гласные буквы латинского алфавита и удалить из неё все цифры.

В данном тексте удвоить все буквы латинского алфавита.
В данном тексте удвоить все буквы латинского алфавита.

В данном тексте удвоить все буквы латинского алфавита
C# В данном тексте удвоить все буквы латинского алфавита.

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru