Так пишите, пишите...Thomas писал(а):Source of the post Ee надо записать через...
"Близнецы" на Pascal
"Близнецы" на Pascal
Последний раз редактировалось Developer 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
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 postThomas писал(а):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...)
Последний раз редактировалось Thomas 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
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 - ширина поля вывода, можно принять другое значение.
' ' - разделитель.
Последний раз редактировалось grigoriy 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
grigoriy писал(а):Source of the postThomas писал(а):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.она не идет.
Последний раз редактировалось Thomas 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
Thomas писал(а):Source of the postgrigoriy писал(а):Source of the postThomas писал(а):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".
Исправил.
Последний раз редактировалось grigoriy 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
grigoriy писал(а):Source of the postThomas писал(а):Source of the postgrigoriy писал(а):Source of the postThomas писал(а):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сть.Сейчас еще раз поробуюю.
Да.я заметил.
Последний раз редактировалось Thomas 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
Последний раз редактировалось Developer 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
Thomas писал(а):Source of the postgrigoriy писал(а):Source of the postThomas писал(а):Source of the postgrigoriy писал(а):Source of the postThomas писал(а):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)?
Последний раз редактировалось Thomas 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
Последний раз редактировалось Developer 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
"Близнецы" на Pascal
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 верхним пределом цикла - настолько
это действительно элементарно (что не должен совпадать).
Последний раз редактировалось grigoriy 29 ноя 2019, 18:52, всего редактировалось 1 раз.
Причина: test
Причина: test
Вернуться в «Computer Science»
Кто сейчас на форуме
Количество пользователей, которые сейчас просматривают этот форум: нет зарегистрированных пользователей и 2 гостей