Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Помогите с парочкой заданий на "Процедуры" 1)Составить процедуру (функцию), определяющую, в каком из данных двух чисел больше цифр. 2)Найти все натуральные числа, не превосходящие заданного n, которые делятся на каждую из своих цифр. https://www.cyberforum.ru/ turbo-pascal/ thread406338.html Чтение из файла Turbo Pascal
Считать из файла f1.pas (п. 22) числа и вывести их в файл f2.pas - сначала отрицательные, а затем положительные в 10 колонок с точностью 2 знака после десятичной точки.
Turbo Pascal Ребят помогите пожалуйста с массивами (срочно)!!!=)))) https://www.cyberforum.ru/ turbo-pascal/ thread406331.html
В общем надо найти сумму цифр заданного целого числа. мне нужна программа и блок-схема. Вот Математическое описание задачи: Обозначим заданное целое число-N. Сначала определяем порядок этого числа(Pr) , для этого вычисляем десятичный логарифм от N, который обозначим- A,и делим А нацело на единицу. Следующим действием будет нахождение количества цифр данного числа(Kol).Для этого прибавляем к...
Turbo Pascal Инициализация графического режима и программирование эффекта движения Написать программу, которая производит рассыпание букв, введёных с клавиатуры текста Без неё препод не хочет зачет ставить, а я в этом нулячая ) https://www.cyberforum.ru/ turbo-pascal/ thread406308.html
Оператор Readln Turbo Pascal
Не могу понять почему программа не выводит результаты на экран и не задает паузу,опреатор ReadLn, стоит после оператора WriteLn program l; uses crt; var z: array of integer; b: array of integer; k,i,j,n,m:integer; begin writeln ('введите размерность матрицы: ');
Turbo Pascal Найти сумму четных элементов одномерного массива Привет Решил начать учить языки программирования. В задачнике нашел такую штуку - Используя рекурсивную функцию найти сумму четных элементов одномерного массива и написать трассировку программы. Недавно их начал изучать, рекурсии Пока могу только написать рекурсивную функцию для нахождения факториала А тут еще и трассировка Ребят, помогите разобраться начинающему :) Добавлено через 33... https://www.cyberforum.ru/ turbo-pascal/ thread406292.html
Turbo Pascal Логические операции Написать программу для вычисления у. Не использовать логические опрации. Использлваь if. Y=a OR b AND (c OR d) https://www.cyberforum.ru/ turbo-pascal/ thread406286.html Turbo Pascal Разработав подпрограмму суммирования двух матриц, получить сумму матрицы А(КхМ) и В(КхМ). Поместить результаты в С(КхМ)
Разработав подпрограмму суммирования двух матриц, получить сумму матрицы А(КхМ) и В(КхМ). Поместить результаты в С(КхМ). Программа должна быть составлена через функцию, а другая через модуль!))) Помогите, очень вас прошу!!:-[
Turbo Pascal Определите исходное число и запишите его в семеричной системе счисления https://www.cyberforum.ru/ turbo-pascal/ thread406273.html
c=25 какое было x вначале? вот еще одна кто может подскажите. Четырехзначное число, записанное в семеричной системе счисления, имеет старшим разрядом единицу. Если эту единицу переместить в конец записи, то новое число окажется в три раза больше исходного. Определите исходное число и запишите его в семеричной системе счисления.
Turbo Pascal Перевод прямого кода целых чисел в дополнительный код. https://www.cyberforum.ru/ turbo-pascal/ thread406267.html
Доброго времени суток. Нужна помощь в разработке программы для перевода прямого кода целых чисел в дополнительный код. По возможности, сама программа должна эмитировать работу аккумуляторного процессора (т.е. "в ней для хранения одного из операндов арифметической или логической операции в процессоре имеется выделенный регистр — аккумулятор. В этот же регистр заносится и результат...
Turbo Pascal Вычислить значение выражения
Здравствуйте, помогите пожалуйста с написанием программы, кто может, если ,конечно, не затруднит Вас. Самому не разобраться, совсем мало практики по информатике, и очень многое не понятно =(. Буду ОЧЕНЬ благодарен, тем кто поможет! Даны матрицы A(4,4) и B(9,9). Вычислить y={|Sa-Sb |,если Sa<Sb, {...
Turbo Pascal вывести в случайную точку экрана цифру Здравствуйте нужна помощь!! Сам полный ноль но очень надо сделать!!! Прошу о помощи!! необходимо составить вот такую программку!!! Создайте программу, которая ожидает нажатия цифровой клавиши и выводит в случайную точку экрана цифру из соответствующей процедуры . Завершение работы программы осуществляется нажатием клавиши Esc. https://www.cyberforum.ru/ turbo-pascal/ thread406262.html
Почетный модератор
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
13.12.2011, 18:10 0

Отредактировать предложение, удаляя из него лишние пробелы, поменять местами в строке первое и последнее - Turbo Pascal - Ответ 2280621

13.12.2011, 18:10. Показов 1419. Ответов 1
Метки (Все метки)

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

Решение

Цитата Сообщение от dioris Посмотреть сообщение
1.Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пропуску между словами. Предложение заканчивается точкой.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var s,sn: string;
    i: integer;
begin
write('s=');
readln(s);
if s[1]<>' ' then sn:=s[1] else sn:='';
for i:=2 to length(s) do
    if (s[i]=' ') and (s[i-1]=' ') then
       sn:=sn else
       sn:=sn+s[i];
write('s=',sn);
end.


Вернуться к обсуждению:
Отредактировать предложение, удаляя из него лишние пробелы, поменять местами в строке первое и последнее Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2011, 18:10
Готовые ответы и решения:

Отредактировать предложение, удаляя из него лишние пробелы
Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между...

Отредактировать предложение, удаляя из него лишние пробелы
Составить программу, в которой с клавиатуры вводится строка символов и отредактировать предложение,...

Отредактировать предложение, удаляя из него лишние пробелы
отредактировать предложение ,удаляя из него лишние пробелы,оставляя только по одному пробелу между...

Отредактировать заданное предложение, удаляя из него лишние пробелы
СОСТАВИТЬ ПРОГРАММУ ДЛЯ РЕДАКТИРОВАНИЯ ЗАДАННОГО ПРЕДЛОЖЕНИЯ. УДАЛЯЯ ИЗ НЕГО ПРОБЕЛЫ НА PHP...

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

Отредактировать предложение, удаляя из него лишние пробелы, оставляя по одному пробелу между словами
Отредактировать предложение, удаляя из него лишние пробелы, оставляя по одному пробелу между...

Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между словами
Отредактировать предложение, удаляя из него лишние пробелы, оставляя только по одному пробелу между...

Отредактировать текст, удаляя из него лишние пробелы. Заключить весь текст в кавычки
Всем здравствуйте. Выручайте делаю лабораторные и вот такая задача: Отредактировать текст, удаляя...

Поменять местами первое и последнее предложение
Доброго времени суток,недавно попалась задача где нужно поменять местами 1-ое и последнее...

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