ПРЕЗЕНТАЦИЯ К УРОКУ
Задача. Заменить в тексте слово «ноябрь» на «декабрь». Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.
var s:string;
ns:integer;
begin
readln(s);
ns:=pos('... ',s);{ищем слово, которое будем заменять}
while ns>0 do {повторяем действия пока в тексте есть это слово}
begin
... {удаляем слово}
...('...',s,...);{вставляем новое слово}
...{ищем снова слово}
end;
writeln(s);
end.
ПРАКТИЧЕСКАЯ ЧАСТЬ
Задание 1. Запустите Паскаль. Задание 2. Выполнить программу. Определить, что она делает.
var s, i: string; np:integer;begin writeln('Введите имя и фамилию в строку через пробел'); readln(s); np:=pos(' ',s); i:=copy(s,1,np-1); writeln(i);end.
Задание 3. Составить программу, которая запрашивает число и месяц рождения вашего рождения. Затем выводит только число. В числе может быть как одна цифра, так и две.
Пример: Ввод: 17 мая
Задание 4. Составить программу, которая запрашивает число, месяц и год вашего рождения. Затем выводит год вашего рождения. Число, месяц могут записываться как одной, так и двумя цифрами.
Пример: Ввод: 17.11.2005Вывод: 2005
Задание 5. Составить программу, которая выводит слова, начинающиеся и заканчивающиеся одной и той же буквой.
readln(s);
np:=pos(' ',s);
i:=copy(s,1,np-1);
writeln(i);
end.
Задание 4. Составить программу, которая запрашивает число, месяц и год вашего рождения. Затем выводит год вашего рождения. Число, месяц могут записываться как одной, так и двумя цифрами.
Пример:
Ввод: 17.11.2005
Вывод: 2005
Задание 5. Составить программу, которая выводит слова, начинающиеся и заканчивающиеся одной и той же буквой.
Комментариев нет:
Отправить комментарий