Блок схема, алгоритм - уже готовой программы на Turbo pascal.

[Zeppter]

Доброго времени суток. Вот задали задание написать курсовую, программа готова, и описание к ней, все готово кроме описание алгоритма и блок схемы... Прошу помогите кто чем может.

[Zeppter]

1 часть программы

Program Test;
Uses crt;
Label 1,2,3;
const a:array[1..12, 1..4] of integer=
      ((0,0,1,0),
       (0,1,0,0),
       (0,1,0,0),
       (1,0,0,0),
       (1,0,0,0),
       (0,1,0,0),
       (0,0,1,0),
       (0,0,0,1),
       (0,0,0,1),
       (0,0,0,1),
       (0,0,1,0),
       (1,0,0,0));

Var i,k:integer;
    ch: Char;
    f:boolean;

Procedure Out(k:integer);
begin

  if k=1 then begin
     textcolor(10);
     Writeln('1. В каком году Google начал работу?');
     textcolor(15);
     Writeln;
     Writeln('а) 1986');
     Writeln('б) 1992');
     Writeln('в) 1997');
     Writeln('г) 2000');
  end;
  if k=2 then begin
     textcolor(10);
     Writeln('2. На скольких языках Google может находить информацию?');
     textcolor(15);
     Writeln;
     Writeln('а) 57');
     Writeln('б) 186');
     Writeln('в) 112');
     Writeln('г) 34');
  end;
  if k=3 then begin
     textcolor(10);
     Writeln('3. Какой алгоритм расчета авторитетность страницы использует Google?');
     textcolor(15);
     Writeln;
     Writeln('а) TIC.');
     Writeln('б) PageRank.');
     Writeln('в) Field.');
     Writeln('г) Parker.');
  end;
  if k=4 then begin
     textcolor(10);
     Writeln('4. Как искать только по определенному домену?');
     textcolor(15);
     Writeln;
     Writeln('а) Site:www.google.com');
     Writeln('б) Domen:www.google.com');
     Writeln('в) Search:www.google.com');
     Writeln('г) Page:www.google.com');
  end;
  if k=5 then begin
     textcolor(10);
     Writeln('5. Какую функцию выполняет GoogleTag allintitle:GOOGLE');
     textcolor(15);
     Writeln;
     Writeln('а) Поиск только по заголовку.');
     Writeln('б) Поиск только по тексту.');
     Writeln('в) Поиск только по url.');
     Writeln('г) Поиск только по сервисам Google.');
  end;
  if k=6 then begin
     textcolor(10);
     Writeln('6. Какую функцию выполняет GoogleTag related:www.google.com?');
     textcolor(15);
     Writeln;
     Writeln('а) Проверяет индексацию сайта.');
     Writeln('б) Ищет похожие страницы.');
     Writeln('в) Проверяет сайт на кроссбраузерность.');
     Writeln('г) Проверяет место сайта в поиске.');
  end;
  if k=7 then begin
     textcolor(10);
     Writeln('7. Какую функцию выполняет GoogleTag define:TEST');
     textcolor(15);
     Writeln;
     Writeln('а) Поиск по персональным старницам.');
     Writeln('б) Поиск математического решения.');
     Writeln('в) Поиск определения слова.');
     Writeln('г) Поиск по базе рефератов.');
  end;
  if k=8 then begin
     textcolor(10);
     Writeln('8. Какие функции кнопки "Мне повезет"');
     textcolor(15);
     Writeln;
     Writeln('а) Пользователь попадает на случайную страницу.');
     Writeln('б) Пользователь получает денежный приз от Google в случае удачи.');
     Writeln('в) Пользователь получает частичку дохода от рекламного клика.');
     Writeln('г) Пользователь отправляется на первую найденую ссылку,');
     Writeln('не показывая результатов поиска.');
  end;
  if k=9 then begin
     textcolor(10);
     Writeln('9. Как изначально должен был называться Google');
     textcolor(15);
     Writeln;
     Writeln('а) guugle.');
     Writeln('б) google.');
     Writeln('в) googler.');
     Writeln('г) googol.');
  end;
  if k=10 then begin
     textcolor(10);
     Writeln('10. Сколько лет тестировался Gmail внутри компании');
     textcolor(15);
     Writeln;
     Writeln('а) 5 лет.');
     Writeln('б) 4 года.');
     Writeln('в) 3 года.');
     Writeln('г) 2 года.');
  end;
   if k=11 then begin
     textcolor(10);
     Writeln('11. Как звучит девиз Google?');
     textcolor(15);
     Writeln;
     Writeln('а) Помоги.');
     Writeln('б) Все лучшее случается неожиданно.');
     Writeln('в) Не навреди.');
     Writeln('г) Приоритет качество.');
  end;
   if k=12 then begin
     textcolor(10);
     Writeln('12. За какую сумму Сергей Брин и Ларри Пейдж,');
     Writeln('предлагали Yahoo! купить Google вместе с Page rank? ');
     textcolor(15);
     Writeln;
     Writeln('а) 1000 000$');
     Writeln('б) 1000 00$');
     Writeln('в) 1000 0$');
     Writeln('г) 1000$');
  end;
