Колдунчик.ру
Информационный ресурс для всех любителей активных игр на роликовых и ледовых коньках.FAQ Поиск Карта сайта
помогите с паскалем
Новая тема
Ответить
Страница 1 из 1 [ Сообщений: 4 ]
person
Ср фев 13, 2008 5:22 pm
3
пожалуйста помогите решить задачу: задан массив действительных чисел, содержащих 40 элементов. вычислить сумму четных элементов массива , произведение нечетных и кол-во элементов, которые не являются ни четными ни нечетными. по ошибке решила эту задачу с целыми числами, теперь не знаю как решать с действительными. прошу помогите!!!
pro
Ср фев 13, 2008 6:00 pm
3
А программу сюда выложить, никак? Или позволите нам "с нуля" все написать?
Наши админы не любят глупых вопросов!
person
Ср фев 13, 2008 6:21 pm
3
Program mbers;
uses wincrt;
var numbers:array [1..40] of real;
a,b,i:integer;
begin
for i:=1 to 40 do begin
write('numbers(',i,')=');
readln (numbers[i]);
end;
a:=0;
b:=1;
for i:=1 to 5 do
if (numbers[i]) mod (2)=0
then
a:=a+numbers[i]
else
b:=b*numbers[i];
writeln('a=',a,'b=',b);
end.
вот та программа
uses wincrt;
var numbers:array [1..40] of real;
a,b,i:integer;
begin
for i:=1 to 40 do begin
write('numbers(',i,')=');
readln (numbers[i]);
end;
a:=0;
b:=1;
for i:=1 to 5 do
if (numbers[i]) mod (2)=0
then
a:=a+numbers[i]
else
b:=b*numbers[i];
writeln('a=',a,'b=',b);
end.
вот та программа
pro
Ср фев 13, 2008 7:24 pm
3
Код:
Program mbers;
uses wincrt;
var
numbers:array [1..40] of real;
i,realvals:integer;
even,odd: real;
begin
for i:=1 to 40 do begin
write('numbers[',i,']=');
readln(numbers[i])
end;
even := 0;
odd := 1;
realvals := 0;
for i:=1 to 40 do begin
if (i mod 2) = 0 then
even := even + numbers[i]
else
odd := odd*numbers[i];
if round(numbers[i]) - numbers[i] <> 0 then
realvals := realvals + 1
end;
writeln('Evens sum: ',even,' Odds product: ',odd,' Real vlaues: ',realvals)
end.
uses wincrt;
var
numbers:array [1..40] of real;
i,realvals:integer;
even,odd: real;
begin
for i:=1 to 40 do begin
write('numbers[',i,']=');
readln(numbers[i])
end;
even := 0;
odd := 1;
realvals := 0;
for i:=1 to 40 do begin
if (i mod 2) = 0 then
even := even + numbers[i]
else
odd := odd*numbers[i];
if round(numbers[i]) - numbers[i] <> 0 then
realvals := realvals + 1
end;
writeln('Evens sum: ',even,' Odds product: ',odd,' Real vlaues: ',realvals)
end.
Насколько я понял числа "которые не являются ни четными ни нечетными" - это просто нецелые числа.
Наши админы не любят глупых вопросов!
Страница 1 из 1 [ Сообщений: 4 ]
Пользователи онлайн
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения
© 2004 — 2016 koldunchik.ru