|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
09.04.2011, 14:21 | #1 |
Пользователь
Регистрация: 08.04.2011
Сообщений: 12
|
Перевод программы с Pascal в C++ !!! !!
Помогите пожалуйста сроки поджимают ))))program KP5;
uses Crt; const k1=4; a1=3.7718; a2=5,5168; a3=3,5245; k2=0.6; a4=3.7; s0=0.205; s1=0.345; s2=0; v1=3; f3=20; n=5; h=0.5; w1=2; w2=25; var x,m1,r,r1,z:real; i,j,m,f1,v:integer; y,p,g:array[0..5] of real; label l_1,l_2; procedure pr_1; begin r:=v-y[2]-y[5]; r1:=s1*r+y[1]-s2*(y[3]+(k2*f1-y[5])/a4); p[1]:=s0*r; p[2]:=y[3]; p[3]:=y[4]; p[4]:=(k1*r1-y[2]-a1*y[3]-a2*y[4])/a3; p[5]:=(k2*f1-y[5])/a4; end; BEGIN ClrScr; v:=v1; f1:=0; writeln(' v=',v,' f1=',f1); writeln('----------------------'); l_2: y[1]:=0; y[2]:=0; y[3]:=0; y[4]:=0; y[5]:=0; x:=0; REPEAT m1:=int(w1/h); m:=trunc(m1); for j:=1 to m do begin pr_1; for i:=1 to n do begin g[i]:=y[i]+h*p[i]/4; y[i]:=y[i]+2*h*p[i]/3; end; pr_1; for i:=1 to n do y[i]:=g[i]+3*h*p[i]/4; x:=x+h; end; z:=y[2]+y[5]; writeln(' x=',x:4:1,' z=',z:6:3); UNTIL x>w2; if v=0 then goto l_1; readln; f1:=f3; v:=0; writeln(' f1=',f1,' v=',v); writeln('----------------------'); goto l_2; l_1: readln; END. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Перевод программы с Pascal в Borland C++ | midletarket | Помощь студентам | 11 | 20.04.2012 14:03 |
Перевод программы с Pascal в C++ (1прога) | ProgFrog | Помощь студентам | 0 | 09.04.2011 00:01 |
Перевод программы с Pascal на QBasic | Андрюха_ЕШКО | Помощь студентам | 1 | 17.03.2011 22:03 |
Перевод программы с Pascal в C++ | GoodSpirit | Помощь студентам | 4 | 19.05.2010 18:04 |