end;
Procedure Result1(k:integer);
begin
  Clrscr;
  textcolor(10);
  writeln('                           РЕЗУЛЬТАТЫ ТЕСТА');
  writeln;
  textcolor(15);
        if k=0 then begin
     writeln('К сожалению вы не ответили правильно не на один вопрос =(');
  end;

[Zeppter]

2 часть программы

  if k=1 then begin
     writeln('Вы ответили правильно на 1 вопрос!');
  end;
        if k=2 then begin
     writeln('Вы ответили правильно на 2 вопроса!');
  end;
          if k=3 then begin
     writeln('Вы ответили правильно на 3 вопроса!');
  end;
          if k=4 then begin
     writeln('Вы ответили правильно на 4 вопроса!');
  end;
          if k=5 then begin
     writeln('Вы ответили правильно на 5 вопросов!');
  end;
          if k=6 then begin
     writeln('Вы ответили правильно на 6 вопросов!');
  end;
  if k=7 then begin
     writeln('Вы ответили правильно на 7 вопросов!');
  end;
     if k=8 then begin
     writeln('Вы ответили правильно на 8 вопросов!');
  end;
  if k=9 then begin
     writeln('Вы ответили правильно на 9 вопросов!');
  end;
  if k=10 then begin
     writeln('Вы ответили правильно на 10 вопросов!');
  end;
  if k=11 then begin
     writeln('Вы ответили правильно на 11 вопросов!');
  end;
  if k=12 then begin
     writeln('Вы ответили правильно на 12 вопросов!');
  end;
  writeln('');
end;

begin
  3:
  Clrscr;
  gotoxy(15,10);
  Writeln('Для начала теста нажмите любую кнопку.');
  gotoxy(15,11);
  gotoxy(15,15);
  write('МФ ЗИЭИТ 2010 (с) Жавжаров Влад ');
  ch:=readkey;
  i:=0;

  for k:=1 to 12 do begin
  1:Clrscr;
    f:=false;
    Out(k);
    Writeln;
    Write('Ответ: ');
    ch:=readkey;
    if (ch='а') or (ch='f') then begin
      i:=i+a[k,1];
      f:=true;
      write('а');
      delay(5000);
    end;
    if (ch='б') or (ch=',') then begin
      i:=i+a[k,2];
      f:=true;
      write('б');
      delay(5000);
    end;
    if (ch='в') or (ch='d') then begin
      i:=i+a[k,3];
      f:=true;
      write('в');
      delay(5000);
    end;
    if (ch='г') or (ch='u') then begin
      i:=i+a[k,4];
      f:=true;
      write('г');
      delay(5000);
    end;
    if f=false then begin
      sound(700);
      delay(1000);
      nosound;
      goto 1;
    end;
  end;
  result1(i);
  writeln;
  writeln('Для выхода нажмите Enter');
  readln;
  exit;


  if ch='9' then begin
  for k:=1 to 12 do begin
  2:Clrscr;
    f:=false;
     Writeln;
    Write('Для начала теста нажмите любую кнопку');
    ch:=readkey;
      result1(i);

    if (ch='а') or (ch='f') then begin
      i:=i+a[k,1];
      f:=true;
      write('а');
      delay(5000);
    end;
    if (ch='б') or (ch=',') then begin
      i:=i+a[k,2];
      f:=true;
      write('б');
      delay(5000);
    end;
    if (ch='в') or (ch='d') then begin
      i:=i+a[k,3];
      f:=true;
      write('в');
      delay(5000);
    end;
    if (ch='г') or (ch='u') then begin
      i:=i+a[k,4];
      f:=true;
      write('г');
      delay(5000);
    end;
    if f=false then begin
      sound(700);
      delay(1000);
      nosound;
      goto 1;
    end;
  end;
  writeln;
  writeln('Для выхода нажмите Enter');
  readln;
  exit;
  end;
  if (ch<>'1') and (ch<>'2') then begin
     sound(700);
     delay(1000);
     nosound;
     goto 3;
      end;
end.

[Neurogenus]

Хм, руками рисовать 38 циклов накладно...Попробуйте поискать по форуму программы для рисования блок-схем...Может поможет...

[Stilet]

Жестокая программа, я представляю во что она выльется если я закажу тест на 1000 вопросов...
Насчет программ да уже это обсуждалось
http://www.softforfree.com/programs/...ramm-3630.html
http://www.dmitriyo.narod.ru/
Короче яндекс рулит.

[Ol'ga_new]

По моему в программе ошибка или я что-то не досмотрела, но k- является и номером вопроса и количеством правильных ответов???

[Neurogenus]

Сообщение от Ol'ga_new

По моему в программе ошибка или я что-то не досмотрела, но k- является и номером вопроса и количеством правильных ответов???

if k=5 then begin
     writeln('Вы ответили правильно на 5 вопросов!');

- очевидно да...

write('МФ ЗИЭИТ 2010 (с) Жавжаров Влад ');

-

Ol'ga_new

[Zeppter]

Все работает :-Р