Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[18.223.159.195] |
|
Сообщ.
#1
,
|
|
|
Нужна блок схема программы , с блок схемами вложенных функций и процедур(если они есть.)Желательно на MS Visio в графическом формате (jpg, gif).
Собственно программа: program mainkursrab; uses crt; var f:Text; {файл} i,j:integer; {счётчики циклов} n:integer; {будет содержать кол-во точек} x,y,k:real; {соответственно координаты x,y, коэффициент k} a:array[1..20,1..2] of real;{массив, который будет содержать координаты точек} s:string; {переменная, будет содержать путь к файлам} b:boolean; function F1(x2,y2:real):real; {функция вычислит значение F1(x2,y2)} begin F1:=y2*y2-0.5*x2; end; function F2(x2,y2:real):real; {функция вычислит значение F2(x2,y2)} begin F2:=y2-1.4*cos(x2+0.25); end; function F3(x2,y2,k2:real):real; {функция вычислит значение F3(x2,y2)} begin F3:=y2-0.2*x2+k2; end; begin clrscr; Writeln('Путь к файлу с координатами точек:'); readln(s); Assign(f,s); {$I-} reset(f); {Пытаемся открыть файл} {$I+} if IOresult<>0 then writeln('Файл не найден') {Проверяем существование файла} else begin {1} while not eof(f) do {считываем все координаты до конца файла} begin b:=true; Inc(i); {увеличиваем значение переменной i на 1} {$I-} {отключаем обработку ошибок ввода\вывода} read(f,a[i,1]); {Пытаемя прочесть координату X} {$I+} {включаем обработку ошибок ввода\вывода} if IOResult<>0 then begin {проверка, не было ли ошибки ввода\вывода} writeln('Неправильная координата X в строке ',i); b:=false; end; {$I-} {отключаем обработку ошибок ввода\вывода} read(f,a[i,2]); {Пытаемся прочесть координату Y} {$I+} {включаем обработку ошибок ввода\вывода} if IOResult<>0 then begin {проверка, не было ли ошибки ввода\вывода} writeln('Неправильная координата Y в строке ',i); b:=false; end; if b=false then {если была ошибка при считывании данных} Dec(i); {уменьшаем значение переменной i на 1, т.к. этой точки нет} end; n:=i; {запоминаем кол-во точек} Close(f); writeln('Путь к файлу с результатом'); readln(s); assign(f,s); rewrite(f); {Создаём файл с результатом} for i:=1 to 5 do {в этом цикле идёт проверка точек на нахождение} {проверяем для всех k} begin k:=i*0.1; writeln('k=',k:1:1); {вывод на экран} writeln(f,'k=',k:1:1); {вывод в файл} for j:=1 to n do {проверяем все точки} begin write('Точка (',a[j,1]:2:2,';',a[j,2]:2:2,')',': '); write(f,'Точка (',a[j,1]:2:2,';',a[j,2]:2:2,')',': '); x:=a[j,1]; y:=a[j,2]; if ((F1(x,y)<=0) and (F2(x,y)<=0) and (x<2.5)) or ((F3(x,y,k)<=0) and (F2(x,y)>=0) and (x>1) and (x<5.5)) then begin writeln('внутри'); {вывод на экран} writeln(f,'внутри'); {вывод в файл} end else begin writeln('снаружи'); {вывод на экран} writeln(f,'снаружи'); {вывод в файл} end; end; {for j:=1 to n} end; {for i:=1 to 5} Close(f); {закрываем файл} writeln('Результат сохранён в файл ',s); end; {1} readkey; end. |
Сообщ.
#2
,
|
|
|
Продлили время, всё еще нужна блок схема...
100р по вебмани...выполнить в MS Visio либо просто красиво. |
Сообщ.
#3
,
|
|
|
100 рублей? Хм... за просто набросаную от руки схему к курсовику я получаю не менее 10 долларов.
|
Сообщ.
#4
,
|
|
|
Ты бы алгоритм описал, а по ниму блок схем составит
что два пильца обас.... |
Сообщ.
#5
,
|
|
|
Люди помогите ,горю, завтро практику здавать , а у меня блок-схемы нет к программе. А я в душе не е... как её рисовать!!!!!!! Program pog; Uses crt; const LU=#201; RU=#187; LD=#200; RD=#188; H=#205; V=#186; n=7; var x1,x2,y1,y2,k,a,b,c,i,P,Vt,S,Ch,Pi,Su,Vos,q:integer; den:array[1..n,1..2] of string; yes:boolean; ned:array[1..7] of string; t:array [1..7] of integer; z,j,temp1 :integer; zx:real; temp2:string; as:boolean; procedure box(x1,y1,x2,y2:integer); var i: integer; begin clrscr; TextBackground(red); TextColor(black); clrscr; TextBackground(black); Window(x1+2,y1+1,x2+2,y2+1); clrscr; TextBackground(green); Window(x1,y1,x2,y2); ClrScr; Write(LU); for k:=x1+1 to x2-1 do Write(H); Write(RU); for k:=y1+1 to y2-1 do begin Gotoxy(1,k-y1+1); Write(V); Gotoxy(x2-x1+1,wherey); Write(V); end; Write(LD); Window(x1,y1,x2,y2+1); Gotoxy(2,y2-y1+1); for k:=x1+1 to x2-1 do Write(H); Write(RD); Window(x1+1,y1+1,x2-1,y2-1); end; begin clrscr; box(20,7,65,23); {writeln(' ¦¬ЁвҐ Ї®¦ «г©бв Є« ўЁиг "Enter" '); } begin clrscr; ned[1]:='Ї®Ґ¤Ґ«мЁЄ'; ned[2]:='ўв®аЁЄ'; ned[3]:='б। '; ned[4]:='зҐвўҐаЈ'; ned[5]:='ЇпвЁж '; ned[6]:='бгЎЎ®в '; ned[7]:='ў®бЄаҐбҐмҐ'; {box(21,9,63,25);} for z:=1 to 7 do begin writeln('ўўҐ¤ЁвҐ ⥬ЇҐа вгаг ў ',ned[z]);{ᤥ« вм ўлў®¤ ®иЁЎЄЁ} readln(t[z]); end; readkey; box(22,5,63,22); for z:=1 to 7 do zx:=zx+t[z]; zx:=zx/7; for z:=1 to 7 do if t[z]<zx then begin writeln('----------Ё¦Ґ б।ҐЈ®-----------'); writeln ('',ned[z],' ⥬ЇҐа вга = ',t[z],''); end; readln; repeat box(20,3,61,20); begin as:=true; for z:=7 downto 2 do if t[z]<t[z-1] then begin temp1:=t[z]; t[z]:=t[z-1]; t[z-1]:=temp1;as:=false; temp2:=ned[z]; ned[z]:=ned[z-1]; ned[z-1]:=temp2; end; end; clrscr; until as=true; writeln('⥬ЇҐа вга ў Ї®ап¤ЄҐ гЎлў Ёп'); for z:=7 downto 1 do writeln(' ',ned[z],' --> ⥬ЇҐа вга = ', t[z]); readln; end; end. |