Понятие базы данных: поля, записи. Назначение системы управления базами данных (СУБД)

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

ИГРАЕМ СЕЙЧАС

ИГРАЕМ

Обобщающее занятие по теме «Алгоритмы обработки строковых величин»

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

Задача. Заменить в тексте слово «ноябрь» на «декабрь».  Слова в тексте отделяются друг от друга пробелами. В конце текста тоже стоит пробел.

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 мая

Вывод: 17 

Задание 4. Составить программу, которая запрашивает число,  месяц и год вашего рождения. Затем выводит год вашего рождения. Число, месяц могут записываться как одной, так и двумя цифрами.  

Пример: 

Ввод: 17.11.2005

Вывод: 2005

Задание 5. Составить программу, которая выводит слова, начинающиеся и заканчивающиеся одной и той же буквой.

Составление алгоритмов для работы с графикой

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

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

Задание 1. Запустите PascalAbcNet

Задание 2. Составить программу для получения следующего изображения. Расстояние между линиями задайте сами.

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

Задание 4. Составьте программу для получения следующих изображений. 

Наводящие вопросы:

1. Какая команда позволяет рисовать круги? Стр. 159
2. Что нам надо знать, чтобы нарисовать круг?
3. Что у нас будет оставаться постоянным? Центр круга может совпадать с центром экрана.
4. Что будет изменяться? 
5. Начать рисовать лучше с большего круга, иначе большие  круги  будут перекрывать большие.

...

r:=...{максимальный радиус}

while r>=...{самый маленький радиус} do

                    begin

                     c....(..,..,...);                     ;

                     r:=... {r уменьшается}

                    end;

Задание 5. Составить программу для получения следующих изображений.