Рабочие листы
к вашим урокам
Скачать
1 слайд
Программирование линейных и разветвляющихся алгоритмов
Тема: Начала программирования
2 слайд
Проверка домашнего задания
Паскаль – язык программирования.
Основные элементы языка программирования являются: алфавит, словарь, типы величин.
Структура программы на Паскале состоит из четырех блоков
Блок VAR – это блок описания переменных.
Переменные в программе всегда одного типа.
Оператор Read – предназначен для вывода на экран сообщений.
Команды ввода данных описывают считывание данных с клавиатуры.
1 1 0 1 0 0 1
3 слайд
Линейные алгоритмы – алгоритмы в которых команды выполняются последовательно по порядку
4 слайд
Линейная программа на ввод и вывод данных
Program Znakomstvo;
Var a:string;
Begin
Write (‘Введите свое имя ’);
Readln (a);
Writeln (‘Привет, ’, a, ‘!’ );
end.
Запуск программы
writeln
read
5 слайд
Разветвляющийся алгоритм позволяет исполнителю выбирать ход работы в связи с выполнением условия
6 слайд
Описание ветвления на Паскаль
Если
То
Иначе
все
If <условие>
Then <серия команд1>
Else <серия команд2>;
Если
То
все
If <условие>
Then <серия команд1>;
7 слайд
Дополним программу ввода и вывода данных условием
Program Znakomstvo;
Var a:string; b:char
Begin
Write (‘Введите свое имя ’);
Readln (a);
Write (‘Введите пол m –мужской, w - женский’);
Readln (b);
If ord(b)=109 then
Write (‘Приветствую господин, ’, a, ‘!’ )
Else Write (‘Приветствую госпожа, ’, a, ‘!’ );
end.
8 слайд
Программа с неполным ветвлением(большее из трех)
Program Maximum;
Var max, a, b, c: real;
Begin
Write(‘Введите числа’);
Readln(a,b,c);
Max:=a;
If b>max then max:=b;
If c>max then max:=c;
write (‘Наибольшее число - ’, max);
End.
9 слайд
Вложенные ветвления
if <условие1> then
if <условие2> then <оператор1>
else <оператор2>
else <оператор3>
else всегда относится к ближайшему оператору if
!
Если оператор состоит более чем из одной
команды то его
помещают begin end;
10 слайд
Составной оператор ветвления (вложенное ветвление)
program lineynoe_uravnenie;;
var a, b, x: real;
begin
writeln ('Решение линейного уравнения');
write ('Введите коэффициенты a , b ');
readln (a, b);
if a<>0 then
begin
x:=-b/a;
writeln ('Корень уравнения x=', x)
end
else if b<>0 then writeln ('Корней нет')
else writeln ('x – любое число');
end.
11 слайд
Домашнее задание
§ 3.3, 3.4
прочитать, составить конспект, обратить внимание на работу с разными типами данных.
Рабочие листы
к вашим урокам
Скачать
6 655 024 материала в базе
Настоящий материал опубликован пользователем Гостева Анна Владимировна. Инфоурок является информационным посредником и предоставляет пользователям возможность размещать на сайте методические материалы. Всю ответственность за опубликованные материалы, содержащиеся в них сведения, а также за соблюдение авторских прав несут пользователи, загрузившие материал на сайт
Если Вы считаете, что материал нарушает авторские права либо по каким-то другим причинам должен быть удален с сайта, Вы можете оставить жалобу на материал.
Удалить материалВаша скидка на курсы
40%Курс повышения квалификации
72 ч. — 180 ч.
Курс профессиональной переподготовки
300/600 ч.
Курс повышения квалификации
36/72 ч.
Мини-курс
6 ч.
Мини-курс
4 ч.
Оставьте свой комментарий
Авторизуйтесь, чтобы задавать вопросы.