Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
49
Добавлен:
25.04.2015
Размер:
905.22 Кб
Скачать

21

Как изменить значение переменной?

Пример:

 

 

 

program qq;

 

a

var a,

b:

 

5

 

begin

 

 

 

a :=

5;

 

 

b :=

a + 2;

 

 

a :=

(a + 2)*(b – 3);

b := b + 1;

end.

b

5

b

7 5+2

a

28 7*4

8 7+1

22

Ручная прокрутка программы

program qq;

var a, b: integer; begin

a := 5;

b := a + 2;

a := (a + 2)*(b – 3); a := a + 1;

b := (a + 14) - 7; end.

a b

? ?

23

Сложение двух чисел

Задача. Ввести два целых числа и вывести на экран их сумму.

Простейшее решение:

program qq;

 

 

var a, b, c: integer;

 

begin

 

 

read ( a, b );

 

 

c := a + b;

?

Что плохо?

writeln ( c );

 

end.

Полное решение

24

 

 

 

 

 

 

program qq;

 

 

 

var a, b, c: integer;

 

 

begin

 

 

 

writeln('Введите два целых числа');

 

 

read ( a, b );

 

 

c := a + b;

 

 

 

writeln ( a, '+', b, '=', c );

 

 

end.

 

 

 

Протокол:

компьютер

 

 

 

 

 

Введите два целых числа

 

 

25 30

пользователь

 

 

25+30=55

25

Какие операторы неправильные?

program qq;

var a, b: integer; x, y: real;

begin

имя переменной должно

a := 5;

быть слева от знака :=

 

10 := x;

целая и дробная часть

y := 7,8;

отделяются точкой

нельзя записывать

b := 2.5;

вещественное значение

 

x := 2*(a

в целую переменную

a := b + x;

 

end.

 

Вывод целых чисел

26

 

 

 

 

 

program qq;

 

 

var a, b: integer;

 

 

begin

 

 

a := 15;

 

 

b := 45;

 

 

writeln ( a, b );

1545

 

writeln ( a:4, b:4 );

15 45

 

end.

 

 

символов на число

27

Вывод вещественных чисел

program qq;

 

 

 

var x: real;

 

 

1,234568∙10

begin

всего

1

x := 12.345678;

символов

 

 

 

writeln ( x );

 

1.234568E+001

writeln ( x:10 );

1.23E+001

writeln ( x:7:2 );

12.35

end.

 

 

 

всего

в дробной

символов

части

28

Задания

«4»: Ввести три числа, найти их сумму и произведение.

Пример:

Введите три числа: 4 5 7 4+5+7=16 4*5*7=140

«5»: Ввести два числа, найти их разность и произведение суммы и разности.

Пример:

Введите два числа: 8 5 8-5=3

(8+5)*(8-5)=39

Соседние файлы в папке введение в программирование