лабораторная работа / вар20 / Лаб5

Балаковский институт техники технологий и управления

Лабораторная работа №5

Вариант 20

Выполнил студент УИТ-22

Балаково 2007 год.

Задание: Дан массив В, состоящего из элементов вещественного типа. Вывести отдельно целые и дробные части элементов массива.

program lab5;

var

b:array[1..20] of real;

n,i:byte;

begin

Writeln('Введите количество элементов');

read(n);

Writeln('Введите массив');

for i:=1 to n do

begin

Read(b[i]);

end;

writeln('Целые числа');

for i:=1 to n do

if b[i]=round(b[i]) Then writeln(b[i]:1:0);

writeln('дробные числа');

for i:=1 to n do

if b[i]<>round(b[i]) Then writeln(b[i]:1:3);

end.

Рис.1 Блок–схема программы