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

swillrocker

337 / 126 / 114

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

Сообщений: 246

06.01.2012, 19:26

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

06.01.2012, 19:26. Показов 1780. Ответов 1

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

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

Решение

Только не работает почему то

Основная идея реализована. Будет время исправлю ))
2.

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

06.01.2012, 19:26

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

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

06.01.2012, 19:26

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

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

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

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

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

Наверх