Решение задач на тему "Записи" с использованием языка программирования Turbo Pascal

Разделы: Информатика


Цель урока: обобщение и систематизация знаний по теме: "Записи" с помощью решения задач.

Задачи урока:

Образовательная - повторить и обобщить знания по данной теме с помощью решения задач используя язык программирования 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.