Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Определить, пересекаются ли окружности, в этом случае вычислить координаты точек их пересечения Даны две окружности одинакового радиуса R , заданные координатами их центров (X1Y1) (X2Y2) -целыми числами. Определить пересекаются ли они, в этом случае вычислить координаты, (вещественные числа)точек их пересечения https://www.cyberforum.ru/ pascal/ thread1919644.html	Построить матрицу, которая образуется из исходной добавлением к ней строки максимальных значений по столбцам Pascal Обработка двумерных массивов (матриц) Разработать программу, в которой предусмотреть: - ввод размерности NxM двумерного массива А, - задание элементов массива двумя способами: ввод с клавиатуры и формирование значений с помощью функции RANDOM(K) генерирования случайных чисел в диапазоне . ВАРИАНТ ЗАДАНИЯ :
Pascal Нахождение периметра и площади треугольника https://www.cyberforum.ru/ pascal/ thread1918781.html Нужно составить программу для нахождения периметра и площади треугольника.Вводимые данные: a,b-стороны прямоугольного треугольника,c-гипотенуза треугольника.(P=a+b+c;S(1 под чертой 2)a,b) Добавлено через 13 минут Промучился с задачей 2 недели.Ума не приложу как решить	Pascal Найти остаток от деления числа В данной задаче нельзя использовать цикл, т.к. не уложитесь по времени. Время выполнения программы не более 2 сек Написать программу, которая находит остаток от деления числа: 2^21+2^22+2^23+...+2^2n-1+2^2n на 7 Входные данные: Вводится n<100 000 Выходные данные: остаток от деления https://www.cyberforum.ru/ pascal/ thread1918526.html
Найти наиболее короткий из путей от первой до второй клетки, двигаясь ходом коня Pascal даны координаты двух клеток шахматной доски, найти наиболее короткий из путей от первой до второй клетки двигаясь ходом коня, в каждой клетки можно побывать не более одного раза	Pascal Определить, все ли гласные содержатся в заданной строке Написать программу на паскале, которая будет определять все ли гласные содержаться в заданной строке.... https://www.cyberforum.ru/ pascal/ thread1918112.html
Pascal Вычислить значение функции https://www.cyberforum.ru/ pascal/ thread1917881.html Вычислить значение функции f(x) =x/(25-х2). X изменяется от А до В с шагом h. Вычисление F(x) оформить как функцию, результаты вывести в виде таблицы в основной программе	Pascal Описать функцию логического типа Описать функцию Prо(N) логического типа, возвращающую True, если целый параметр N (> 1) является простым числом, и False в противном случае (число, большее 1, называется простым, если оно не имеет положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции Prо найти количество простых чисел в данном наборе
Pascal Написать функцию, которая двоичное число преобразует в десятичное число https://www.cyberforum.ru/ pascal/ thread1917879.html Написать функцию, которая двоичное число, введенное пользователем программы, преобразовывает в десятичное число. Работает до тех пор, пока пользователь не введет 0.	Pascal Напишите функцию, которая возвращает наименьшее из значений https://www.cyberforum.ru/ pascal/ thread1917877.html Напишите функцию, которая возвращает наименьшее из значений \|x-y\|, \|y-z\|, \|z-x\|.
Найти минимальное и максимальное из данных чисел Pascal Описать процедуру, записывающую в переменную X минимальное из значений X и Y, а в переменную Y — максимальное из этих значений. Используя четыре вызова этой процедуры, найти минимальное и максимальное из данных чисел A, B,C, D. Заранее спасибо.	Pascal Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр Напишите процедуру, которая вычисляет трёхзначное число m, состоящее из трех цифр. Первая цифра – m3 - сотни, вторая – m2 - десятки и третья - m0 - единицы. Вычислить пять трехзначных чисел. Процедуру оформить несколькими способами. Заранее, большое спасибо. https://www.cyberforum.ru/ pascal/ thread1917868.html

Joy

2385 / 1297 / 1492

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

Сообщений: 4,661

14.02.2017, 18:29

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

14.02.2017, 18:29. Показов 2186. Ответов 1

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

Сообщение было отмечено ZX Spectrum-128 как решение

Решение

как-то так:

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.

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.02.2017, 18:29

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

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

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

Написать программу, которая вводит с клавиатуры строку не более 100 символов, еще одну строку не более 50 символов и выводит на экран позиции вхождени
Задание: Написать программу, которая вводит с клавиатуры строку не более 100 символов, еще одну...

Написать программу, которая преобразует строку символов в число
Написать программу, которая преобразует строку символов в число (целое) или сообщает об ошибке ...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.02.2017, 18:29

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

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

Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1 (двоичное число), в десятичное число
Написать функцию, которая преобразует строку, содержащую произвольную последовательность 0 и 1...

Составить программу, которая выводит с клавиатуры произвольную числовую матрицу А размером 4*4
Составить программу, которая выводит с клавиатуры произвольную числовую матрицу А размером 4*4....

Наверх