|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
20.09.2014, 16:57 | #1 (permalink) |
Member
Регистрация: 31.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помощь в написании программы
Код:
uses Crt; var i,k,n,s:integer; begin ClrScr; Write('Введите число:'); Readln(n); for i:=2 to n do begin s:=0; for k:=1 to i div 2 do begin if i mod j=0 then inc(s); end; if s=1 then Writeln(i); end; begin \\\\ then writeln('Можно') else writeln('Нельзя'); end; ReadKey; end |
20.09.2014, 16:57 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблема должна решиться быстрее, если ознакомиться с подобными темами Нужна помощь в написании программы Помощь в написании программы под Java. Помощь в написании программы на Паскале Необходима помощь в написании программы Нужна помощь в написании программы Нужна помощь в написании программы C++ |
20.09.2014, 17:31 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, посмотрю. Но попозже. Может быть, завтра, если сегодня не получится.
К тому же это у Вас не программа, а чушь какая-то. Ну вот что за переменная j? Откуда взялась? Даже не описана... |
20.09.2014, 17:36 | #3 (permalink) |
Member
Регистрация: 31.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Немного изменил.
Код:
function prost(s: integer):integer; var i,k,n:integer; begin for i:=2 to n do begin s:=0; for k:=1 to i div 2 do begin if i mod s=0 then inc(s); end; if s=1 then Writeln(i); end; end; procedure poisk(n:integer); var i: integer; begin Writeln('Введите число:'); Readln(n); i := 2; While N mod i > 0 do if i = 2 then inc(i) else inc(i, 2); if prost(i) = prost(n div i)then writeln('можно') else writeln('нельзя'); end; end. |
20.09.2014, 19:22 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да... совсем Вы, сударь, не разобрались с написанием подпрограмм... Понимаете, в функции Prost s - это входной параметр, который Вы должны передать из внешнего тела программы. Заканчиваться же функция должна строкой типа
Prost:=... А у Вас? В общем, мой Вам совет: не откладывая до конца семестра, прямо сейчас беритесь за книжки и разбирайтесь с азами программирования. P.S. Да, а программу я, как и обещал, сделаю. |
20.09.2014, 19:45 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ну вот, пожалуйста:
Код:
Var N,i,j:Integer; D:Boolean; Function Test_Prime(Q:Integer):Boolean; var m:Integer; p:Boolean; begin p:=true; m:=1; Repeat Inc(m); if (Q mod m)=0 then p:=false; Until not p or (m=(Q div 2)); Test_Prime:=p; end; Begin Write('N = '); Readln(N); D:=false; i:=1; Repeat Inc(i); if (N mod i)=0 then begin j:=(N div i); if Test_Prime(i) and Test_Prime(j) then begin D:=true; Writeln('Yes: ',N,' = ',i,'*',j); end; end; Until D or (i=(N div 2)); if not D then Writeln('No'); Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
21.09.2014, 09:28 | #7 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Ну, прежде всего, еще и еще раз повторю: до тех пор, пока программа не будет мною тщательно оттестирована, я ее не выложу. Пожалуйста: Почему не работает у Вас? Подозреваю, что дело в этом глючном богомерзком поделии по имени АВС, каковым не пользуюсь и не собираюсь. Возможно, затык на логическом отрицании. Попробуйте заменить условия not p и not D на not(p) и not(D) или на p=false и D=false. Авось так сожрёт. Мой FreePascal кушает все варианты и не давится. Потому как нормальный транслятор. |
|
21.09.2014, 18:38 | #8 (permalink) |
Member
Регистрация: 31.05.2014
Сообщений: 16
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Все, спасибо)
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|