Оператор присваивания, ввод и вывод данных

1. Оператор присваивания, ввод и вывод данных

Презентация 10-24
ОПЕРАТОР ПРИСВАИВАНИЯ, ВВОД
И ВЫВОД ДАННЫХ

2. Оператор присваивания

ОПЕРАТОР ПРИСВАИВАНИЯ
Оператор присваивания имеет вид:
<переменная>:=<выражение>
Пример
s:=0;
t:=r;
а:=b+c;
k:=k+1;

3. Оператор присваивания

ОПЕРАТОР ПРИСВАИВАНИЯ
Пример
Определите значение целочисленных переменных
x и y после выполнения фрагмента программы:
x := 336
у := 8;
x := x div y;
y := х mod у;

4. Ввод данных

ВВОД ДАННЫХ
Ввод информации с клавиатуры осуществляется с помощью
оператора read.
Когда в программе встречается оператор read или readln,
то её действие приостанавливается до тех пор, пока не
будут введены исходные данные.
Оператор ввода имеет вид:
read(<список ввода>)
readln(<список ввода>)
Пример
read(a, b, c);
readln(a); READLN(b);

5. Вывод данных

ВЫВОД ДАННЫХ
Для вывода информации на экран используется
оператор write.
Оператор вывода имеет вид:
write(<список вывода>)
writeln(<список вывода>)
Пример
write(a);
writewn('Сумма ', a+b);

6. Программа на Паскале имеет определенную структуру:

ПРОГРАММА НА ПАСКАЛЕ ИМЕЕТ
ОПРЕДЕЛЕННУЮ СТРУКТУРУ:
Заголовок программы
Раздел описаний
Тело программы

7. Шаблон программы:

ШАБЛОН ПРОГРАММЫ:
program имя;
{ Заголовок программы }
{ Раздел описаний }
{- раздел констант;}
{- раздел переменных; }
{ Числа в языке Pascal различаются как
целые integer и вещественные real}
{ Тело программы }
const;
var;
begin
оператор
оператор
…
оператор
оператор
end.
1;
2;
n-1;
n;

8. Линейная программа

ЛИНЕЙНАЯ ПРОГРАММА
program p1;
var a, b, с: integer;
begin
write('Введите два целых числа через пробел: ');
readln(a, b);
с:=a*b;
writeLn('Их произведение равно: ', с);
end.

9. Очистка экрана

ОЧИСТКА ЭКРАНА
1) Для подключения модуля необходимо в начале
программы (после заголовка) написать строку:
uses CRT
В теле программы (после begin) используется оператор
ClrScr.
2) В теле программы (после begin) используется
оператор cls.

10. Задание

ЗАДАНИЕ
1. Составьте программу вычисления значений
2х + sin 3x
функции у по формуле у =
, для
3,56
которой значение х введите с клавиатуры.

11. Задание

ЗАДАНИЕ
program zadanie1;
var x, y: real;
begin
cls;
write('x=');
readln(x);
y:=sqrt((2*x+sin(abs(3*x)))/3.56);
write('y=', y);
end.

12. Задание

ЗАДАНИЕ
2. Напишите программу нахождения длин медиан m1, m2 и
m3 треугольника по указанным формулам. Длины сторон
a, b и с задаются с клавиатуры.
1
2а 2 2b,2 c 2
m1 =
2
1
2а 2 2c ,2 b 2
m2 =
2
1
m3 =
2b 2 2c.2 a 2
2

13. Задание

ЗАДАНИЕ
3. Определите значение целочисленных переменных a и b
после выполнения фрагмента программы:
а :=1686;
b :=(a div 10) mod 5;
а := а - 200*b;

14. Задание

ЗАДАНИЕ
4. Определите значение целочисленных переменных x и y
после выполнения фрагмента программы:
х := 11;
у := 5;
t := y;
у := х mod у;
x := t;
у := у + 2*t;

15. Задание

ЗАДАНИЕ
5. Напишите программу вычисления длин сторон
треугольника a, b и с по указанным формулам. Треугольник
задан координатами своих вершин (х1, у1), (х2, у2) и (х3, у3).
а=
( х 2 х1 ) 2 ( у 2 у1 ) 2 ,
b=
( х 3 х 2 ) 2 ( у3 у 2 ) 2 ,
c=
( х1 х 3 ) 2 ( у1 у3 ) 2 .

16. Домашнее задание

ДОМАШНЕЕ ЗАДАНИЕ
§ 17, задания из презентации