Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/10: Рейтинг темы: голосов - 10, средняя оценка - 5.00
Настасья
0 / 0 / 0
Регистрация: 26.11.2008
Сообщений: 3
1

Вывод на экран всех натуральных чисел, не превосходящих заданное число

26.11.2008, 12:17. Просмотров 1828. Ответов 3
Метки нет (Все метки)

1 задача: Напишите программу вывода на экран всех натуральных чисел, не превосходящих заданное число, которые можно представить в виде суммы квадратов двух чисел. Например
13=(2*2)+(3*3).

Решение:
Код
Program n1;
var
n, m : integer;
i, j : integer;
 
begin
вводим числа с проверкой}
repeat
Write('Vvedite N (1..32000) > ');
ReadLn(n);
[U]WriteLn('Naideno');[/U]
 
until (n >= 1) and (n <= 32000); {проверяем ввод}
 
for i := 0 to n do
begin
if i * i > n then break; {если квадрат первого числа больше n то смысла просматривать дальше нет} 
for j := i to n do
begin
if i*i + j*j > n then break; {если сумма квадратов больше n – то перебирать jсмысла нет}
if i*i + j*j = n then writeln(i, ' * ', i, ' + ', j, ' * ', j, ' = ', n);
end;
end;
readln;
 
end.
Где подчёркнуто не могу понять что за "найдено" ?? оно нужно разве? и ещё не пойму ограничения N (1..32000)

Задача 2:

Напишите программу расчета конечной суммы и сравнения полученного результата с контрольным значением. Число членов суммы вводится с клавиатуры с защитой от возможного неверного ввода данных.
Вид суммы Контрольное значение
13+23+33+43+…+N3 (N2 * (N +1)2) /4

решение:
Код
Program n2;
var
n, i, s, c : longint;
 
begin
repeat
write('Vvedite n (1..210) > '); {просим ввести N}
readln(n);
until (n >= 1) and (n <= 210); {проверяем ввод. Ограничения на макс число обусловлены выбранным типом данных Logint, т.к. при выборе большего числа для этого типа данных получим переполнение}
 
s := 0;
 
for i := 1 to n do {считаем сумму}
s := s + I*I*I;
 
writeln(s); {выводим сумму}
 
c := ((n*n)*((n+1)*(n+1))) div 4;
writeln(c); {выводим контрольное значение}
 
if s = c Then Writeln('Ok') else Writeln('Error!!!'); {выводим результаты проверки}
 
 
readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2008, 12:17
Ответы с готовыми решениями:

Вывод на экран всех натуральных чисел, не превосходящих N, и делящихся на каждую из своих цифр
Создайте программу вывода на экран всех натуральных чисел, не превосходящих N,...

Определить количество простых чисел, не превосходящих заданное число (N<16000), шестнадцатеричная форма записи которых является палиндромом
Помогите написать программу. Задача: Определить количество простых чисел,...

Дано целое k. Найти сумму квадратов всех натуральных чисел от 1 до k. Сумма чисел не должна превышать заданное
Дано целое k. Найти сумму квадратов всех натуральных чисел от 1 до k. Сумма...

Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N
Составьте программу вывода на экран всех простых чисел, не превосходящих...

Можно ли заданное натуральное число М представить в виде суммы квадратов двух натуральных чисел?
1.Составить блок-схему &quot;Гороскоп&quot;(по месяцу выдает количество дней в месяце). ...

3
Puporev
Модератор
54701 / 42113 / 29079
Регистрация: 18.05.2008
Сообщений: 99,393
27.11.2008, 12:50 2
Где подчёркнуто не могу понять что за "найдено" ?? оно нужно разве? и ещё не пойму ограничения N (1..32000)
Найдено, это просто заголовок перед выводом результата на экран, можешь сделать другой, можешь совсем убрать.
Проверка ввода делается чтобы введенное число было натуральным, и не превосходило верхнюю границу типа integer.
Вообще тут надо переписать
Код
Write('Vvedite N (1..32767) > ');
ReadLn(n);
until (n >= 1) and (n <= 32767); {проверяем ввод}
WriteLn('Naideno');
Добавлено через 33 минуты 23 секунды
А вторая программа правильно считает. Какие вопросы?
1
Настасья
0 / 0 / 0
Регистрация: 26.11.2008
Сообщений: 3
27.11.2008, 18:05  [ТС] 3
Спасибо огромное!!!! =) а то я в задачах этих совсем не бум бум вот мне нарешали, а разобраться не могу сама %)
0
Help
0 / 0 / 0
Регистрация: 27.06.2014
Сообщений: 5
08.12.2008, 20:56 4
помогите плиз решить!!! нуна вычислить конечную сумму.
е^x/2!+e^x/4!+e^x/6!+...+e^x/2n!
плиз помогите
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2008, 20:56

Найти количество натуральных чисел, не превосходящих N и не делящихся ни на одно из чисел 2, 3, 5
Задано натуральное число N. Найти количество натуральных чисел, не...

Сколькими способами заданное натуральное число N можно представить в виде суммы двух кубов натуральных чисел
Собственно, нужна помощь. Сколькими способами заданное натуральное число N...

Составьте программу вывода на экран всех натуральных чисел
Составьте программу вывода на экран всех натуральных чисел, не превосходящих N...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru