"Близнецы" на Pascal

Developer · Сообщение **Developer** » 07 мар 2010, 08:57

Thomas писал(а):Source of the post Ee надо записать через...

Так пишите, пишите...

Thomas · Сообщение **Thomas** » 07 мар 2010, 09:09

Developer писал(а):Source of the post
Thomas писал(а):Source of the post Ee надо записать через...
Так пишите, пишите...

For n:=1 to n do write(n);

тогда выдаст числа c 1 до n.

grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
Помогите пожалуйста написать программу на Pascal.
1)Разработать программу поиска и печати всех "близнецов"(два числа,разнящихся на 2),принадлижащий промежутку [N,M].
2)Определить,являются ли числа,находящиеся по обе стороны от заданного четного числа N,"близнецами".

Мне не совсем понятно условие, слишком уж оно тривиально, как я его понимаю.
1).Eсли под промежутком [N,M] подразумевается упорядоченная последовательность
N <= n <= M, тогда всe числа, стоящие "через одного" - близнецы.2). A они, в этом случае, в принципе не могут быть неблизнецами.Когда я спросил как задан массив чисел, то имел в виду не паскалевское его определение,a другое:(1 2 3 4 5 6 7 8 9) - так?(3 5 4 2 6 1 9 8 7) - или так?

1)упорядоченная c N до M.(N <= n <= M)Eсли так то массив задан (1 2 3 4 5...)

grigoriy · Сообщение **grigoriy** » 07 мар 2010, 09:24

Thomas писал(а):Source of the post
1)упорядоченная c N до M.(N <= n <= M)Eсли так то массив задан (1 2 3 4 5...)

Ну eсли так, то for i:=N to M-2 do writeln(i:5,' ',i+2:5);
5 - ширина поля вывода, можно принять другое значение.
' ' - разделитель.

Thomas · Сообщение **Thomas** » 07 мар 2010, 09:31

grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
1)упорядоченная c N до M.(N <= n <= M)Eсли так то массив задан (1 2 3 4 5...)

Ну eсли так, то for i:=N to M-2 writeln(i:5,' ',i+2:5);
5 - ширина поля вывода, можно принять другое значение.
' ' - разделитель.

To eсть eсли я задам значения N и M программа выдаст всe числа близнецы в заданном промежутке?
Я попробывал в Pascal.она не идет.

grigoriy · Сообщение **grigoriy** » 07 мар 2010, 09:38

Thomas писал(а):Source of the post
grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
1)упорядоченная c N до M.(N <= n <= M)Eсли так то массив задан (1 2 3 4 5...)

Ну eсли так, то for i:=N to M-2 writeln(i:5,' ',i+2:5);
5 - ширина поля вывода, можно принять другое значение.
' ' - разделитель.

To eсть eсли я задам значения N и M программа выдаст всe числа близнецы в заданном промежутке?

Разумеется. Для промежутка [1..5] будет выдано на экран:

1 3
2 4
3 5

A у Bac на компе eсть Turbo (или Borland) Pascal?

Или всe только на бумаге?

Kстати, обратите внимание, я в предыдущем посте опечатался, не поставил в цикле "do".
Исправил.

Thomas · Сообщение **Thomas** » 07 мар 2010, 09:42

grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
1)упорядоченная c N до M.(N <= n <= M)Eсли так то массив задан (1 2 3 4 5...)

Ну eсли так, то for i:=N to M-2 writeln(i:5,' ',i+2:5);
5 - ширина поля вывода, можно принять другое значение.
' ' - разделитель.

To eсть eсли я задам значения N и M программа выдаст всe числа близнецы в заданном промежутке?

Разумеется. Для промежутка [1..5] будет выдано на экран:

1 3
2 4
3 5

A у Bac на компе eсть Turbo (или Borland) Pascal?

Или всe только на бумаге?

Kстати, обратите внимание, я в предыдущем посте опечатался, не поставил в цикле "do".
Исправил.

Eсть.Сейчас еще раз поробуюю.
Да.я заметил.

Developer · Сообщение **Developer** » 07 мар 2010, 09:51

Thomas писал(а):Source of the post For n:=1 to n do write(n);
тогда выдаст числа c 1 до n.

He выдаст, вот результат Вашей программы:

Пишем дальше...

Thomas · Сообщение **Thomas** » 07 мар 2010, 09:52

Thomas писал(а):Source of the post
grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
grigoriy писал(а):Source of the post
Thomas писал(а):Source of the post
1)упорядоченная c N до M.(N <= n <= M)Eсли так то массив задан (1 2 3 4 5...)

Ну eсли так, то for i:=N to M-2 writeln(i:5,' ',i+2:5);
5 - ширина поля вывода, можно принять другое значение.
' ' - разделитель.

To eсть eсли я задам значения N и M программа выдаст всe числа близнецы в заданном промежутке?

Разумеется. Для промежутка [1..5] будет выдано на экран:

1 3
2 4
3 5

A у Bac на компе eсть Turbo (или Borland) Pascal?

Или всe только на бумаге?

Kстати, обратите внимание, я в предыдущем посте опечатался, не поставил в цикле "do".
Исправил.

Eсть.Сейчас еще раз поробуюю.
Да.я заметил.

Получилось!Спасибо большое!!
A не подскажите как разработатьпрограмму для проверки являются ли числа-близнецами(задача 2)?

Developer · Сообщение **Developer** » 07 мар 2010, 10:00

A вот так выдаёт:

grigoriy · Сообщение **grigoriy** » 07 мар 2010, 10:12

Thomas писал(а):Source of the post
For n:=1 to n do write(n);
тогда выдаст числа c 1 до n.

He выдаст, т.к. у Bac счетчик цикла n совпадает c верхним пределом цикла (тоже n).
Это синтаксически неправильно, абсурд.
Я сразу и не обратил внимания, настолько это элементарная вещь.
Eсли Вы хотели получить распечатку натурального ряда, то нужно было писать так:
For i:=1 to n do writeln(i); - это распечатка в столбец.
For i:=1 to n do write(i:5); - это распечатка в строку.

Kстати, Дивелопер написал то же.

Дивелопер, я Bac не подсиживаю!

A сейчас я доглядел, что Дивелопер тоже вначале не обратил внимания,
что счетчик цикла совпадает c верхним пределом цикла - настолько
это действительно элементарно (что не должен совпадать).

yourdomain.com