Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результ - Pascal

  1. - Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результат на дисплей в виде строки. - Длина строки заранее не вводится, а определяется после окончания ввода с клавиатуры. - В строке группы символов разделяются одним или несколькими пробелами. Пробелы могут находиться в начале и в конце строки. Группа символов - последовательность букв, цифр или знаков, отделенная пробелами от других групп или находящаяся в начале/конце строки. - Все буквы считать вводимыми только в нижнем регистре, Заглавные буквы не рассматривать. - В заголовок окна программы записать свои данные: имя, фамилию и номер варианта. Примеры возможных строк: ‘ 12.3 tryi yu ()?*‘, ‘ 6е-1 swty +12_3‘ Напечатать: Группы символов, состоящие только из латинских букв, если в них есть повторяющиеся буквы.


textual

Код к задаче: «Написать программу, которая читает с клавиатуры произвольную строку символов, преобразует ее и выводит результ - Pascal»

var
  s,t,r:string;
  i,j:integer;
  b,k:boolean;
  a:set of char;
begin
  write('Enter text:');
  readln(s);
  s:=s+' ';
  t:='';
  r:='';
  b:=true;
  for i:=1 to length(s) do
    if s[i]<>' ' then begin
      if s[i] in ['a'..'z'] then t:=t+s[i] else b:=false;
    end else begin
      a:=[];k:=false;
      for j:=1 to length(t) do if t[j] in a then k:=true else include(a,t[j]);
      if k and b then r:=r+t+' '; 
      t:='';b:=true;
    end;
  writeln('Result:',r);
  readln;
end.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 3.500 из 5



Похожие ответы
  1. Напишите программу, которая выводит в столбец произведения чисел а = 143, b = 777 и чисел 1, 2, 3, ... 9. Результаты решения этой задачи могут удивить и озадачить. Тысячелетиями человечество, выполняя различные вычисления, находило среди чисел и результатов операций с ними интересные закономерности. Некоторым числам, например, 3, 7, 13, 666 и т. п., придавалось мистическое значение. В наше время, имея доступ к компьютеру, можно целенаправленно заниматься поиском различных «фокусов» с числами. Как правило, такой поиск требует значительных переборов вариантов и по силам только компьютеру.

  1. ребята на екзамен срочно нужно помогите Написать программу вычисления функции при a=2; b=0.5; c=-4. Аргумент x принимает значения от 1 до 10 с шагом 1.

  1. Создайте программу, играющую с пользователем в орлянку. Программа должна спрашивать у пользователя орел или решка. Если пользователь вводит 0, то выбирает орла, 1 – решку, любое другое число – конец игры. Программа должна вести учет выигрышей и проигрышей и после каждого раунда сообщать пользователю о состоянии его счета. Пусть вначале на счету 1 рубль и ставка в каждом коне тоже 1 рубль. Если денег у пользователя не осталось игра прекращается.

  1. Создайте программу, проверяющую есть ли в целочисленном массиве хотя бы один нечетный элемент.

  1. Написать подпрограмму-функцию, которая выясняет, является ли заданное пользователем целое число кратным 3 (результат функции - значение логического типа). Пользователь задает 3 значения. Здравствуйте помогите пожалуйста с написанием программы. Я смог написать только для одного числа а надо для трёх(пример снизу).

  1. Необходимо подсчитать сумму S(n) = 1 - 2 + 3 - 4 + … + (-1)n+1*n. Напишите программу, которая находит ответ за минимальное время и использует наименьший объем оперативной памяти. Входные данные: одно целое число n (1 ≤ n ≤ 109) Выходные данные: ответ S(n)

  1. написать программу которая запрашивает ряд чисел и считает их сумму. количество чисел не ограничено. при нажатии цифры "1" - ввод чисел прекращается