Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 189424
18.05.2016, 17:15
0.00 руб.
0 1 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Выведите отдельно целые и дробные части элементов массива
В

Обсуждение

давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
19.05.2016, 14:26
общий
это ответ
Здравствуйте, amelya.kuro!

Смотрите код:
[code lang=pascal h=200]const
n=20;
var
z:array[1..n]of real;
a,b,c,d:integer;
begin
{создаем массив}
writeln('Massiv:');
randomize;
for b:=1 to n do
begin
z[b]:=50*random;{новый элемент}
write(z[b]:10:7);{выводим его}
end;
writeln;
{выводим целые части отдельно}
writeln('integer part:');
for b:=1 to n do
write(trunc(z[b]):10);
writeln;
{выводим дробные части отдельно}
writeln('fractional part:');
for b:=1 to n do
write(frac(z[b]):10:7);
writeln;
end.[/code]
Удачи!
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа