IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Построение блок-схемы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


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

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.



Сообщение отредактировано: BND -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

Репутация: -  4  +


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

оффтоп: это что, курсовая?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


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

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

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


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

это часть курсовой - построение блок=схемы написанной программы
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Гость






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

Программа построения блок-схем
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


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


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

Сообщение отредактировано: BND -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






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

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

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

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


и по отдельности открыл их программой... Вот что она мне выдала (второй файл не открылся, но он - самый простой):
Прикрепленное изображение
Прикрепленное изображение
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Новичок
*

Группа: Пользователи
Сообщений: 14
Пол: Мужской

Репутация: -  0  +


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

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


В который раз уже благодарен =) Спасибо за помощь, Volvo !
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 22.09.2020 14:53
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name