Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.06.2009, 22:28   #1
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию зачет по информатике

помогите пожалуйста решить задачи для зачета
http://s61.radikal.ru/i172/0906/ce/855affd19418.jpg тута нужно сделать 2,3 задачу, помогите пожалуйста, а то сегодня всю голову сломал

Последний раз редактировалось Neytron; 19.06.2009 в 00:06.
Neytron вне форума Ответить с цитированием
Старый 18.06.2009, 22:32   #2
33artem
Пользователь
 
Регистрация: 24.05.2009
Сообщений: 24
По умолчанию

как я тебя понимаю

Последний раз редактировалось 33artem; 19.06.2009 в 00:09.
33artem вне форума Ответить с цитированием
Старый 19.06.2009, 02:17   #3
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

ребята помогите пожалуйста, вся надежда осталась на вас
Neytron вне форума Ответить с цитированием
Старый 19.06.2009, 02:36   #4
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

ну вторая как-то так... если я не ошибся нигде.. на калькуляторе пересчитал, вроде сходится
Код:
var
	m,n,s:extended;
begin
	m := exp(ln(7.002*exp(ln(0.1)*1/3)-1+1/10*(exp(2)+exp(-2)))*1/5);
	n := ln(3)*(cos(pi/5/180*pi)+cos(3*pi/5/180*pi));
	if (sqr(m)+sqr(n) < 5) then
		s := arctan(5*sqr(m)+7*sqr(n))
	else
		s := sin((5*sqr(m)+7*sqr(n))/180*pi);
	writeln('m = ',m:0:5);
	writeln('n = ',n:0:5);
	writeln('s = ',s:0:5);
	readln;
end.
Uguu~
__STDC__ вне форума Ответить с цитированием
Старый 19.06.2009, 09:05   #5
ОДИНОЧЕСТВО В СЕТИ
Любопытная Вредина
Участник клуба
 
Аватар для ОДИНОЧЕСТВО В СЕТИ
 
Регистрация: 19.06.2009
Сообщений: 1,285
По умолчанию

Код:
t:=0.01;
dt:=0,15;
repeat
r:=2/sin(t);
tvg:=t*57.295;
writeln('sin ',tvg:6:3,' degrees= ',r:6:3);
t:=t+0,15
until t>3.01;
end;
а по поводу графиков пользуйтесь поиском!!!
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
ОДИНОЧЕСТВО В СЕТИ вне форума Ответить с цитированием
Старый 19.06.2009, 10:19   #6
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

ОГРОМНОЕ СПАСИБО!!!! посмотрите пожалуйста еще 2 задачки
http://s39.radikal.ru/i084/0906/f6/1b08922fe73a.jpg
http://s46.radikal.ru/i113/0906/4a/5624060bc86e.jpg
огромное спасибо за решеные задачи
Neytron вне форума Ответить с цитированием
Старый 19.06.2009, 18:23   #7
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

прпеод ток что сказал что 2ая задача сделана неверно, потому что считать нада в радианах и сказал что в программе неправильно сделана 5,7 и 9 строчка! Где s считается. А 3я задача прост сказал что не правильно

Последний раз редактировалось Neytron; 19.06.2009 в 18:30.
Neytron вне форума Ответить с цитированием
Старый 19.06.2009, 18:28   #8
__STDC__
Участник клуба
 
Аватар для __STDC__
 
Регистрация: 16.03.2009
Сообщений: 1,013
По умолчанию

ну уберите pi/180
почему неверно? где ошибка?

***
где в условии сказано, что угол в радианах? или все величины, где присутствует pi - выражаются в радианах?
Uguu~

Последний раз редактировалось __STDC__; 19.06.2009 в 18:41.
__STDC__ вне форума Ответить с цитированием
Старый 19.06.2009, 18:48   #9
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

Все в радинах сказал
Neytron вне форума Ответить с цитированием
Старый 19.06.2009, 19:25   #10
Neytron
Пользователь
 
Регистрация: 07.05.2009
Сообщений: 20
По умолчанию

Сам сдал задачу и теперь неправильно сделана 3 задача.
Помогите,мне ОЧЕНЬ нужно!
Neytron вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ЕГЭ по информатике __STDC__ Свободное общение 39 16.06.2009 16:57
Завтра зачет по информатике..,помогите решить задачу на поскале. Ivan357 Помощь студентам 6 18.12.2008 10:55
Литература по информатике пыхта4ог Свободное общение 1 18.11.2007 20:24
Олимпиада по информатике RUsoft Паскаль, Turbo Pascal, PascalABC.NET 3 23.12.2006 07:57