Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Pascal
Перезагрузить страницу Кому не сложно помогите решить
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 11.03.2009, 18:48

Здравствуйте. Кому не сложно решите плиз задачку, вроде все получается написать, но то либо ошибка вылезет, либо ответ не правильный.

Последний раз редактировалось Pasatiji; 09.06.2013 в 09:56
Ответить с цитированием
  (#2 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 11.03.2009, 18:48

Здравствуйте. Кому не сложно решите плиз задачку, вроде все получается написать, но то либо ошибка вылезет, либо ответ не правильный.

Последний раз редактировалось Pasatiji; 09.06.2013 в 09:56
Ответить с цитированием
  (#3 (permalink)) Старый
Exmap Exmap вне форума
Member
 
Сообщений: 1,045
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.09.2007
По умолчанию 12.03.2009, 20:23

Фокус не пройдёт! Пока ты не выложишь СВОЙ КОД, тебе никто ничего не скажет (ну развешто semenovmixan за деньги).
Ответить с цитированием
  (#4 (permalink)) Старый
Exmap Exmap вне форума
Member
 
Сообщений: 1,045
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 17.09.2007
По умолчанию 12.03.2009, 20:23

Фокус не пройдёт! Пока ты не выложишь СВОЙ КОД, тебе никто ничего не скажет (ну развешто semenovmixan за деньги).
Ответить с цитированием
  (#5 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 21:22

Вот моё:
Код:
 Program zadanie;
Var a,m,n,d,t,s,e,w:real;
begin;
     Writeln('Введите a');
      readln(a);
     m:=sqrt(a)+sqrt(b);
     n:=sqrt©+sqrt(b);
     d:=ln(m/n);
     t:=sin(sqrt©);
     s:=sin(sqrt(b));
     e:=cos(t)/sin(s);
     w:=ln(d/e);
Writeln('Значение w=', w:10:5);
end.
Получается неправильный ответ, в чем ошибка?
Ответить с цитированием
Ads.
  (#6 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 21:22

Вот моё:
Код:
 Program zadanie;
Var a,m,n,d,t,s,e,w:real;
begin;
     Writeln('Введите a');
      readln(a);
     m:=sqrt(a)+sqrt(b);
     n:=sqrt©+sqrt(b);
     d:=ln(m/n);
     t:=sin(sqrt©);
     s:=sin(sqrt(b));
     e:=cos(t)/sin(s);
     w:=ln(d/e);
Writeln('Значение w=', w:10:5);
end.
Получается неправильный ответ, в чем ошибка?
Ответить с цитированием
  (#7 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 21:54

На само задание ссылка в первом посте, я не знаю как его сюда выложить
Извиняюсь, упустил одну строчку :
Код:
Program zadanie;
Const b=3.2; c=1;
Var a,m,n,d,t,s,e,w:real;
begin;
Writeln('Введите a');
readln(a);
m:=sqrt(a)+sqrt(b);
n:=sqrt©+sqrt(b);
d:=ln(m/n);
t:=sin(sqrt©);
s:=sin(sqrt(b));
e:=cos(t)/sin(s);
w:=ln(d/e);
Writeln('Значение w=', w:10:5);
end.
Ответить с цитированием
  (#8 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 21:54

На само задание ссылка в первом посте, я не знаю как его сюда выложить
Извиняюсь, упустил одну строчку :
Код:
Program zadanie;
Const b=3.2; c=1;
Var a,m,n,d,t,s,e,w:real;
begin;
Writeln('Введите a');
readln(a);
m:=sqrt(a)+sqrt(b);
n:=sqrt©+sqrt(b);
d:=ln(m/n);
t:=sin(sqrt©);
s:=sin(sqrt(b));
e:=cos(t)/sin(s);
w:=ln(d/e);
Writeln('Значение w=', w:10:5);
end.
Ответить с цитированием
  (#9 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 21:56

ответа правильного мне не известно, но то что ЗДЕСЬ получается неверно.
Спасибо за советы, учту на будущее. Я просто полный чайник в этом
Ответить с цитированием
  (#10 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 21:56

ответа правильного мне не известно, но то что ЗДЕСЬ получается неверно.
Спасибо за советы, учту на будущее. Я просто полный чайник в этом
Ответить с цитированием
  (#11 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 12.03.2009, 22:12

что получается? Написать сюда цифра-в-цифру можешь?
Ответить с цитированием
  (#12 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 12.03.2009, 22:12

что получается? Написать сюда цифра-в-цифру можешь?
Ответить с цитированием
Ads
  (#13 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 22:21

-0.94287
Ответить с цитированием
  (#14 (permalink)) Старый
student72 student72 вне форума
Новичок
 
Сообщений: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 11.03.2009
По умолчанию 12.03.2009, 22:21

-0.94287
Ответить с цитированием
  (#15 (permalink)) Старый
Виталик 1 Виталик 1 вне форума
Member
 
Сообщений: 1,286
Сказал(а) спасибо: 1
Поблагодарили 3 раз(а) в 2 сообщениях
Регистрация: 14.06.2006
По умолчанию 12.03.2009, 23:02

с чего взял, что неверно. В общем вот мой код:

Код:
uses
crt;

var
  a, b, c, w, k, x, y : real;

begin
clrscr;
WriteLn('Введите a, b, c');
 ReadLn(a);
 ReadLn(b);
 ReadLn(c);
x := ln((sqrt(a) + sqrt(c)) / (sqrt(c) + sqrt(b)));
k := (sin(sqrt(c)) / sin(sqrt(b)));
y := cos(k) / sin(k);
w := ln(x / y);
WriteLn('w = ', w : 2 : 4);
ReadLn;
end.
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ребята,кому не сложно,помогите,пожалуйста,со строками Новенькая22 Pascal 3 21.02.2012 06:19
помогите написать код кому не трудно. плиз valdemar-86 Assembler 0 01.02.2012 19:48
Кому не сложно оцените сайт mixite Опросы и мнения 10 27.12.2011 15:34
Помогите плиз с заданием,незнаю к кому обратиться!!!! Visha Любые вопросы от новичков 0 28.11.2011 20:20
Нужна помощь! кому не сложно slav1k Видеокарты 10 02.01.2011 22:54
Вам не сложно, а нам приятно! Mypka21 Общетематический 0 17.12.2010 18:17
помогите с флешкой, кому не трудно валера77 Любые вопросы от новичков 14 11.11.2010 10:05
Помощь в выборе питальника!!!!помогите кому не сложно!!!! Skill Подбор комплектующих 10 20.11.2009 20:47
Помогите если не сложно Phoenix163 Подбор комплектующих 16 29.10.2009 17:27
О как же сложно без этих if-the.... Iriz Prolog 5 26.03.2009 15:08
Помогите кому не сложно. Зарание спасиба Wayn Prolog 3 02.02.2008 13:27
ААААА....винда глючит....кому не лень помогите Черчилль Софт и программы 21 31.08.2007 01:57



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов