Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на языке Pascal

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 2.943 RSS
←   Октябрь 2007   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/pascal
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

2.943 подписчиков
0 за неделю
←   Все выпуски   →

RusFAQ.ru: Программирование на языке Pascal


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 456
от 02.10.2007, 16:05

Администратор:Калашников О.А.
В рассылке:Подписчиков: 244, Экспертов: 58
В номере:Вопросов: 2, Ответов: 6

Вопрос № 103559: Помогите, пожулуйста написать программу на Pascal: Составить программу-генератор чисел Пифагора a, b, c (c2=a2+b2). В основу положить формулы a=m2-n2, b=2m*n, c=m2+n2(m, n -натуральныt, 1<m<k, 1<n<k, k-данное число) Результат ...
Вопрос № 103563: помогите, найти сумму всех n-значных чисел(1<=n<=4)...

Вопрос № 103.559
Помогите, пожулуйста написать программу на Pascal:
Составить программу-генератор чисел Пифагора a, b, c (c2=a2+b2).
В основу положить формулы a=m2-n2, b=2m*n, c=m2+n2(m, n -натуральныt, 1<m<k, 1<n<k, k-данное число)
Результат вывести на экран в виде таблицы из пяти столбцов:m, n, a, b, c.
Отправлен: 27.09.2007, 12:04
Вопрос задал: Leeryhomer (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)
Отвечает: kopfschwarz
Здравствуйте, Leeryhomer!

readln(k);
for m:=1 to k do
for n:=1 to k do
begin
a:=sqr(m)-sqr(n);
b:=2*m*n;
c:=sqr(m)+sqr(n);
if a>0 then
writeln(m:5,n:5,a:5,b:5,c:5);
end;
---------
Please, don't say you're sorry & Express yourself, don't repress yourself!
Ответ отправил: kopfschwarz (статус: Студент)
Ответ отправлен: 27.09.2007, 15:48
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за помощь.
Отвечает: Артём1983
Здравствуйте, Leeryhomer!
В программе я использовал двойной цикл. Код программы в приложении.Если что-то не так пишите.

Приложение:

Ответ отправил: Артём1983 (статус: 3-ий класс)
Ответ отправлен: 27.09.2007, 22:45
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за помощь.

Вопрос № 103.563
помогите, найти сумму всех n-значных чисел(1<=n<=4)
Отправлен: 27.09.2007, 12:25
Вопрос задал: Leeryhomer (статус: Посетитель)
Всего ответов: 4
Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Delph
Здравствуйте, Leeryhomer!

Я так понял, задачу нужно решить не формулой, а через цикл. Вариант решения в приложении. Чтобы пользователю не было скучно ждать, если программа выполняется на медленной машине, прога выводит промежуточный результат через каждые 500 итераций цикла. Вы можете поменять это значение или вовсе удалить строку - если сочтёте нужным.

Приложение:

---------
Сомневайся во всём! Реальность часто бывает не такой, как мы о ней думаем.

Ответ отправил: Delph (статус: 10-ый класс)
Ответ отправлен: 27.09.2007, 13:08
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за помощь.
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Leeryhomer!

Смотрите приложение.
Суммирование производится в массивах.
Количество занаков не ограниченно.
К примеру сумма всех 6-ти значных чисел равна 494999550000
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист)
Ответ отправлен: 27.09.2007, 13:14
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за помощь.
Отвечает: kopfschwarz
!!!
Здравствуйте, Leeryhomer!
Наверное, человеку и дали 4-значные числа только, чтоб результат не зашкаливал... А вы со всякими приворотами...

var i,sum:integer;
begin
sum:=0;
for i:=1000 to 9999 do sum:=sum+i;
writeln(sum);
end.

В ответе должно получиться 49495500;

Допущена ошибка:
Тип Integer в Pascal имеет диапазон [-32768..32767]
Вместо summ: Integer следует использовать summ: LongIng, имеющий достаточный диапазон [-2147483648..2147483647].
-----
∙ Отредактировал: Denisss (Профессионал)
∙ Дата редактирования: 29.09.2007, 13:59

---------
Please, don't say you're sorry & Express yourself, don't repress yourself!
Ответ отправил: kopfschwarz (статус: Студент)
Ответ отправлен: 27.09.2007, 15:53
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за помощь.
Отвечает: Артём1983
Здравствуйте, Leeryhomer!
Решил я данную задачу используя свойства арифметической прогресии. Найдя n-1 -ю степень 10 я нашёл первый член прогресии. Потом нашёл n-ый. А остальное дело техники.
В приложении код программы.

Приложение:

Ответ отправил: Артём1983 (статус: 3-ий класс)
Ответ отправлен: 27.09.2007, 22:50
Оценка за ответ: 5
Комментарий оценки:
Спасибо большое за помощь.

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Авторское право: ООО "Мастер-Эксперт Про"
Техподдержка портала, тел.: +7 (926) 535-23-31
Хостинг: "Московский хостер"
Поддержка: "Московский дизайнер"
Авторские права | Реклама на портале
Версия системы: 4.60.05 от 27.09.2007 		Яндекс Rambler's Top100
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru
Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru
В избранное