|
|
Другие темы раздела | |
Pascal ABC Первый элемент массива поменять местами с максимальным элементом
https://www.cyberforum.ru/ pascalabc/ thread403989.html Составить программу, которая заполняет массив a случайными числами в диапазоне от 0 до 10, затем первый элемент меняет местами с максимальным элементом. вот моя прога: var a:arrayof integer; i,z,max,k:integer; begin for i:=1 to 10 do begin a:=random(10); write(a,' '); end; |
Самое длинное слово Pascal ABC Самое длинное слово маленькая помощь вводим три строки s и s1 и a; сразу присваиваем им пустое значение s=""; s1=""; введем переменные счетчики l,i,n=0,m=0 целочисленного типа читаем строку a (в С++ getline(cin,a);) переменной l присваем длинну строки a(В С++ l=strlen(a);) Пробегаем c 0 до l с счетчиком i и проверяем |
Pascal ABC Нарисовать узор из отрезка прямой линий, вращающегося вокруг своего "центра" (N-раз) за один оборот вокруг центра узора. Нарисовать узор из отрезка прямой линий, вращающегося вокруг своего "центра" (N-раз) за один оборот вокруг центра узора. https://www.cyberforum.ru/ pascalabc/ thread403978.html |
Pascal ABC Задача на определение попадания точки в заданную плоскость. Не понимаю, что не правильно... Pascal ABC
https://www.cyberforum.ru/ pascalabc/ thread403963.html Записать выражение, зависящее от координат точки и принимающее значение True, если точка принадлежит заштрихованной области и False в противном случае. Заштрихован прямоугольный треугольник, вершинами которого являются точки (0;0), (0;1),(1;0) Я думаю, что должно быть так: Writeln(' Введите координаты X1:,Y1:'); Readln(X1,Y1); Writeln((Y1>=0)and(Y1<=1-X1)and(X1>=0)); |
Pascal ABC Сложение строк Здравствуйте, привожу кусок своей программы, в строке записаны числа, нужно их сложить, код работает, нужно переписать его в ф-ции/процедуры, что у меня совственно не получилось( появл баги и программа летит к черту.. посмотрите что к чему.. if (st='-') then begin delete(st,1,1); if (pos('1000000',st)<>0) then begin insert('... |
Pascal ABC Двумерный массив Дана матрица М номеров мест в купейном вагоне. Заполнить ее рядом натуральных чисел от1 до 36. 1. Записать матрицу. 2. Реализовать запрос N места.вывод его индексов и замену его 0-с повтором запроса. 3. Вывести матрицу оставшихся мест. 4. Определить число четных и нечетных элементов (верхних и нижних мест). https://www.cyberforum.ru/ pascalabc/ thread403818.html |
Pascal ABC Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо Помогите пожалуйста решить задачи (с подпрограммами): 1. Дан одномерный массив. Переместить отрицательные элементы в начало, сдвинув остальные элементы вправо. 2. Руководство ведет каждый месяцам учет расходов фирмы. Получена информация за n месяцев. Расставить данные по расходам в порядке в их возрастания. 3. Дан двумерный массив. В каждой строке замените знак максимального по модулю... https://www.cyberforum.ru/ pascalabc/ thread403784.html |
Нахождение количества отрицательных элементов содержащихся в одномерном массиве Pascal ABC Используя рекурсивную процедуру или функцию, составить программу для нахождения количества отрицательных элементов содержащихся в одномерном массиве. |
Pascal ABC Составить программу, которая заменяет букву на другую
https://www.cyberforum.ru/ pascalabc/ thread403735.html С клавиатуры вводят строку и 2 буквы. Составить программу, которая удаляет заданную букву и на ее место вставляет другую заданную букву. |
Pascal ABC Преобразование единиц измерения физических величин
https://www.cyberforum.ru/ pascalabc/ thread403733.html Задача 1 Составить программу, которая формирует массив из пятнадцати случайных чисел от -20 до 20 и чётные числа делит на 2, а нечётные - умножает на 3. а так же увеличивает в 2 раза числа, кратные 5 а остальные уменьшает в 2 раза. Задача 1 Составте программу, которая осуществляет преобразование единиц измерения физических величин: значение давления, измеренные в миллиметрах ртутного столб,... |
Pascal ABC Имеется информация о работающих в фирме Имеется информация о работающих в фирме:фамилия,имя.отчество,специальность,оклад,дата поступления на работу(месяц,год).Определить: 1.фамилию сотрудника,поступившего на работу в данном месяц; 2.данные о сотруднике. который имеет данную специальность; 3.список(вся информация)людей, проработавших в фирме 5 лет; 4.дату поступления сотрудника на работу по его фамилий и инициалам; ... |
Pascal ABC графика в абс помогите построить график sin x с объяснением, где что написано. есть такой не понятно что тако XN, XDи т д . буду не против другого варианта. спасибо! uses graphABC; function F(x:real):real; begin F:=sin(x); end; var xn,xk,x,y,mx,dx:real; https://www.cyberforum.ru/ pascalabc/ thread403674.html |
Почетный модератор
64300 / 47595 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
|
||||||
11.12.2011, 12:00 | 0 | |||||
Преобразовать все идущие подряд пробелы в один - Pascal ABC - Ответ 227150711.12.2011, 12:00. Показов 9084. Ответов 5
Метки (Все метки)
Сообщение было отмечено Памирыч как решение
Решение
Я бы написал так, если ввод не из файла.
Вернуться к обсуждению: Преобразовать все идущие подряд пробелы в один Pascal ABC
2
|
11.12.2011, 12:00 | |
Готовые ответы и решения:
5
В заданной строке заменить подряд идущие пробелы на один пробел Заменить в файле все подряд идущие пробелы на один пробел В массиве A=(a1, а2, ..., аn) удалить все подряд идущие отрицательные элементы, идущие вслед за минимальным элементом массива. Удалить из массива все подряд идущие отрицательные элементы, идущие вслед за минимальным элементом массива |
11.12.2011, 12:00 | |
11.12.2011, 12:00 | |
Помогаю со студенческими работами здесь
0
Преобразовать все идущие подряд пробелы в один Строка: преобразовать все идущие подряд пробелы в один В строке заменить все идущие подряд пробелы на один Ввести строку с клавиатуры. Заменить все пробелы идущие подряд на один пробел Дан текстовый файл. Заменить в нем все подряд идущие пробелы на один пробел Дан текстовый файл. Заменить в нем все подряд идущие пробелы на один пробел. |