Добавить материал и получить бесплатное свидетельство о публикации в СМИ
Эл. №ФС77-60625 от 20.01.2015
Инфоурок / Информатика / Конспекты / Программирование на ТР 7 класс_2 уро4

Программирование на ТР 7 класс_2 уро4


  • Информатика

Поделитесь материалом с коллегами:

Тема: Нахождение периметра и площади прямоугольника и квадрата заданными сторонами.

Цели: -научить решать математические задачи в турбо паскаль.

- научить выводить ответы на экран.

Ход урока

  1. Организационный момент.

Приветствие.

  1. Актуализация знаний.

Какие типы переменных знаете? Для чего они так разделены между собой?

  1. Изучение новой темы.

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

Сначала рисуем блок схему. Аккуратно нарисуйте блок схему. Что нам дано по условию задачи? Текст программы составим мы вместе.



Program perimetr;

Var a,b,p:real;

Begin

Writeln(‘vvedite a’);

Readln(a);

Writeln(‘vvedite b’);

Readln(b);

P:=2*(a+b);

Readln(‘perimetr=’,p);

Readln;

End.


Program perimetr;

Var a,p:real;

Begin

Writeln(‘vvedite a’);

Readln(a);

P:=4*a;

Readln(‘perimetr=’,p);

Readln;

End.




  1. Практическая работа.

Обе задачи сохраняем и в конце будет проверка.

  1. Домашнее задание. П. 1.2.5 п.1.2.6.

  2. Подведение итогов.


Краткое описание документа:

 Тема:   Нахождение периметра и площади прямоугольника и квадрата  заданными сторонами.

Цели: -научить решать математические задачи в турбо паскаль.

- научить выводить ответы на экран.

  Ход урока

1.      Организационный момент.

Приветствие.

2.     Актуализация знаний.

 Какие типы переменных  знаете? Для чего они так разделены между собой?

3.     Изучение новой темы.

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

Сначала рисуем блок схему. Аккуратно нарисуйте блок схему.  Что нам дано по условию задачи? Текст программы составим мы вместе.

 


 Program perimetr;

     Var  a,b,p:real;

Begin

    Writeln(‘vvedite a’);

     Readln(a);

    Writeln(‘vvedite b’);

     Readln(b);

     P:=2*(a+b);

    Readln(‘perimetr=’,p);

    Readln;

End.

 

Program perimetr;

     Var  a,p:real;

Begin

    Writeln(‘vvedite a’);

     Readln(a);

         P:=4*a;

    Readln(‘perimetr=’,p);

    Readln;

End.

 

 

 


4.     Практическая работа.

 Обе задачи сохраняем и в конце будет проверка.

5.     Домашнее задание. П. 1.2.5   п.1.2.6.

 

6.     Подведение итогов.

Автор
Дата добавления 02.04.2015
Раздел Информатика
Подраздел Конспекты
Просмотров215
Номер материала 471371
Получить свидетельство о публикации


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