Выделение части строки. Урок 10

 ПРЕЗЕНТАЦИЯ К УРОКУ

СОСТАВЛЯЕМ ПРОГРАММЫ

Задание 2. Набрать и выполнить программу, разобранную в классе.

Задание 3. Вводится адрес электронной почты. Вывести ту часть имени, которую пользователь придумывает сам.

var a,s:string;

     ……..:integer;

begin

 readln(a);

 p:=...(‘@’,a);{ищем номер символ @}

 s:=copy(...,1,p-1); {выделяем нужную часть}

 writeln(s);

end.

Удаление части строки. 9 класс Повышенный.

ПРЕЗЕНТАЦИЯ К УРОКУ

Задача. Дана строка: логин:пароль@адрес_сервера. В целях обеспечения безопасности из строки решили удалить пароль и символ :.

Пример

Входная строка: CoolUser:parol@ftp.erunda.ru

Вывод: CoolUser@ftp.erunda.ru

---

РЕШЕНИЕ ЗАДАЧ

Задание 2. Набрать и выполнить программу, разобранную в классе.

Задание 3. Из строки   ФИО^Средний балл&Суммарный балл удалить часть ^Средний балл

Пример

Входная строка: ИвановИ.И.^8,9&27

Вывод: ИвановИ.И&27

var s:....;

      d, k, p: ….;

begin

   readln(...);{вводим строку}

   k:=pos(...,s);{ищем  номер первого символа ^}

   p:=pos(...,s); {ищем  номер первого символа &}

   d:=p-k; {вычисляем длину части ^Средний балл}

   delete(...,k,d);{удаляем из строки часть ^Средний балл}

   writeln(s);

end.

Задание 4. 

1. Из строки   ФИО^Средний балл&Суммарный балл-god удалить часть &Суммарный балл

Пример

Входная строка: ИвановИ.И.^8&27-2017

Вывод: ИвановИ.И.^8-2017

 

2. В строку   ФИО^Средний балл&Суммарный-god балл удалить god.

Пример

Входная строка: ИвановИ.И.^8,9&27-2017

Вывод: ИвановИ.И.^8,9&27

Задание 5. FTP-Connection. Пользователю, зарегистрированному на FTP-сервере, для получения доступа к файлам на нем нужно набрать в FTP-браузере команду вида: ftp://логин:пароль@адрес_сервера. Написать программу, которая из введенной строки выделяет логин, пароль и адрес FTP-сервера и печатает эту информацию.

Пример

Входная строка: ftp://CoolUser:parol@ftp.erunda.ru

Вывод:

Адрес сервера: ftp.erunda.ru

Логин: CoolUser

Пароль: parol

 

Анимация движения

 Задание 1

 Задание 2

Исполнитель Робот. Урок 10. 7 кдасс

ПРЕЗЕНТАЦИЯ К УРОКУ

ПРАКТИЧЕСКАЯ РАБОТА

Задание 1. Запускаем программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка

Задание 2. Набрать и выполнить программу, над которой сегодня работали вместе. Для выполнения программы можно нажать клавишу F9.

Выделение символов из строки. 9 класс повышенный.

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

Пример

Ввод

Иванов Фёдор Петрович

Вывод

Иванов Ф. П.

var fio,s1,s2:string; np1,np2:integer; begin writeln('Vvedite FIO'); readln(fio); np1:=pos(' ',fio);{находит номер первого пробела} np2:=lastpos(' ',fio); {находит номер второго пробела} s1:=copy(fio,1,np1+1);{выделяет из строки fio часть с фамилией и первой буквой имени} s1:=s1+'.';{добавляет к строке s1 точку} s1:=s1+' '+fio[np2+1]+'.';{объединяет строку с фамилией, первой буквой имени и точкой с пробелом и первой буквой отчества и добавляет в конце точку } writeln(s1); end.

РЕШЕНИЕ ЗАДАЧ

Задание 1.

Задание 2. Набрать и выполнить программу, разобранную в классе.

Задание 3. Вводится адрес электронной почты. Вывести ту часть имени, которую пользователь придумывает сам.

var ……...:string;

     ……..:integer;

begin

 readln(a);

 p:=...(‘@’,a);{ищем номер символ @}

 s:=copy(...,1,p-...); {выделяем нужную часть}

 writeln(s);

end.

Текстовый редактор.Урок 10. 6 класс

ПРЕЗЕНТАЦИЯ

ПРАКТИЧЕСКАЯ РАБОТА

Задание 1. Запустите текстовый редактор Word.

Ребята, при наборе не делайте красную строку. Мы с вами научимся её задавать позже.

Задание 2. Сохраните пустой документ в файле задание 1 фамилия. Файл сохранить в папке D:\ученики\6А(Б,В,Г).

Задание 3.  Наберите  первый абзац и первое предложение второго абзаца из упр. 1 стр. 66. Сохраните изменения в файле Файл\Сохранить.

Справка.

«,» -  Shift+.

Язык программирования Pascal. Структура программы. Команда вывода. Урок 15

ПРЕЗЕНТАЦИЯ К УРОКУ

СОСТАВЛЯЕМ ПРОГРАММЫ

Задание 1. Запускаем программу PascalABC.NET. Ярлык вы найдёте на Рабочем столе или в меню Пуск Обратите внимание на чёрные буквы net в правом нижнем углу значка.

Задание 2.  

а) Выполните программу

begin

  write('Вечор, ты помнишь, вьюга злилась,');

  write('На мутном небе мгла носилась;');

  write('Луна, как бледное пятно,');

  write('Сквозь тучи мрачные желтела,');

  write('И ты печальная сидела —');

  write('А нынче… погляди в окно:');

  write('Под голубыми небесами');

  write('Великолепными коврами,');

  write('Блестя на солнце, снег лежит;');

end.

б) Замените все команды write на writeln. Выполните программу. Что произошло? Почему?

в) Перед строкой  write('Под голубыми небесами');  добавьте строку writeln;  Выполните программу. Что произошло? Какой вывод вы можете сделать?

Г) Добавьте после  writeln ещё один writeln.

Покажите результат выполнения учителю.

Задание 3. 

а) Выполните программу. Что вывелось в результате выполнения программы?

begin

  write('5*5+7=');

end.

 

б) Уберите в команде  write('5*5+7='); апострофы.  Выполните программу. Что вывелось в результате выполнения программы? Какой вывод вы можете сделать?

в) Замените команду  write('5*5+7='); на  write('5*5+7=' , 5*5+7); Выполните программу. Что вывелось в результате выполнения программы? Какой вывод вы можете сделать? Мы можем соединять в одной команде  текст и выражения?

г) Выполните упр. 5 п. 1 стр. 96. 

Покажите результат выполнения учителю.