|
|
Другие темы раздела | |
Pascal ABC В двух последовательностях замените все элементы, следующие за элементом с максимальным значением, на значение минимального элемента
https://www.cyberforum.ru/ pascalabc/ thread321073.html пусть дан фрагмент программы: var S: set of char; c,d: char присвойте переменной перечисленные ниже множества: пустое множество, множество строчных гласных латинских букв (a,e,i,o,u) ; множество литер, которые больше c,но меньше d(c<d) Добавлено через 10 минут в двух последовательностях а1,...аn и b1...bn замените все элементы, следующие за элементом с максимальным значением, на значение... |
Pascal ABC Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, квадратами целых чисел. помогите, я в множествах не силен Из множества целых чисел 1..100 выделить множество чисел, являющихся, в свою очередь, квадратами целых чисел. |
Pascal ABC Найти количество столбцов,содержащих хотя бы один отрицательный элемент. Помогите пожалуйста решить задачки. 1.Дан двумерный массив целых чисел состоящий из n строк и m столбцов заполненных случайным образом числами из промежутка .Сформировать из элементов этого массива одномерный массив каждый элемент которого равен сумме четных элементов соответствующего столбца. 2.Задан двумерный массив целых чисел размерности n*m.Найти количество столбцов,содержащих хотя бы один... https://www.cyberforum.ru/ pascalabc/ thread321052.html | Pascal ABC Найти число вхождений в предложение некоторого буквосочетания 1.Задание Дано предложение. Определить: а) число вхождений в него буквосочетания "ро"; б) число вхождений в него некоторого буквосочетания из двух букв; в) число вхождений в него некоторого буквосочетания. 2.задание . Имеются два файла одинакового размера, элементами которых являются числа. Получить третий файл: а) каждый элемент которого равен сумме соответствующих элементов заданных... https://www.cyberforum.ru/ pascalabc/ thread321028.html |
Pascal ABC Исправьте ошибку Привет всем помогите решить ну или найти ошибку Имеется текстовый файл.Напечатать: а) первый символ первой строки; б)пятый символ первой строки; в)первые 10 символов первой строки; г)символы с s1-го по s2-й в первой строке д)первый символ второй строки; е)k-й символ n-й строки. вот сама прога но тут где то ошибка не знаю где Program n_3; |
Pascal ABC два массива, в чем ошибка ? В области 20 районов. Площади, засеянные пшеницей (в гектарах), и урожай, собранный в каждом районе (в центнерах), хранятся в двух массивах. Определить среднюю урожайность пшеницы по каждому району и по области в целом. Program n_11124; Uses crt; Var A:array of integer; S:string; I:iteger; Begin S:=0; https://www.cyberforum.ru/ pascalabc/ thread321010.html |
Pascal ABC Перевод кода с FreePascal в PascalABC Доброго времени суток! Существует программа, работающая в FreePascal, мне нужно изменить её так, чтобы она сработала в PascalABC. Программа состоит из девяти процедур. После каждой из них, АБС выдает ошибку "ожидался другой оператор". Пример процедуры: Procedure PlTurn (var matrix : xo; pl: char); var check : boolean; x, y : shortint; Begin writeln ('Сделайте ход. Введите сначала... https://www.cyberforum.ru/ pascalabc/ thread320990.html |
Как удалить строки? Pascal ABC дана вещественная матрица А(n,m) где n<10,m<10. разработайте программу, которя удаляет все строки, содержащие только отрицательные элементы. выведите на экран исходную матрицу и матрицу-результат или сообщение о том, что таких строк нет. |
Pascal ABC Дан текст.определить на какую букву чаще всего начинаются в тексте на delphi 7.0
https://www.cyberforum.ru/ pascalabc/ thread320905.html Дан текст.определить на какую букву чаще всего начинаются в тексте на delphi 7.0 |
Pascal ABC Заменить в нем все вхожения буквосочетания "да" на "не".
https://www.cyberforum.ru/ pascalabc/ thread320883.html Дано предложение. Заменить в нем все вхожения буквосочетания "да" на "не". Uses crt; Var str:string; I:byte; Begin Writeln(‘введите предложение’); readln(str); For i:=1 to length(str) do if str in then str:=`не`;{ошибку выдает в этой строке , значения этого типа не могут образовывать множества} |
Отредактировать процедуру Pascal ABC Помогите пожалуйста ! Вот готовая программа, нужно лишь подставить в procedure TestChast что бы получилось "каждая цифра от 0-9 встречается столько то раз."(сам массив состоит из 10 цифр) А в procedure TestSerij; тоже самое только там цифры от 0-1 встречается столько то раз.(массив из 0 и 1) program Generator; uses crt; const n=1000; k=10; |
Pascal ABC Найти количество слов, которые содержат ровно три буквы "А" дана строка состоящая из русских слов,набранных заглавными буквами и разделенных пробелом (одним или несколькими) Найти количество слов,которые содержат ровно три буквы "А" https://www.cyberforum.ru/ pascalabc/ thread320862.html |
3 / 3 / 2
Регистрация: 20.05.2011
Сообщений: 57
|
|
17.06.2011, 21:59 [ТС] | 0 |
Дан текст, состоящий из слов, разделенных произвольным числом пробелов. Удалить из текста лишние пробелы, оставив по одному между словами - Pascal ABC - Ответ 177028017.06.2011, 21:59. Показов 4644. Ответов 4
Метки (Все метки)
Ответ
БОЛЬШОЕ СПАСИБО
Вернуться к обсуждению: Дан текст, состоящий из слов, разделенных произвольным числом пробелов. Удалить из текста лишние пробелы, оставив по одному между словами Pascal ABC
0
|
17.06.2011, 21:59 | |
Готовые ответы и решения:
4
Ввести строку из нескольких слов. Разделитель слов пробел. Удалить лишние пробелы, оставив только один пробел между словами Удалить из файла все лишние пробелы, оставив между словами не более одного пробела Удалить из файла все лишние пробелы, оставив между словами не более одного пробела Удалить из файла все лишние пробелы, оставив между словами не более одного пробела |
17.06.2011, 21:59 | |
17.06.2011, 21:59 | |
Помогаю со студенческими работами здесь
0
Удалить из файла все лишние пробелы, оставив между словами не более одного пробела Удалить из файла все лишние пробелы, оставив между словами не более одного пробела Из строки слов разделенных пробелами удалить лишние пробелы оставив по одному. Из строки слов разделенных пробелами, удалить лишние пробелы, оставив по одному |