Версия для печати темы

Автор: BND 8.05.2007 21:32

Помогите построить блок-схему для программки, пожалуйста! А то та блок-схема, которую я посторил оказалась не правильной, мне сказали переделывай как хочешь (так как работа курсовая). спасибо!
код программы вот:

program SS;
var
  j, i: integer;
  s, s_dec: string;
  f_out: text;
function DecToOther(x:longint;R:word):string;
var ost:longint;
    s,st,chislo:string;
    i:integer;
begin
     chislo:='';s:='';st:='';
     repeat
        ost:=x mod R;
        x:=x div R;
        if ost>9 then
          st:=chr(ord('A')-10+ost)
        else str(ost,st);
           s:=s+st;
     until x=0;
     for i:=1 to length(s) do
       chislo:=chislo+s[length(s)-i+1];
     DecToOther:=chislo;
end;

Function SwapSymbols(s: string): string;
Var
  i:integer;
  Temp: String; 
begin
  Temp := '';
  For i:=1 to Length(s)do
    Temp:=s[i] + Temp;
  SwapSymbols:=Temp;
end;

begin
  assign(f_out, 'res.txt');
rewrite(f_out);

  for j := 2 to 16 do
  begin

    if j = 10 then continue;
writeln(j,'-ja sistema schislenia');
    for i := 10 to 999 do
    begin
      s_dec := DecToOther(i, 10);
      s := DecToOther(i, j); 
      if SwapSymbols(s) = s_dec then begin 
        Writeln(       's(10) = ', s_dec:5, ' s(':5, j:2, ') = ', s:10);
        Writeln(f_out, 's(10) = ', s_dec:5, ' s(':5, j:2, ') = ', s:10);
      end;
    end;
  end;
  close(f_out);
readln;
end.

Автор: Адель 8.05.2007 21:58

1. выложи, что сделал
2. воспользуйся прогой построения блок схем и сравни

оффтоп: это что, курсовая?

Автор: BND 8.05.2007 22:12

сканэра нет у меня к сожалению =(
что за программа для построения блок-схем? как называется ?

это часть курсовой - построение блок=схемы написанной программы

Автор: volvo 8.05.2007 22:21

http://forum.pascal.net.ru/index.php?showtopic=4270

Автор: BND 8.05.2007 23:16

да, спасибо. прочитал внимательно справку, но хоть убей не нашел как открыть файлы *.pas
у меня просто пустой экран и ничего не происходит..
подскажите как заставить эту программу нарисовать мне блок схему ?

Автор: volvo 9.05.2007 0:29

Разбил я программу на 3 файла:

 a.pas ( 378 байт ) Кол-во скачиваний: 582

 a2.pas ( 149 байт ) Кол-во скачиваний: 576

 a3.pas ( 534 байт ) Кол-во скачиваний: 508


и по отдельности открыл их программой... Вот что она мне выдала (второй файл не открылся, но он - самый простой):

Автор: BND 9.05.2007 0:55

В который раз уже благодарен =) Спасибо за помощь, Volvo !