 Арифметическая задачка |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| yoon |
 7.12.2005 22:52
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 4 Пол: Мужской Реальное имя: Саня Репутация:  0   |
Задача:
A=12.6; B=8,2; C=6,4; D=5,7; F=5,7; K=2,5 найти x=A*(K+2)*sin(F+2)+Ln(B+2)+D^2/(A^2-B^2) program zada4a;
var
A,B,C,D,F,K,K:integer;
x:integer;
begin
writeln('Zada4a')'
write('Введите A:');
readln(A);
write('Введите B:');
readln(B);
write('Введите C:');
readln(c);
write('Введите D:');
readln(D);
write('Введите F:');
readln(F);
write('Введите K:');
readln(K);
writeln('Решим уравнение:'A*','(K+2)*','sin(F+2)+','ln(B+2)+','D*D/(A*A-B*B)');
if B=>2 then
begin
write('ln(B+2)=>0');
readln;
halt;
end;
x:=A*(K+2)*sin(F+2)+ln(B+2)+D*D/(A*A-B*B);
writeln(x);
readln;
end.
И чего то не получается, помогите пожал с решением или киньте ссылки на подобноезарание благодарен  |
   |
 
|
Сообщений в этой теме
yoon Арифметическая задачка 7.12.2005 22:52
GoodWind integer -это целые числа... используй real:
progra... 7.12.2005 22:57 FIAT yoon,
здесь:
writeln('Решим уравнение:'A*... 7.12.2005 22:59
yoon пасиб, пошло)
program zada4a;
var
A,B,C,D,F,K,:rea... 7.12.2005 23:47  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 25.07.2025 11:35 |