IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачи по файлам, произведению чисел и т.д., тут несколько задач
Myasnik
сообщение 3.04.2006 0:27
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 29
Пол: Мужской
Реальное имя: Maxim

Репутация: -  -1  +


Плз, помогите мне с задачами, а то опять к стенке притёрли и их сдавать нужно... =(

1 задача.

Написать программу, которая вводит n вещественных чисел, определяет сколько из них отрицательных, отбрасывает у всех дробную часть, и, если два подряд стоящие числа чётные, вывод их произведение.
Она у меня чота не правильно работает, а именно не правильно умножает...

uses crt;
var
a:real;
s,n,i,c,p,f,b:integer;
begin
clrscr;
s:=0;

writeln('Vvedite kol-vo chisel');
readln(n);
for i:=1 to n do begin
readln(a);

if a<0 then s:=s+1;
c:=trunc(a);

if c mod 2=0 then
begin
p:=c*b;
writeln(p);
end;
if c mod 2=0 then b:=c;

end;
readkey;
end.



2 задача. Написать программу, которая вводит целое N, затем N вещественных чисел, определяет максимумы среди положительных и минимум среди отрицательных чисел, сравнивая их по абсолютному значению и выводит большее из них.

uses crt;
var
MIN,MAX,a:real;
n,nn,a2,i,w,s:integer;

begin
clrscr;
min:=0;
max:=0;

writeln('Vvedite kol-vo chisel veshesvennix');
readln(n);
for i:=1 to n do begin
readln(a);

writeln('Vvedite kol-vo chisel celix');
readln(nn);
a1=random(9);
readln(a1);

..................

end;
readkey;
end.



Задача 3. Написать программу, которая вычисляет интеграл f(x) = {интеграл от 0 до 2} корень из (x-2) dx с заданной точностью эпсилон 10.

Задача 4. Написать программу, которая определяет длину отрезка между двумя точками с заданными координатами, использовать программу как процедуру для нахождения максимума среди отрезков разной длины.

Задача 5. Нужна программа, которая по дате печатает число и месяц и высчитывает полное кол-во дней от указанной даты.

Пллииз, кто какую сможет - сделай задачу... я уже не в состоянии делать (получил недавно сотрясение мозга и теперь сложно стало всё воспринимать... wacko.gif )
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
мисс_граффити
сообщение 3.04.2006 8:32
Сообщение #2


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


4.
расстояние будет вычисляться как sqrt(sqr(x1-x2)+sqr(y1-y2))


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 23.06.2025 1:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"