Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.07.2010, 01:19   #1
Devid92
 
Регистрация: 30.05.2010
Сообщений: 6
По умолчанию Блок-схема

Народ помогите для для кода, написать обыкновенную блок схему. а то в них не очень шарю((


Код:
program Pro1;
uses crt;
 
var
x,x1,y1:integer;
z,i:integer;
 
function CHECK(n: integer): boolean;
var
  i: integer;
begin
 for i := 2 to Round(Sqrt(n)) do if n mod i = 0 then break;
 CHECK := n mod i <> 0;
end;
 
 
begin
 clrscr;
 repeat
  readln(x);
 until (x mod 2=0) and (x>2);
 
 x1:=1; y1:=x-1; z:=0;
 for i:=1 to (x div 2) do
 begin
  if (CHECK(x1)) and (CHECK(y1)) then inc(Z);
  inc(x1);dec(y1);
 end;
 writeln ('Число раскладывается на ',z,' пар(у,ы) простых чисел.');
 readkey;
end.
Devid92 вне форума Ответить с цитированием
Старый 10.07.2010, 07:04   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Я опишу, словесую блок-схему, Дальше сам докумекаешь.

1. Объявим функцию CHECK(n:integer):boolean
2. Объявим переменную цикла i:integer
3. Инициируем переменную i:=2
4. если n mod i = 0 то выход из функции
5. продолжаем если for если i < Sqrt(n)
6. присваиваем значение n mod i не равное 0 функции CHECK b рекурсивный вызов самой себя

Паскаль уже изрядно подзабыл. Копаться в литературе нет времени.
В частности не помню, как формируется выходное значение функции.
В C++, обязательным является наличие оператора return x.
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder

Последний раз редактировалось Smitt&Wesson; 10.07.2010 в 07:20.
Smitt&Wesson вне форума Ответить с цитированием
Старый 10.07.2010, 11:09   #3
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

программа выдала такое:
обозначения не соответствуют нашим стандартам, но алгоритм верен.
Изображения
Тип файла: jpg 123.jpg (11.7 Кб, 162 просмотров)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 12.07.2010, 16:31   #4
Dr.Win32
Заблокирован
 
Регистрация: 18.06.2010
Сообщений: 31
Сообщение

Как вариант воспользуйтесь этой прогой для составления блок-схем
Вложения
Тип файла: rar bdrf.rar (316.5 Кб, 21 просмотров)
Dr.Win32 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
блок-схема Gerberka Помощь студентам 0 02.06.2010 20:21
Блок - схема dt-12 Паскаль, Turbo Pascal, PascalABC.NET 3 26.05.2010 22:03
Блок схема алгоритма программы и схема взаимодействия модулей. Lazio Фриланс 3 02.12.2009 23:10
Блок-схема Данияр Помощь студентам 5 18.10.2009 20:04
Блок-схема Юльчик18 Помощь студентам 3 11.10.2009 14:46