Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: 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 из 11
Поиск: