|
|
| Другие темы раздела | |||||||||||||||||||||||
|
Free Pascal Даны натуральное число, последовательность символов. Удалить все символы '*', сдвигая конец последовательности на освободившиеся места
https://www.cyberforum.ru/ free-pascal/ thread623967.html Здравствуйте! Даны натуральное число N, последовательность символов s1,s2,s3,...,sN. Удалить все символы '*', сдвигая конец последовательности на освободившиеся места, а освободившиеся в конце строки символы заменить пробелами. Использовать только один массив и один просмотр. |
Заменить в последовательности каждую группу слов 'МУХА' группой слов 'СЛОН' Free Pascal Даны натуральное число N, последовательность символов s1,s2,s3,...,sN. Заменить в этой последовательности каждую группу слов 'МУХА' группой слов 'СЛОН'. P.S. я не понял, что за группы СЛОН м МУХА? | ||||||||||||||||||||||
|
Free Pascal Напечатать слова последовательности, где в слове нет повторяющихся букв
https://www.cyberforum.ru/ free-pascal/ thread623651.html Дана последовательность, содержащая от 2 до 20 слов, в каждом из которых от 1 до 8 строчных латинских букв; между соседними не менее одного пробела, за последним словом - точка. Напечатать те слова последовательности, которые удовлетворяют следующему свойству: а) слово симметрично, т.е. первая буква совпадает с последней, вторая с предпоследней и т.д.; б) длинна слова максимальна, если таких... |
Free Pascal Вводится последовательность строчных латинских букв, за которой следует пробел. Является ли введенный текст правильной записью Пусть в программе описан тип color и переменная х типа color: type color=(red, blue, green, yellow, black, white); var x:color; С клавиатуры вводится последовательность строчных латинских букв, за которой следует пробел. Проверить, является ли введенный текст правильной записью значения типа color. Если это правильная запись значение типа color, то присвоить его переменной х, иначе сообщить об... https://www.cyberforum.ru/ free-pascal/ thread623180.html | ||||||||||||||||||||||
|
Определить ,является ли данный текст правильной записью римскими цифрами целого числа от 1 до 38 Free Pascal Дан текст из заглавных латинских букв, за которыми следует пробел. Определить, является ли этот текст правильной записью римскими цифрами целого числа от 1 до 38, и, если является, напечатать это числ арабскими цифрами (в десятичной системе). |
Free Pascal Написать программу, которая вводит дату некоторого дня года и печатает название соответствующего знака Зодиака
https://www.cyberforum.ru/ free-pascal/ thread622895.html Известно, что астрологи делят год на 12 периодов и каждому из них ставят в соответствие один из знаков Зодиака: 20.1-18.2 - Водолей 19.2-20.3 - Рыбы 21.3-19.4 - Овен 20.4-20.5 - Телец 21.5-21.6 - Близнецы 22.6-22.7 - Лев 23.7-22.8 - Дева 23.8-22.9 - Весы 23.10-22.11 - Скорпион | ||||||||||||||||||||||
|
Free Pascal Даны натуральное число, последовательность символов. Подсчитать:
https://www.cyberforum.ru/ free-pascal/ thread622855.html Здравствуйте! Давно не виделись.:) У меня новый тип задач: Средства работы с текстовой информацией. Даны натуральное число N, последовательность символов s1, s2, s3,..., sN. Подсчитать: а) сколько раз в этой последовательности встречается символ '+' и символ '*'; б) общее число вхождений символов '+', '-', '*'. |
Free Pascal. Реализация метода внешней сортировки: "Сбалансированное многопутевое слияние" Free Pascal Здравствуйте уважаемые форумчане,прошу помоч с реализацией данного метода, поискал в и-нете и книгах, кругом однотипные процедуры,которые реализовать не очень просто:( Добавлено через 1 час 46 минут uses crt; var f0,f1,f2,d1,d2: file of integer; i,n,prov,x: integer; procedure firstras(var prov:integer); var k, i, x,last:integer; begin | ||||||||||||||||||||||
|
Free Pascal Ошибка в алгоритме
https://www.cyberforum.ru/ free-pascal/ thread622165.html Алгоритм не всегда выполняется правильно( первый элемент не сортируется). В чем ошибка? 95 procedure SortShell(a:arr); 96 var 97 i,j,l:longint; 98 begin 99 l:=(high(a)+1) div 2; 100 while l>0 do begin 101 for i:= l to high(a) do begin 102 j:=i-l; 103 while a<a do begin |
Free Pascal Совершенные числа. Задачи как таковой нет И это снова я))) Мне вот интересно стало... В разных источниках написано, что количество совершенных чисел неизвестно. И еще неизвестно есть ли конечное число СЧ или их число бесконечно. Также неизвестно существует ли совершенное нечетное число. А можно ли такую программу написать, которая могла бы вычислить совершенные числа из промежутка, скажем, ? Потом как-то увеличить границы промежутка и... https://www.cyberforum.ru/ free-pascal/ thread621942.html | ||||||||||||||||||||||
|
Free Pascal Выписать все слова из текста, начинающиеся с заданной буквы 2.Выписать все слова из текста, начинающиеся с заданной буквы. Если не сложно, то решение с помощью процедур и функций |
Free Pascal Записи: поиск записи по заданному полю, вставка и удаление записи, изменение значения заданного поля
https://www.cyberforum.ru/ free-pascal/ thread621755.html 3.Описать запись, с полями описанными в таблице. Наименование Количество жителей Площадь, кв. км. Год основани
Наверх
| ||||||||||||||||||||||
