![]() |
Здравствуйте, гость ( Вход | Регистрация )
![]() |
InFuz |
![]()
Сообщение
#1
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 116 Регистрация: 13.10.2009 Город: Ульяновск Учебное заведение: УлГУ Вы: студент ![]() |
Задача: Удалить из массива числа, которые являются полным квадратом и имеют нечетную сумму цифр.
Условие: Массив целоцисленный от -32000 до 32000. (ни каких real (IMG:style_emoticons/default/smile.gif) ). Массив вводится в другой процедуре и есть M:mas, N-длина массива. Моя процедура которая чот не батрачит )) procedure Work (var M:mas; N:integer); var i,b,sym,ost:integer; f:boolean; begin for i:=1 to N do begin f:=true; sym:=0; ost:=0; b:=m[i]; while b=0 do begin ost:=b mod 10; sym:=sym + ost; b:=b div 10; end; if sym mod 2=0 then f:=false; if (f=true) and (sqrt(m[i]) in integer) then m[i]:=m[i+1]; end; end; |
![]() ![]() |
InFuz |
![]()
Сообщение
#2
|
Студент ![]() ![]() Группа: Продвинутые Сообщений: 116 Регистрация: 13.10.2009 Город: Ульяновск Учебное заведение: УлГУ Вы: студент ![]() |
procedure Work (var M:mas; var G:mas; N:integer);
var j,i,b,sym,ost:integer; f,q:boolean; begin for j:=1 to 178 do G[j]:=j*j; for i:=1 to N do begin f:=true; sym:=0; ost:=0; q:=false; b:=m[i]; for j:=1 to 178 do begin if g[j]=m[i] then begin q:=true; break; end; end; repeat ost:=b mod 10; sym:=sym + ost; b:=b div 10; until b=0; if sym mod 2=0 then f:=false; if (f=true) and (q=true) then begin for i:=i to N do begin m[i]:=m[i+1]; N:=N-1; end; end; end; end; сделал так вроде работает но почему то когда хочу распечатать массив M после обработки то выдает File not open for output в процедуре печати, вот она procedure Print (var M:mas; N:integer); var i:integer; begin for i:=1 to N do write (M[i],'; '); writeln; end; |
Julia |
![]()
Сообщение
#3
|
Ассистент ![]() ![]() ![]() ![]() Группа: Julia Сообщений: 593 Регистрация: 23.2.2007 Город: Улан-Удэ Учебное заведение: БГУ Вы: преподаватель ![]() |
Если бы занесли i*i во множество, увеличили бы скорость работы программы.
Выложите полный текст программы. |
![]() ![]() |
![]() |
Текстовая версия | Сейчас: 25.5.2025, 18:42 |
Зеркало сайта Решебник.Ру - reshebnik.org.ru