|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
24.09.2011, 14:44 | #1 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
Паскаль, помощь в доработке программ
чмсла, сумма квадратов которых дает это число. Использовать процедуру поиска таких чисел. Нужно оставить элементы в единственном виде. Код:
uses crt; var mas:array [1..10] of integer; i,l,k,x,y:integer; procedure poisk; begin for k:=1 to 10 do begin for l:=1 to 10 do for x:=1 to 10 do for y:=1 to 10 do if mas[i]=sqr(k)+sqr(l)+sqr(x)+sqr(y) then writeln (mas[i],' = ',k,' ',l,' ',x,' ',y); end; end; begin randomize; for i:=1 to 10 do begin mas[i]:=random(40); write(mas[i]:3); end; writeln; for i:=1 to 10 do poisk; readln end. |
24.09.2011, 14:44 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Рекомендую вам обратить внимание на эти ссылки - тут можно поискать нужную информацию Паскаль, помощь в доработке программ Паскаль, помощь в доработке программ. Помогите в доработке компьютера |
24.09.2011, 19:21 | #3 (permalink) |
Студент БГПУ
Регистрация: 06.02.2010
Сообщений: 420
Записей в дневнике: 3
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 470
|
В результате работы программы, которую я представил, в ответ выдается разложения элементов одними и теми же числами, но в разной последовательности. А мне нужно только четыре числа, а не разложение каждого элемента.
|
24.09.2011, 20:31 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ну вроде так: Код:
var mas:array [1..10] of integer; i,l,k,x,y:integer; procedure poisk; begin for k:=10 downto 1 do for l:=k downto 1 do for x:=l downto 1 do for y:=x downto 1 do if mas[i]=sqr(k)+sqr(l)+sqr(x)+sqr(y) then writeln (mas[i],' => ',k,' ',l,' ',x,' ',y); end; begin randomize; for i:=1 to 10 do begin mas[i]:=random(40); write(mas[i]:3); end; writeln; for i:=1 to 10 do poisk; readln end. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|