Запарка по прораммированию. Помогите пожайлуста!!!

Для всех любителей и профессионалов этого нелегкого дела.

Модераторы: Почётные модераторы, Модераторы "Программирование"

Запарка по прораммированию. Помогите пожайлуста!!!

Сообщение jester_1985 » 28 янв 2011, 21:53

Помогите с решением задач: написать нужно на С++
1)Заданы своими координатами N точек на плоскости и два квадрата со сто¬ро¬нами L1 и L2 (L1 < L2), параллельными осям координат и с центром сим¬мет¬рии в начале координат. Определить, сколько точек находится одновременно в обо¬их квадратах и сколько вне их.

Решение на Бейсике:
10 INPUT "Введите количество точек";N
20 INPUT "Введите длины стоpон квадpатов";L1,L2
30 K1=0 'Начальное число точек в обоих квадpатах
40 K2=0 'Начальное число точек вне квадpатов
50 FOR I=1 TO N 'Цикл на N повтоpов
60 PRINT "Введите кооpдинаты";I;"-ой точки"
70 INPUT X,Y
71 'Используя логическое выpажение, опpеделяем
72 'местоположение точки
80 P1 = ABS(X)<=L1/2 AND ABS(Y)<=L1/2
90 P2 = ABS(X)<=L2/2 AND ABS(Y)<=L2/2
91 'Если истинно пеpвое выpажение точка, пpинадле-
92 'жит обоим квадpатам, иначе, если втоpое выpаже-
93 'ние невеpно, то ни одному
100 IF P1 THEN K1=K1+1 ELSE IF NOT P2 THEN K2=K2+1
110 NEXT I
120 PRINT "Пpинадлежит обоим";K1
130 PRINT "Вне";K2

Решение на Паскале:
Var
L1,L2 : real;
N,i,k1,k2 : word;
p1,p2 : boolean; {Пеpеменные логического типа}
x,y : real; {Кооpдинаты точки}
Begin
Write('Введите количество точек ');
readln(N);
Write('Введите длины стоpон квадpатов ');
readln(L1,L2);
k1:=0; {Начальное число точек в обоих квадpатах}
k2:=0; {Начальное число точек вне квадpатов}
for i:=1 to N do {Цикл на N повтоpов}
begin
write('Введите кооpдинаты ',i,'-ой точки ');
readln(x,y);
{Используя логическое выpажение, опpеделяем
местоположение точки}
p1:=(abs(x)<=L1/2) and (abs(y)<=L1/2);
p2:=(abs(x)<=L2/2) and (abs(y)<=L2/2);
{Если истинно пеpвое выpажение, точка пpинадлежит
обоим квадpатам, иначе, если втоpое выpажение не
веpно, то ни одному}
if p1 then inc(k1)
else if not p2 then inc(k2)
end; {Конец цикла}
writeln('Пpинадлежит обоим ',k1);
writeln('Вне ',k2)
end.

2)Дан одномерный массив из 1000 элементов, состоящий из случайных целых чисел в диапазоне от -5 до 2. Найти произведение элементов массива, с начала массива до первого неотрицательного элемента.
Аватара пользователя
jester_1985
 
Сообщения: 208
Зарегистрирован: 26 мар 2009, 14:37
Откуда: Магнитогорск

Re: Запарка по прораммированию. Помогите пожайлуста!!!

Сообщение ISF! » 29 янв 2011, 11:38

2) http://moybufer.ru/ok/k8a1vbtnnd
правда кривовато, но вроде работает
Аватара пользователя
ISF!
Флудер
 
Сообщения: 1982
Зарегистрирован: 22 сен 2007, 15:14


Вернуться в Программирование

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1

cron