Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

ноября 2020 г. (понедельник)

02 ноября 2020 г. (понедельник)    

Дисциплина: Информатика и ИКТ

Группа: № 78

Урок № 10-11

Тема: Программирование циклов.

Цель:        

Учебная: научиться программировать на Паскале циклические алгоритмы.

Развивающая: развивать алгоритмическое мышление, познавательный интерес обучающихся.

Воспитательная: воспитывать у обучающихся устойчивый интерес к изучению информатики и ИКТ; информационную культуру.

Учебник: Информатика. Базовый уровень : ученик для 10 класса / И.Г. Семакин, Е.К. Хеннер, Т.Ю. Шеина. – 7-е изд. – М. : БИНОМ. Лаборатория знаний, 2017. – 264 с. : ил.

КОНСПЕКТ УРОКА

1. Найти сумму всех целых чисел, больших – 40 и меньших 150, которые кратны 7.

  Сумму и числа вывести на экран.

program summa;

var i,s:integer;

begin

s:=0;

for i:=-40 to 150

do

begin

if i mod 7=0 then

begin

write(i:5,', ');

s:=s+i;

end;

end;

writeln;

writeln('Сумма чисел равна ',s:5);

readln;

end.

2. Вычислить значения функции  y = x² + 3x – x³ . Значение x изменяется от – 2 до 3 с

шагом 0,2. Результат вывести в виде таблицы значений x и y.

program tabul;

uses crt;

var x,y:real;

begin

textcolor(14);

textbackground(1);

clrscr;

x:= – 2;

while x<=2 do

begin

y:=x*x+3*x-x*x*x;

writeln('x= ',x:5:2,' y= ',y:5:2);

x:=x+0.2;

end;

readln;

end.

3. Задача № 2 с применением цикла repeat .. until.

program tabul;

uses crt;

var x,y:real;

begin

textcolor(14);

textbackground(1);

clrscr;

x:= –2;

repeat

begin

y:=x*x+3*x-x*x*x;

writeln('x= ',x:5:2,' y= ',y:5:2);

x:=x+0.2;

end;

until x>2;

readln;

end.

4. Составить программу вычисления значения функции y = 2cos x – 1 на промежутке от

0 до 3 с шагом 0,2. Результат вывести в виде таблицы, первый столбец которой –

значение аргумента, второй – соответствующее значение функции.

program fun;

uses crt;

var x,y:real;

begin

textcolor(14);

textbackground(1);

clrscr;

x:=0;

while x<=3 do

begin

y:=2*cos(x)-1;

writeln('x = ',x:5:2,' y = ',y:5:2);

x:=x+0.2;

end;

readln;

end.

5. Распечатать столбиком таблицу умножения на 8.

program tabl_umn;

uses crt;

var x,y: integer;

begin

textcolor(15);

textbackground(1);

clrscr;

writeln('Таблица умножения на 8');

writeln;

for x:=0 to 9 do

begin

y:=x*8;

writeln('8 * ',x, '= ',y)

end;

readln;

end.

Домашнее задание: 

1. Если есть возможность скачать программу Pascal АВС и набрать задачу № 5. Прислать фото результата.

Конспект сфотографировать и прислать в ВКонтакте:

1. Елене Анатольевнев ЛС. 

2. Александру Седнёву в ЛСили на электронную почту sednyov@mail.ru Зайти на электронную почту можно здесь .