Помогите пожалуйста найти ошибку
Program number1;
var
a1,b1,c1,a2,b2,c2,f1,f2,s,t:real;
summa:integer;
procedure efka(x1,y1,z1,x2,y2,z2,k1,k2,es,te:real);
begin
x1:=te;
y1:=-2*es;
z1:=1.17;
x2:=2.2;
y2:=te;
z2:=es-te;
k1:=(2*x1-y1-sin(z1))/(5+z1);
k2:=(2*x2-y2-sin(z2))/(5+z2);
end;
begin
writeln('s,t');
readln(s,t);
efka(a1,b1,c1,a2,b2,c2,f1,f2,s,t);
summa:=f1+f2;
readln('Результат', summa);
end.
Приложения:
![](https://st.uroker.com/files/5f8/5f84d77657e4eb8d57842770f58943f5.jpg)
![](https://st.uroker.com/files/a01/a01dba6aa53d2171747e14cd20078740.jpg)
Ответы
Ответ дал:
0
Program number1;vara1,b1,c1,a2,b2,c2,f1,f2,s,t,summa:real;procedure efka(x1,y1,z1,x2,y2,z2,k1,k2,es,te:real);beginx1:=te;y1:=-2*es;z1:=1.17;x2:=2.2;y2:=te;z2:=es-te;k1:=(2*x1-y1-sin(z1))/(5+z1);k2:=(2*x2-y2-sin(z2))/(5+z2);end; beginwriteln('s,t');readln(s,t);efka(a1,b1,c1,a2,b2,c2,f1,f2,s,t);summa:=f1+f2;writeln('Результат', summa);end.
Нужно было переменную объявить в real и в конце место readln нужно было writeln
Нужно было переменную объявить в real и в конце место readln нужно было writeln
Приложения:
![](https://st.uroker.com/files/3be/3be84943cc49d1519a92373079bb9c00.png)
Ответ дал:
0
Тоже БСК.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад