|
Вопрос # 2 878/ вопрос открыт / |
|
Доброго времени суток, уважаемые эксперты!
Помогите пожалуйста написать программу.
1. С клавиатуры вводятся последовательно 10 пар целых чисел x и y. Выведите на экран только те пары, имеющие противоположные знаки.
 |
Вопрос задал: Николай Иванович (статус: Посетитель)
Вопрос отправлен: 2 июня 2009, 13:58
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
program p2878;
const
N = 10;
type
TPair = record
X, Y: Integer;
end;
TPairArray = array[0..N - 1] of TPair;
var
PA: TPairArray;
Index: Integer;
begin
WriteLn(#13#10'--- Input a pairs ---');
for Index:= 0 to N - 1 do
begin
Write(' type an X and Y of pair ', (Index + 1): 2,': ');
ReadLn(PA[Index].X, PA[Index].Y);
end;
WriteLn('--- Pairs with different signs ---');
for Index:= 0 to N - 1 do
if PA[Index].X * PA[Index].Y < 0
then WriteLn(' Pair ', (Index + 1): 2,': ', PA[Index].X, ', ', PA[Index].Y);
Write(#13#10' Press "Enter" to exit...');
ReadLn;
end.
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 2 июня 2009, 14:31
|
Мини-форум вопроса
Всего сообщений: 23; последнее сообщение — 2 июня 2009, 15:56; участников в обсуждении: 4.
Страницы: [« Предыдущая] [1] [2]
|
|
min@y™ (статус: Доктор наук), 2 июня 2009, 15:51 [#21]:
Могу предложить ещё вариант: без процедуры, но с 2-мя циклами и 2-мя ассемблерными вставками, где будут только команды
asm
push X
push Y
end;
asm
pop Y
pop X
end;
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Николай Иванович (статус: Посетитель), 2 июня 2009, 15:52 [#22]:
))) да почему не угодишь, просто когда мы эту задачу делали мы еще не проходили процедуры ))
|
|
Вадим К (статус: Академик), 2 июня 2009, 15:56 [#23]:
Предлагаю оставить этого вопрошающего по причине что он сам не знает, чего хочет. Мы будем тут предлагать десятки вариантов, а он будет их отсылать.
Галочка "подтверждения прочтения" - вселенское зло.
|
Страницы: [« Предыдущая] [1] [2]
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
