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

2386 / 1298 / 1492

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

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

14.02.2017, 18:29

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

14.02.2017, 18:29. Показов 2323. Ответов 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

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

14.02.2017, 18:29

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

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

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

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

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

	14.02.2017, 18:29

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

14.02.2017, 18:29

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

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

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

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

Новые блоги и статьи
Элементы алгоритмизации hw_wired 28.01.2025 Основы алгоритмизации В современном мире алгоритмы играют фундаментальную роль в развитии информационных технологий и программирования. Понимание основ алгоритмизации является ключевым элементом в. . .	Человек и информация hw_wired 28.01.2025 Введение: роль информации в познании мира В современном мире информация играет фундаментальную роль в процессе познания окружающей действительности. Она представляет собой совокупность сведений об. . .	Компьютер и информация hw_wired 28.01.2025 Эволюция вычислительных машин История развития вычислительной техники начинается задолго до появления первых электронных устройств. Человечество всегда стремилось упростить процесс вычислений и. . .	Информационные технологии hw_wired 28.01.2025 Введение в современные технологии работы с информацией В современном мире информационные технологии стали неотъемлемой частью практически всех сфер человеческой деятельности. Они существенно. . .	Информация вокруг нас hw_wired 28.01.2025 Основные понятия информации В современном мире понятие информации является фундаментальным и охватывает практически все сферы человеческой деятельности. Информация представляет собой совокупность. . .	Компьютер для начинающих hw_wired 28.01.2025 Введение в мир компьютерных технологий В современном мире информация стала одним из важнейших ресурсов человечества, определяющим развитие общества и технологий. Наша жизнь неразрывно связана с. . .
[golang] 189. Rotate Array alhaos 28.01.2025 Повороты рукоятки, целочисленный слайс нужно сдвинуть на целое положительное число. Мне очень нравится решение на GO / / https:/ / leetcode. com/ studyplan/ top-interview-150/ package topInterview . . .	КуМир: решение задач на матрицы bytestream 28.01.2025 КуМир представляет собой среду для обучения программированию, которая включает в себя мощные инструменты для работы с матрицами. Матрица в программировании - это двумерный массив, состоящий из. . .	КуМир: решение задач на строки bytestream 28.01.2025 В системе программирования КуМир работа со строковыми данными является одним из важнейших аспектов создания программ. Строки представляют собой последовательности символов, заключенные в кавычки,. . .	КуМир: решение геометрических задач bytestream 28.01.2025 Программирование геометрических задач в среде КуМир становится всё более актуальным в обучении школьников и студентов. КуМир — это разработанная в России обучающая программная среда, предназначенная. . .	КуМир, исполнитель Водолей: Задачи и решения bytestream 28.01.2025 КуМир — это образовательная среда для обучения программированию. Она предлагает пользователям разнообразные инструменты для разработки и отладки программ, что особенно ценно для студентов и. . .	КуМир, исполнитель Чертежник: Решение задач bytestream 28.01.2025 КуМир (Комплект Учебных МИРов) представляет собой образовательную среду для обучения основам программирования и алгоритмизации. Исполнитель Чертежник работает на координатной плоскости, где может. . .

Наверх