Лабораторная работа n 1 работа в интегрированной среде borland pascal на примере программ линейной структуры
жүктеу/скачать 364.5 Kb.
|
- Бұл бет үшін навигация:
- 3. ВЫПОЛНЕНИЕ РАБОТЫ
- Варианты заданий.
| Пример: Подсчитать количество слов во введенной с клавиатуры строке.
program lr2; var s: string[30]; kol, i, n: integer; begin writeln ('введите строку'); readln (s); kol:=0; {счетчик количества слов} n:= length(s); {определяем длину введенного текста} s:= concat(' ',s); {добавляем пробел к первому слову} for i:=1 to n do if (copy (s,i,1)=' ') and (copy (s,i+1,1)<>' ') then kol := kol+1;{подсчет количества слов} writeln (s,' количество слов= ', kol); readln end. 3. ВЫПОЛНЕНИЕ РАБОТЫ Набрать и откомпилировать приведенные выше программы, исправить выявленные ошибки. Ввести разные исходные данные, убедиться в правильности выполнения программ. Составить программы с использованием символьных данных согласно вариантам заданий, откомпилировать их, проверить полученные результаты. Варианты заданий. Текст вводится с клавиатуры в символьную переменную. Исходный текст и результаты распечатать. Вывести на печать список слов, имеющих приставку (несколько букв), задаваемую с терминала. Раздвинуть заданный текст, вставив введенную с клавиатуры последовательность символов после 1-го символа каждого слова. В заданном тексте слова разделены запятыми. Напечатать список слов, начинающихся с символа, введенного с клавиатуры. Определить наличие слов в заданном тексте, содержащих сочетание символов, задаваемое с экрана. Из заданной последовательности слов удалить слова, содержащие числа. Каждое слово текста преобразовать таким образом, чтобы оно читалось слева направо. Подсчитать количество слов, разделенных запятыми, содержащих k гласных букв (k - задается с экрана). Из введенного текста сначала распечатать слова, заканчивающиеся на согласную букву, а потом на гласную букву. жүктеу/скачать 364.5 Kb. Достарыңызбен бөлісу:
|