Языки программирования Pascal и Delphi

После всех слов в отдельной строке выводится их количество. Слова должны быть выведены по одному в строчке в алфавитном порядке. Программа должна вывести все слова, которые можно составить с помощью заданного алфавита. Первая входная строка содержит алфавит языка племени «тумба-юмба».

Оставшиеся два числа в третей строке текстового файла уже не могут быть прочитаны! Результатом работы программы должен явится текстовый файл, содержащий заголовок и две колонки чисел. Первая колонка – значения аргумента, вторая – значения функции. Позиция этого символа запоминается в переменной l – левая граница слова. Второй вложенный цикл продолжает сканировать строку до тех пор, пока не встретится пробел или не будет достигнут конец строки.

Для преобразования символов строки из строчных в прописные введем подпрограмму-процедуру UpChar. Действие подпрограммы заключается в том, что, начиная с 1-го символа и до конца строки строчная буква заменяется прописной.

Данные в строке разделены одним пробелом

Словом в тексте считается последовательность символов из прописных и строчных букв латинского алфавита. Требуется перевернуть (записать в обратном порядке) все слова текста, оставив знаки препинания и другие символы, включая буквы русского алфавита, без изменений.

По умолчанию, если размер строки после слова String не указан, предполагается, что ее длина максимальна – 255 символов. Привет!’, то динамическая длина строки будет равна 7, а максимальная длина 20 символов. Значения строкового типа в программе изображаются в виде последовательности символов, заключенный в апострофы.

Val( s : string; var value; errcd : integer ) – преобразует строку s, содержащую запись числа, в значение переменной value. Тип переменной зависит от формы представления числа в строке. 1 в числовое значение прошло успешно, поэтому значение переменной ec оказалось равным 0, а переменная x получила значение 123.45. Если путь не указан, то подразумевается, что файл расположен в текущем каталоге. Эта процедура создает на диске и открывает новый файл, имя которого связано с переменной f процедурой Assign.

В результате в переменной r оказывается правая граница слова. Затем из строки s с помощью функции Copyвыделяется последовательность символов начиная с позиции l длиной (r-1+1)

Список ввода может содержать имена переменных, значения которых будут считаны из файла. Допускается использование переменных следующих типов: целые, вещественные, символьный и строковый. Для удобства обсуждения строчки, в которых осуществляется операция чтения, пронумерованы. Read последовательно считывают три значения, находящиеся в первой строчке файла и присваивают их переменным a, b и c, соответственно.

И только при считывании последнего значения, за которым следует невидимый управляющий символ конца строки, позиция ввода переводится на новую строчку. Процедура Read в строчке с номером 4 считывает сразу три значения.

Для хранения этих данных выделим три вещественные переменные, значения которых будем вводить с клавиатуры. Исходными данными является текстовый файл, содержащий строчку-заголовок и два столбца чисел. Количество пар данных неизвестно. Считать из файла строку-заголовок.

EOF( f ), которая возвращает логическое значение TRUE, если достигнут конец файла, связанного с файловой переменной f, и значение FALSE в противном случае. Словом будем считать любую последовательность символов, не содержащих пробелов. Поскольку предложение может занимать несколько строк то чтение файла необходимо организовать посимвольно. Анализируя посимвольно содержимое исходного файла выделять предложения, сохраняя их в определенной строковой переменной.

Затем все считанные символы добавляются к строковой переменной, до тех пор, пока не будет встречен один из символов, завершающих предложение. 10 и 13, которые при посимвольном методе чтения также будут считаны.

Составим программу, которая после ввода строки строчных латинских букв заменяет их на прописные. Для обращения к символу, входящему в строку, введем переменную I типа byte, так как в строке может быть не более 255 символов. Для ввода строки используем стандартную функцию ReadLn(S), для вывода полученной строки из прописных букв используем стандартную функцию Writeln(S). Так как эта операция повторяется, то будет удобно записать ее в виде цикла for, параметр которого будет изменяться от 1 до величины длины строки, которую вычислит стандартная функция Length(S).

На вход подается последовательность строк указанного формата. Заданы сначала количество учащихся n, затем n строк, каждая из которых содержит фамилию, имя и три числа (оценки по трем предметам: математике, физике, информатике). Дан текст, состоящий из слов, знаков препинания и других символов.

Если после этой операции мы вновь получим исходное слово, то будем называть такое слово негласным палиндромом. Вам требуется написать программу, которая по данному слову определяет, является ли оно негласным палиндромом. Программа должна вывести YES, если введенное слово является негласным палиндромом, и NOв противном случае.

Pos и процедуры Delete для удаления из строки лишних пробелов, оставляя не более одного пробела между словами. Сначала буквы слова нумеруются в таком порядке: первая буква получает номер 1, последняя буква — номер 2, вторая – номер 3, предпоследняя – номер 4, потом третья … и так для всех букв (см. рисунок). Выведите одно число — количество слов, которые содержатся в исходной строке. Эта процедура ищет уже существующий файл на диске и открывает его для работы, помещая указатель в начальную позицию.

Что еще посмотреть: