Помогите решить 2 задачи - Форум ПРОГРАММИСТОВ

Новые сообщения · Правила

Страница 1 из 1 1
Модератор форума: Berestovskiy

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить 2 задачи (Окружности и Массивы)

Помогите решить 2 задачи

1. Задача на Массивы:
Написать программу размещения элементов заданного вектора в обратном порядке (без использования дополнительного массива).

2. Задача на окружности:
Даны две окружности одинакового радиуса, заданные координатами их центров. Определить, пересекаются ли они, в этом случае вычислить площадь четырехугольника, образуемого центрами окружностей и точками их пересечения.

№1 | Автор: clope | 2011-03-17, 21:43 | Репутация: [ + 0 ]

1)Если я правильно понял, то нужно прочесть координаты вектора и вывести в обратном порядке:
var
a:array[1..100]of byte;i:byte;
begin
for 1:=1 to 100 do
read(a[i]);
for i:=100 downto 1 do
write(a[i]);
readln
end.

Это так как я понял, могу ошибиться:)
Насчёт второй - нужно подумать:)

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№2 | Автор: Berestovskiy | 2011-03-18, 08:46 | Репутация: [ + 211 ]

не пойму... как она работает? Я просто ввожу постоянно числа, но ничего не происходит...

№3 | Автор: clope | 2011-03-31, 16:44 | Репутация: [ + 0 ]

Да, ты прав, извини))
В той что я написал - нужно обязательно 100 чисел считывать))
Думаю вот так будет лучше:

var
a:string;i:byte;
begin
read(a);
for i:=length(a) downto 1 do
write(a[i]);
end.

Нужна помощь? Сюда: vkontakte.ru/berestovskiy

№4 | Автор: Berestovskiy | 2011-03-31, 17:07 | Репутация: [ + 211 ]

Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Помогите решить 2 задачи (Окружности и Массивы)

Страница 1 из 1
1

прикладная математика