Тема: "Линейные задачи"
Напоминаю:
Вывод данных на экран и в файл в языке программирования Pascal осуществляется с помощью процедур
Решите задачи:
Задача № 1
Вывести на экран сообщение «Hello World!»
Задача № 2
Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.
Задача № 3
Дано натуральное число. Вывести на экран его квадрат.
Для проверки прислать мне на почту файл-решение
Успехов!!!
Реши и запиши в тетрадь:
19 div 4 19 mod 4
21 div 6 21 mod 6
30 div 7 30 mod 7
Определите без компьютера, что напечатает данная программа:
Напоминаю:
Вывод данных на экран и в файл в языке программирования Pascal осуществляется с помощью процедур
write() и writeln(). Здесь будет рассмотрен вывод только на экран.
Ввод данных в языке программирования Паскаль обеспечивается процедурамиread() и readln(). Ввод данных осуществляется либо с клавиатуры, либо из файла.
Решите задачи:
Задача № 1
Вывести на экран сообщение «Hello World!»
Задача № 2
Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.
Задача № 3
Дано натуральное число. Вывести на экран его квадрат.
Для проверки прислать мне на почту файл-решение
Успехов!!!
Тема: "Решение линейных задач"
Определите без компьютера, что будет напечатано при
выполнении следующих фрагментов программ:
1) a:=100; a:=10*a+1;
WriteLn (a)
2) a:=100; a:=-a;
WriteLn (a)
3) a:=10; b:=25;
a:=b-a; b:=a-b; WriteLn (a,' ',b)
Ответ запишите в тетради
Запиши в тетрадь и разбери:
17 div 5
|
3
|
целочисленное деление
|
17 mod 5
|
2
|
остаток от целочисленного
деления
|
19 div 4 19 mod 4
21 div 6 21 mod 6
30 div 7 30 mod 7
Определите без компьютера, что напечатает данная программа:
VAR a,b: Integer;
BEGIN
a:=(Sqr(2)+1)*(20- Sqr(2*2))-11;
b:=11 div (a-4);
WriteLn (Sqr(a)+b-1)
END.
BEGIN
a:=(Sqr(2)+1)*(20- Sqr(2*2))-11;
b:=11 div (a-4);
WriteLn (Sqr(a)+b-1)
END.
Ответ запиши в тетрадь
Работа устно:
Повторите алгоритмы:
№ 1 Составьте программу-диалог, которая будет выводить диалог по образцу:
№ 2
Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры.
№ 3
Даны катеты прямоугольного треугольника. Найти его площадь
№ 4
Тема урока: Организация ветвления на языке Паскаль
найдите ошибки
Задача
Даны два числа А и В. Найдите наибольшее из них
Составить программы решения
задач:
1) Длина
одной стороны треугольника равна 20. Длины двух других сторон будут известны
только после запуска программы на выполнение. Вычислить периметр треугольника.
2) В
компьютер вводятся путь, пройденный телом, и скорость тела. Найти время
движения тела.
3)
3)
Решение прислать мне на почту.
Работа устно:
Повторите алгоритмы:
Тема: Линейные алгоритмы и программы"
№ 1 Составьте программу-диалог, которая будет выводить диалог по образцу:
КОМПЬЮТЕР: Здравствуй,
я компьютер, а тебя как зовут?
ЧЕЛОВЕК: ЧЕЛОВЕК!
КОМПЬЮТЕР: Очень приятно, ЧЕЛОВЕК! . Сколько тебе лет?
ЧЕЛОВЕК: много
КОМПЬЮТЕР: Ого! МНОГО! Ты уже совсем взрослый!
ЧЕЛОВЕК: ЧЕЛОВЕК!
КОМПЬЮТЕР: Очень приятно, ЧЕЛОВЕК! . Сколько тебе лет?
ЧЕЛОВЕК: много
КОМПЬЮТЕР: Ого! МНОГО! Ты уже совсем взрослый!
№ 2
Найти среднее арифметическое трех вещественных чисел, заданных с клавиатуры.
№ 3
Даны катеты прямоугольного треугольника. Найти его площадь
№ 4
Вычислить значение выражений:
у=15х2+8х-9;
ПРОВЕРЬ СЕБЯ! Ответьте на вопросы теста
Тема урока: Организация ветвления на языке Паскаль
найдите ошибки
program
ReverseNum
var
n, a, b, c:
word;
readln(n);
a = n mod 10;
n := n div 10;
b := n mod 10;
n := n div 10;
c := n;
n := 100 * a +
10 * b + c;
writeln(n)
program
BinaryUnits;
n, cout: byte;
begin
readln(n);
count := 0;
count := count +
n mod 2;
n := n div 2;
count := count +
n mod 2;
n := n div 2;
count := count +
n mod 2
n := n div 2;
count := count +
n;
writelеn(count)
end.
Program pokupka;
Var
a, b, d, den: real;
ostatok: real;
begin
write ('введите стоимость перчаток, портфеля и галстука ');
readln (a, b d);
write ('введите количество имеющихся у вас денег ');
readln (den);
oststok = den - a - b - c;
writeln ('после покупки у вас останется ', ostatok:5:2, 'грн. );
readln;
end
program line
2;
var
a, b, c: real;
begin
write('a=);
var
a, b, c: real;
begin
write('a=);
read(a);
write('b=');
write('b=');
read(b);
write('c=');
write('c=');
readln(c);
write('Среднее арифметическое a, b и c = ');
write(((a+b+c)/3):4_2);
readkey;
end.
write('Среднее арифметическое a, b и c = ');
write(((a+b+c)/3):4_2);
readkey;
end.
Задача
Даны два числа А и В. Найдите наибольшее из них
ЕСЛИ условие ТО действие ИНАЧЕ действие
IF условие THENдействие ELSE действие
Пример решения задачи:
Дополнительные задачи:
IF условие THENдействие ELSE действие
Пример решения задачи:
- program MaxOfTwo;
- var
- x,y:integer;
- begin
- read(а ,в);
- if а > в then
- write(а)
- else
- write(в);
- end.
Дополнительные задачи:
Задача № 1: Ввести число. Если оно неотрицательно, вычесть из него 50, в противном
случае прибавить к нему 100.
Задача № 2: Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.
Задача № 3: Ввести 2 числа. Вычесть из большего меньшее.
Задача № 2: Ввести 2 числа. Если их произведение отрицательно, умножить его на –2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.
Задача № 3: Ввести 2 числа. Вычесть из большего меньшее.
Домашнее задание:
1. Программа проверяет на четность введенное с клавиатуры целое число.
2. Написать программу, которая спрашивает у пользователя возраст, и выдает информацию о том, является ли он совершеннолетним.
Комментариев нет:
Отправить комментарий