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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Построение блок-схемы

Автор: 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

Цитата(Адель @ 8.05.2007 17:58) *

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

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


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

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

Автор: volvo 8.05.2007 22:21

Цитата
что за программа для построения блок-схем?

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

Автор: BND 8.05.2007 23:16

Цитата(volvo @ 8.05.2007 18:21) *

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


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

Автор: volvo 9.05.2007 0:29

Цитата
как заставить эту программу нарисовать мне блок схему ?
Разбил я программу на 3 файла:

Прикрепленный файл  a.pas ( 378 байт ) Кол-во скачиваний: 412

Прикрепленный файл  a2.pas ( 149 байт ) Кол-во скачиваний: 395

Прикрепленный файл  a3.pas ( 534 байт ) Кол-во скачиваний: 347


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

Автор: BND 9.05.2007 0:55

Цитата(volvo @ 8.05.2007 20:29) *

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


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