Цель урока: обобщение и систематизация знаний по теме: "Записи" с помощью решения задач.
Задачи урока:
Образовательная - повторить и обобщить знания по данной теме с помощью решения задач используя язык программирования Turbo Pascal.
Воспитательная - содействовать в ходе урока формированию внимательности, самостоятельности.
Развивающая - развитие логического мышления учащихся, умения решать задачи по данной теме.
Тип урока: урок решения задач
Структура урока.
Организационный этап (5 мин)
Вводно-мотивационный этап (15 мин)
Операционно-содержательный этап (45 мин)
Рефлексивно-оценочный этап (10 мин)
Домашнее задание (5 мин)
Оборудование: ПК, программное обеспечение
Ход работы
1. Организационный этап.
Здравствуйте, ребята, садитесь. Сегодня на уроке мы с вами будем решать задачи на тему "Записи" используя язык программирования Turbo Pascal.
2. Вводно-мотивационный этап (актуализация опорных знаний).
Опрос на тему: "Записи".
Почему запись называют комбинированным типом данных?
Как определяется тип записи? Что называется типом записи?
Зачем применяются записи с вариантами?
Что такое составное имя поля записи?
Как записываются компоненты каждого варианта записи?
3. Операционно-содержательный этап
Начинаем решение задач.
Записи
Опишите запись с именем типа Karta, содержащую следующие поля:
Номер измерения;
Значения
program z1;
uses crt;
type
karta=record
nomer:integer;
znachenie:real
end;
Z:karta;
Begin
Clrscr;
Writeln('Введите номер измерения');
Readln(Z.nomer);
Writeln('Введите значение');
Readln(Z.znachenie);
Writeln('Получена запись:');
Writeln(Z.nomer,' ',Z.znachenie);
Readln; End.
Опишите запись с именем типа Doc, содержащую следующие поля:
Номер строки документа;
Тип строки.
program z2;
uses crt;
type
Doc=record
nomer:integer;
text:string
end;
S:doc;
Begin
Clrscr;
Writeln('Введите номер строки документа');
Readln(S.nomer);
Writeln('Введите текст строки');
Readln(S.text);
Writeln('Получена запись:');
Writeln(S.nomer,' ',S.text);
Readln;End.
Опишите запись с именем типа Graf, содержащую данные необходимые для построения графика из 40 точек:
Название графика;
40 значений.
program z4;
uses crt;
type
Graf=record
grafic:string;
znachenie:integer
end;
X:graf; i:integer;
Begin
Clrscr;
Writeln('Введите название графика);
Readln(X.grafic);
For i:=1 to 40 do
begin
Writeln('Введите значение');
Readln(X.znachenie);
End;
Writeln('Получена запись:');
Writeln(X.grafic);
For i:=1 to 40 do
Write(x.znachenie,' ');
Readln;End.
задачи 5, 6 аналогично. Стр 251-252, В.Б. Попов. Turbo Pascal для школьников.
Опишите запись с именем Tovar , содержащую информацию о хранящемся на складе товаре:
Код товара;
Наименование товара;
Цену.
program z12;
uses crt;
type
Tovar=record
Cod:integer;
Name:string;
Cena:real
End;
Tov:Tovar;
Begin
Clrscr;
Writeln('начальные значения');
Tov.cod:=10;
Tov.name:='туфли женские';
Tov.cena:=45200.00;
With Tov do
Begin
Writeln('Введите код товара');
Readln(cod);
Writeln('Введите наименование товара');
Readln(name);
Writeln('Введите цену');
Readln(cena);
Writeln('Получена запись:');
Writeln(cod,' ',name,' ',cena);
End;
Readln;
End.
Опишите запись с именем Data, содержащую информацию о средней температуре в хранилище за 30 дней:
Номер месяца;
Температура
program z13;
uses crt;
type
Data=record
month:integer;
temper:real;
End;
Zamer:data; i:integer;
Begin
Clrscr;
Writeln('начальные значения');
zamer.month:=7;
zamer.temper:=9.5;
With Zamer do
Begin
For i:=1 to 29 do
begin
Writeln('Введите номер месяца');
Readln(month);
Writeln('Введите температуру');
Readln(temper);
End;
Readln;
End.
задача 14 аналогично.
4. Рефлексивно-оценочный этап (10 мин). Проверка программ, выставление оценок за урок
5. Домашнее задание. Попов. Turbo Pascal для школьников. Стр 253 №15, №16.