- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Язык программирования Pascal. Урок 4 (8 класс)
Содержание
- 1. Язык программирования Pascal. Урок 4 (8 класс)
- 2. Тема: Организация ветвлений. Условный оператор.
- 3. Условный оператор позволяет выбрать одно из двух действий в зависимости от условия. если то иначе
- 4. if then else ; -полная форма оператора ветвленияif then ; - краткая форма оператора ветвления
- 5. program dialog;var a:string;beginwriteln(‘Как тебя зовут?’);readln(a);if a=’Вася’ then writeln(‘Здравствуй, Вася!’) else writeln(‘А где Вася?’);end.
- 6. Операторные скобкиbegin;…………..;end; или end
- 7. Программа решения квадратного уравненияprogram kwur;var a,b,c,x1,x2,d:real;beginWrite(‘Введите коэффициенты:’);Read(a,b,c);d:=b*b-4*a*c;if d>=0 then begin x1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a); write(‘x1=’,x1:5:5,’ x2=’,x2:5:5); end else write(‘Корней нет’);end.
Тема: Организация ветвлений. Условный оператор.
Слайд 3Условный оператор позволяет выбрать одно из двух действий в зависимости от
условия.
если <условие> то <серия команд1> иначе <серия команд2>
если <условие> то <серия команд1> иначе <серия команд2>
Слайд 4if then else ; -полная форма оператора ветвления
if
then <……..>; - краткая форма оператора ветвления
Слайд 5program dialog;
var a:string;
begin
writeln(‘Как тебя зовут?’);
readln(a);
if a=’Вася’ then writeln(‘Здравствуй, Вася!’) else writeln(‘А
где Вася?’);
end.
end.
Слайд 7Программа решения квадратного уравнения
program kwur;
var a,b,c,x1,x2,d:real;
begin
Write(‘Введите коэффициенты:’);
Read(a,b,c);
d:=b*b-4*a*c;
if d>=0 then begin
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
write(‘x1=’,x1:5:5,’
x2=’,x2:5:5);
end
else write(‘Корней нет’);
end.
end
else write(‘Корней нет’);
end.
