Линейные алгоритмы в Pascal (Урок 3). Задача 2 Даны переменные X и Y Требуется произвести между ними обмен значениями алг обмен вещ X, Y, Z нач ввод X. - презентация

1 Линейные алгоритмы в Pascal (Урок 3)

2 Задача 2 Даны переменные X и Y Требуется произвести между ними обмен значениями алг обмен вещ X, Y, Z нач ввод X ввод Y Z := X X := Y Y := Z вывод X, Y кон Линейные алгоритмы Program obmen; Var x,y,z : integer; Begin write(Введите два числа: ); readln(x,y); z := x; x := y; y := z; writeln(x,y); end.

3 Линейные алгоритмы Задача 1. Написать программу нахождения периметра прямоугольного треугольника по известным катетам a и b (a и b – целые числа, вводимые с клавиатуры). Program perimetr; Var a,b : integer; c,p : real; Begin write(a=); readln(a); write(b=); readln(b); c := sqrt(sqr(a)+sqr(b)); p := a + b + c; writeln(p=,p:5:1); readln end. Вариант 1:

4 Линейные алгоритмы Задача 1. Написать программу нахождения периметра прямоугольного треугольника по известным катетам a и b (a и b – целые числа, вводимые с клавиатуры). Program perimetr; Var a,b : integer; p : real; Begin write(a=); readln(a); write(b=); readln(b); p := a + b + sqrt(sqr(a)+sqr(b)); writeln(p=,p:5:1); readln end. Вариант 2:

5 1) Записать математические выражения в Паскале и вычислить их значения при a=2, b=3: 2) Задача. Вычислить длину окружности и площадь круга одного и того же заданного радиуса R. Решение задач Задачник 1 § стр ; 1, 13, 28

6 Домашнее задание Задачник 1 под редакцией Семакина И.Г. § ЭОР Информатика и ИКТ Единая коллекция Цифровых образовательных ресурсов ЦОР к курсу И.Г.Семакина «Информатика и ИКТ», 9 класс § 35 Выполнить практическое задание 20 и выслать решение по адресу