|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
15.02.2009, 22:46 | #1 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 35
|
Помогите. Не могу найти ошибку
program capta1n;
var y,a,c,x,m : real; flag : boolean; begin write ('a= '); readln (a); write ('c= '); readln (c); write ('x= '); readln (x); flag:=false; if (a>0) or (cos(c)<>0) or (sin(3*x)<>0) then begin flag:=true; m:=4*sqr(cos(5*sqr(sin(x))))*cos(5* sqr(sin(x)))*cos(x)/ (5*sqr(sin(3*x))*sin(3*x))-4*sqrt(a)/(5*sqr(sqr(sin(c)/cos(c)))* sin(c)/cos(c)) end; if flag and (m>0) then y:=3*abs(sqr(a)-5*sqr(sin(sqr(c)))/sqr(cos(sqr(c)))*sin(sqr(c))/cos(sqr(c))) +sqrt(m); write ('a c x y'); writeln; write (a:0:1,' ',c:0:1,' ',x:0:1,' ',y:0:4); writeln; readln end. Пожайлуста проверте где я допутил ошибку. Если ошибки нет, то просто не верное условие( |
15.02.2009, 22:50 | #2 | |
Высокая репутация
СуперМодератор
Регистрация: 27.07.2008
Сообщений: 15,648
|
Цитата:
E-Mail: arigato.freelance@gmail.com
|
|
15.02.2009, 22:52 | #3 |
В тени
Старожил
Регистрация: 19.12.2008
Сообщений: 5,788
|
Во-первых, могли бы синтаксические ошибки исправить сами.
Во-вторых, скажите условие.
Вполне очевидно, чтобы что-то понять, необходимо книги читать.
Не нужно плодить бессмысленных тем. Вас Поиск избавит от многих проблем. ___________________________________ ___________________________________ _______ [=Правила форума=]_____[Поиск]_____[Литература по С++]____[Литература. Паскаль] |
15.02.2009, 23:32 | #4 |
Пользователь
Регистрация: 25.01.2009
Сообщений: 35
|
Вот условие. 1 задачка
http://pic.co.ua/ru/view/01e8f7c415b...5873ff682f552/ |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не могу найти ошибку(С++) | Yura_n | Помощь студентам | 8 | 20.01.2009 12:36 |
Не могу найти ошибку. | Picaso18 | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 19.01.2009 17:05 |
Не могу найти ошибку . | KVANTOM | Общие вопросы Delphi | 2 | 08.01.2009 17:15 |
Лаба по программированию. Не могу найти ошибку((( | KrL^^ | Помощь студентам | 3 | 08.10.2008 14:49 |
Не могу найти ошибку! | Эдуард | Общие вопросы C/C++ | 7 | 27.02.2008 16:34 |