Лекция 03 Создание приложенийl (1540916)

Пример реализации цикла while - do

var s, i: real; begin

s:=0; x:=1; while x <= 5 do begin

s:=s+x; x:=x+0.04; end; writeln(s);

end.

71

Определение числа шагов при нормальном завершении цикла

N		5 1		1		4		1	101
		0.04				0.04

72

Пример реализации цикла repeat - until

var s, m: real; begin

s:=1; m:= - 0.23; repeat

s:=s+m; m:=m+0.14; until m > 3; writeln(s);

end.

73

Определение числа шагов при нормальном завершении цикла

N		3 ( 0.23)		1		3.23		1 23.07 1 24
		0.14
						0.14

74

Объявление массивов

Type имя массива = array [диапазон] of тип;

Type a = array Type b = array Type c = array

[1..100] of real; [1..10, 1..5] of integer; [1..20] of string;

Var f: a; g: b; h, k: c;

75

Объявление массивов

Возможно декларировать переменную как массив.

Var d: array [1..10] of real; s: array [1..10] of real;

Однако при этом невозможна запись

D := s;

т.к. массивы относятся к разным типам.

76

Объявление массивов

Правильная запись

Type w=array [1..10] of real; Var d: w; s: w;

При этом возможна запись

D := s;

т.к. массивы относятся к одному типу.

77

Многомерные массивы

Type d = array [1..5] of array [1..5] of real;

Type d = array [1..5, 1..5] of real;

78

Задача 2 Обработка одномерных массивов

Задана последовательность

x = (x1, x2, …, x10).

Сформировать из нее одномерный массив Y, состоящий из вещественных элементов, т.е. элементов, дробная часть которых не равна 0. Если таковых нет, то напечатать сообщение: «Вещественных элементов нет».

79

Задача 2 Текст программы

Program ex2;

Type a = array [1..10] of real;

Var x: a = (0.21, 5., -34.2, 7., 0., -1.72, 10., 2.4, 37., 0.2); Var y: a; i: integer; j: integer = 1;

Begin

For i:=1 to 10 do

if x[i] <> int(x[i]) then begin

y[j]:= x[i]; writeln (y[j]); j:=j+1;

end;

if j = 1 then writeln (‘Вещественных элементов нет’);

80

End.