Tipo - Learn · Pascal · Типо Лерн · Урок 11

Perfect vision for programming

> Урок 1 > Урок 2 > Урок 3 > Урок 4 > Урок 5 > Урок 6 > Урок 7 > Урок 8 > Урок 9 > Урок 10 > Урок 11 (Вы здесь) > Урок 12
Строки. Работа со строками
Работа со строками ЗАДАЧА: Удалите из строки лишние пробелы. Описание типа данных переменных uses crt; var s:STRING; i:INTEGER; Выполнение основной задачи BEGIN write('Введите строку: '); readln(s); i := 1; REPEAT IF copy(s,i,2)=' ' THEN s := copy(s,1,i) + copy(s,i+2,length(s)) ELSE i := i + 1 UNTIL (i > length(s)); writeln('Полученная строка: ', s); end.
ЗАДАЧА: Написать программу с меню, которая по нажатию на соответствующую цифру: Вводит строку с клавиатуры Удаляет первое слово Удаляет последнее слово Переверачивает строку Добавляет слово в начало строки Описание типов данных переменных uses crt; var s,s1,s2,slovo:STRING j,i,b,a,m,c,n:INTEGER; ch:CHAR; BEGIN Создание меню Gotoxy (1,1); write ('1-Ввод строки с клавиатуры'); Gotoxy (1,2); write ('2-Удаление первого слова'); Gotoxy (1,3); write ('3-Удаление последнего слова'); Gotoxy (1,4); write ('4-Переворот строки'); Gotoxy (1,5); write ('5-Добавить слово в начало строки'); Gotoxy (1,8); write ('0-Выход'); Gotoxy (1,9); write ('Выберите режим'); Создание разветвляющего алгоритма CASE WHILE ch<>'0' DO begin gotoxy (16,13); ch:=readkey; CASE ch OF 1-Ввод строки с клавиатуры '1': begin writeln('Введите строку: ') readln(s); end; end; 2-Удаление первого слова '2': begin gotoxy (24,2); s := s + ' '; delete(s, 1, pos(' ', s)); writeln(s); end; 3-Удаление последнего слова '3': begin gotoxy (25,3); len := length(s); FOR i := len Downto 1 DO IF s[i] = ' ' THEN BEGIN delete(s, i, len - i + 1); END; writeln(s); END; 4-Переворот строки '4': begin gotoxy (21,4); n := length(s) div 2; FOR i := 1 to n DO BEGIN c := s[i]; s[i] := s[length(s)-i+1]; s[length(s)-i+1] := c; END; 5-Добавить в начало '5': begin gotoxy(16,7); write('Введите слово'); readln(slovo); gotoxy (28,5); insert(slovo, s, 1); writeln(s); END;

Letyshops [lifetime]

2018-2020, Илья Любимов.

Автор - Tipo_4ek

По коммерческим предложениям - e-mail