|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.01.2013, 17:19 | #1 |
Пользователь
Регистрация: 14.11.2012
Сообщений: 36
|
Блок-схема
Помогите пожалуйста составит блок схему к программе по ПРОЦЕДУРАМ
program lab17_2; type mas=array [1..4] of real; var k,p,t,s,f,r:real; x,y:mas; procedure KP(a:mas; var max,sum:real); var k,i:integer; begin sum:=0; writeln('Введіть розмірність масиву'); readln(k); for i:=1 to k do begin writeln('Введіть ',i,'-й елемент масиву'); 2 readln(a[i]); sum:=sum+a[i]; end; max:=a[1]; for i:=2 to k do if a[i]>max then max:=a[i]; end; begin KP(x,p,t); KP(y,k,s); f:=(sqr(t)*sin(s))/sqrt(t*s); r:=p+sqr(k); writeln('F=',f,' R=',r); end. |
02.01.2013, 17:48 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
FCEditor в помощь.
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
БЛОК СХЕМА! | qewone | Помощь студентам | 0 | 22.12.2011 17:25 |
Схема алгоримта (блок схема) на задачу по Паскалю | LINCHAK | Помощь студентам | 0 | 22.10.2010 16:56 |
Блок схема алгоритма программы и схема взаимодействия модулей. | Lazio | Фриланс | 3 | 02.12.2009 23:10 |
Блок-схема | Юльчик18 | Помощь студентам | 3 | 11.10.2009 14:46 |