Хелпикс

Главная

Контакты

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



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

Стр 1 из 2Следующая ⇒


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 = x2 + 3x – x3 . Значение 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 Зайти на электронную почту можно здесь .


12Следующая ⇒
  

© helpiks.su При использовании или копировании материалов прямая ссылка на сайт обязательна.