hundert Опубликовано 27 ноября, 2009 Жалоба Поделиться Опубликовано 27 ноября, 2009 Вот сам пример уже зделанный тока блоксхему написать Program xzxz Uses crt; Const b=-0,5; Var z,x,y:real; Begin; Clrscr; x:=1; Repeat y:=2; While y<=5 do Begin z:=b*exp(-sqrt(x))*tg(x+1,7)/cos(x+1,7)+sqrt(y+b); Writeln('x=',x:4:1;'y=',y:2:5;'z=',z:3:6); y:=5; y:=y+0,5; End; x:=x=0,2; Until x>2; End. Помогите пожалуйста Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Тролль Опубликовано 27 ноября, 2009 Жалоба Поделиться Опубликовано 27 ноября, 2009 hundert: Смотри этот пост. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.