С помощью Паскаля решить задачи:

1. Ввести с клавиатуры символьную строку и заменить в ней все буквы "а" на "б" и все буквы "б" на "а".

   (заглавные на заглавные и строчные на строчные буквы) пример: ааббАА, а после замены стало: ббааББ.

2. Ввести с клавиатуры символьную строку и определить сколько в ней слов.

   Пример: Вася пошел гулять.---- Найдено 3 слова.

3. Ввести с клавиатуры в одну строку фамилию, имя и отчество, разделив их пробелом.

   Вывести фамилию и инициалы. Пример: Пирожков Петр Васильевич, а стало : П.В. Пирожков.

Информатика 8 класс Программирование на Паскале Паскаль информатика 8 класс замена символов строки буквы ввод с клавиатуры определение слов инициалы фамилия имя отчество программирование алгоритмы задачи учебный материал IT образование школьная программа Новый

Давайте разберем каждую из задач, используя язык программирования Паскаль. Я объясню, как решать задачи пошагово.

Задача 1:

Мы хотим заменить все буквы "а" на "б" и наоборот, сохраняя регистр букв. Вот как это можно сделать:

1. Сначала мы объявляем переменные: s для исходной строки и s1 для строки после замены.
2. Считываем с клавиатуры строку в переменную s.
3. Создаем цикл, который будет проходить по каждому символу строки s1.
4. Внутри цикла проверяем, какой символ мы встречаем:
   • Если это буква "а", заменяем её на "б".
   • Если это буква "А", заменяем её на "Б".
   • Если это буква "б", заменяем её на "а".
   • Если это буква "Б", заменяем её на "А".
5. После завершения цикла выводим получившуюся строку s1.

Пример кода:

var s,s1:string;
i:integer;
begin
    readln(s);
    s1:=s;
    for i:=1 to length(s1) do begin
        if s1[i]='а' then s1[i]:='б' else
        if s1[i]='А' then s1[i]:='Б' else
        if s1[i]='б' then s1[i]:='а' else
        if s1[i]='Б' then s1[i]:='А';
    end;
    writeln(s1);
end.

Задача 2:

Теперь давайте определим, сколько слов в строке. Мы сделаем это следующим образом:

1. Объявляем переменные s для исходной строки, s1 для работы со строкой, i для итераций и k для подсчета слов, начиная с 1, так как первое слово уже есть.
2. Считываем строку с клавиатуры.
3. Используем цикл while, чтобы искать пробелы в строке. Каждый раз, когда мы находим пробел, мы увеличиваем счетчик k на 1 и удаляем часть строки до пробела.
4. После завершения цикла выводим количество найденных слов.

Пример кода:

var s,s1:string;
i,k:integer;
begin
    readln(s);
    s1:=s; 
    i:=1; 
    k:=1;
    while pos(' ',s1)>0 do begin
        delete(s1,1,pos(' ',s1));
        k:=k+1;
    end;
    writeln(k);
end.

Задача 3:

В этой задаче мы будем выводить фамилию и инициалы. Давайте посмотрим, как это сделать:

1. Объявляем переменные: s для ввода строки, famil для фамилии, imya для имени, otch для отчества и s1 для итоговой строки.
2. Считываем строку с фамилией, именем и отчеством.
3. Используем функцию copy для извлечения фамилии (до первого пробела) и удаляем её из строки.
4. Затем извлекаем имя (первый символ) и удаляем его из строки.
5. Также извлекаем первую букву отчества.
6. Формируем итоговую строку, соединяя инициалы с фамилией, и выводим результат.

Пример кода:

var s,famil,s1,imya,otch:string;
i:integer;
begin
    readln(s);
    famil:=copy(s,1,pos(' ',s)-1);
    delete(s,1,pos(' ',s));
    imya:=copy(s,1,1);
    delete(s,1,pos(' ',s));
    otch:=copy(s,1,1);
    s1:=concat(imya,'.',' ',otch,'.',' ',famil);
    writeln(s1);
end.

Надеюсь, эти объяснения помогут вам понять, как решать задачи на Паскале. Если у вас есть вопросы, не стесняйтесь спрашивать!