Поможем друг другу, кто чем может

я с 651004.
Поможем друг другу в беде, т.е. учении...
Нас так запрягли по всем предметам...

П.С.Опаздываю в библиотеку, приду допишу...
Пришел в 2200, сил не было...
Так вот:
1пара) ОАиЯП (Основы Алгоритмизации и Языков Программирования)
Весь урок преподаватель говорила....советы студентам...
За 15 мин до конца пары объяснила условные знаки алгоритмов: начало, конец, блоки, циклы и т.п. Прозвенел звонок, записали три задачи, одна с тремя уровнями сложности. Другую(про сортировку) надо написать несколькими вариантами.
2пара) ВМ (Высшая Математика)
Препод зашла, поздаровалась и сказала: "Начнем урок"... уравнения с модулями, неравенства с модулями, треугольник Паскаля, бином Ньютона, элементы комбинаторики, метод математической индукции, деление многочленов... нас спас звонок, но...
3пара) загадочное для нас до того как мы узнали что это такое КЛ(Р) (Культурология)
Пришли, сели записали план на сегодняшнее задание, записали д/з на следующее занятие 4 вопроса, 5 рефератов.... А во второй половине написали ТЕСТ. Кто знает выдающихся личностей во всех областях? (включая политику, экономику, производство, религии и т.п.)
4пара) не слала легче История Беларуси
Весь урок писали что-то по губам преподователя: уже на 4ом ряду ничего не слышно - так тихо говорит на беларусском языке, да еще и с ошибками(редко, но метко). Только она заставила нас подписать тетрадь. Весь урок писАли! д/з: заселение территории беларуси от древности до XIII стст. н.э. с полным описанием всего, что только есть в учебнике...
А учебники мы получим только 14сентября!!!

Да уж...

Кого-то уже грузят? Смешно! Такого после первого дня не бывает

Argus, просто некоторым,наверное, повезло

Так народ, кто тут рубит в программировании? Короче, написала программу. Получились следующие арифметические действия:
a:=Exp(1/3*ln(8+sqr(abs(x-y))+1));
b:=sqr(x)+sqr(y)+2;
c:=Exp(abs(x-y))*Exp(ln(Sqr(sin(z)/cos(z))+1)*x);
Кто переведет? Хочу найти, где ошибка, а то прога выдает неверный ответ

А что надо получить? Может переменные не те вводишь, под синус по моему например в радианах надо. Напиши математическими символами что надо перевести.

ln(8+sqr(abs(x-y))+1)
почему не ln(9+sqr(abs(x-y)))

Если кому-нибудь так будет понятнее:
a:= Числитель: корень третей степени(8+ квадратмодуля(х-у)+1)
b:= Знаменатель: квадрат(х)+квадрат(у)+2
c:= (e в степени модуль(х-у))*((квадрат(tg(z)) + 1) в степени х)
u:=a/b - c
Короче, второе индивидуальное задание из книги Синицына по Delphi.
P.P.S. Не думаю, что в данном конкретном случае угол надо переводить в радианы. По крайней мере, формула-то дана именно такая(x,y,z должны вводиться).

Y@KOV,я с третий группы,по твоему описанию у нас по КЛ(Р) и Истории одни преподы,возможно и по вышке!Тем же самым напрегали!

ilonka, Дай задание, получишь ответ.... (за просто так не работаю...)

_CoHuK_, у ты какой. Ну и "бу" на вас - сама ошибку искать буду, надеюсь, что радо или поздно на меня всетаки снизойдет озарение...

Дай пожалуйста то что ты вводишь, и что должно быть. Так ошибки не вижу, прогнал со своими данными каждую строчку вроде правильно получается.

flash пишет:

Дай пожалуйста то что ты вводишь, и что должно быть. Так ошибки не вижу, прогнал со своими данными каждую строчку вроде правильно получается.

в плане? остальное все стопудово правильно, программа идет - но выдает неверный ответ, значит ошибка в выполнении вышеупомянутых операций. Дана большая формула(которую я с горем пополам здесь написала - см. выше). Вводятся x,y,z, через которые я выражаю a,b и с. И вот выражая этот бред я где-то допустила ошибку, но, хоть убей, не могу её найти

В смысле на калькуляторе считал и паскале совпало. Скажи мне x y z, думаю ты z в градусах вводишь, больше там негде ошибиться?

2 ilonka
Возможен еще такой случай:
Когда прога пошет, но выдает не тот результат, значит есть двойная ошибка. Из-за этого она и работает, но не корректно.

З.Ы. Все-таки еще раз проверь весь код.

Подскажите, плиз, виды сортировок(если надо, напр., расположить набор цифр по возрастанию). Препод сказала, что их около 8!!! Там есть какая-то пузырьковая... Моя фантазия на 3 закончилась!!!!

Хоть убейте, не могу найти ошибку. Возможен ли такой вариант, что в книге опечатка(книга 2006г.)? Меня тоже смутило, что вместо 9 было написанао 8+1. x=-4,5, y=0,75E-4, z=0,845E-2. Выводиться должно u=-55,6848. В общем, вот сама прога:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='-4,5';
Edit2.Text:='0,75E-4';
Edit3.Text:='0,845E-2';
Memo1.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,a,b,c,u: extended;
begin
Memo1.Clear;
Memo1.Lines.Add('Èñõîäíûå äàííûå:');
x:=StrToFloat(Edit1.Text);
Memo1.Lines.Add('X='+FloatToStrF(x,fffixed,10,6));
y:=StrToFloat(Edit2.Text);
Memo1.Lines.Add('Y='+FloatToStrF(y,fffixed,10,6));
z:=StrToFloat(Edit3.Text);
Memo1.Lines.Add('Z='+FloatToStrF(z,fffixed,10,6));
a:=Exp(1/3*ln(8+sqr(abs(x-y))+1));
b:=sqr(x)+sqr(y)+2;
c:=Exp(abs(x-y))*Exp(ln(Sqr(sin(z)/cos(z))+1)*x);
u:=a/b-c;
Memo1.Lines.Add('Ðåçóëüòàò U='+FloatToStrF(u,fffixed,8,4));
end;

end.

Ой, что это?!
'Èñõîäíûå äàííûå:' и 'Ðåçóëüòàò U='
Скорее всего здесь скобка не там поставлена:
a:=Exp(1/3*ln(8+sqr(abs(x-y))+1));
или должнобыть еще что-то, что авторами подразумевалось: "Так это и так понятно!!!"

Y@KOV
Их действительно много, пузырёк это когда у тебя сверяются пары чисел в массиве и большие всплывают. Есть Qsort там жуткая рекурсивная процедура деления пополам и сравнивая крайних, если хочешь выпендрицца разберись или на изусть выучи. В нете листинги должны быть. Есть через второй массив, с очередью ещё изврат какой-то есть.
ilonka
Вам что в делфе надо? Есть замечательный борланд паскаль набирай процедуру там и когда она заработает вставляй в делфу.

Ладно, придется сказать мужику, что в его книге какая-то ошибка - другого выхода я не вижу.

а намного не сходится ответ,
а то когда я делала лабу,у меня не сходиласбь одна шестая цифра после запятой,но хитрыми манипуляциями,удалось избежать переделывания,преподша просто не заметила
я немножко округлила

Foks9 пишет:

но хитрыми манипуляциями,удалось избежать переделывания,преподша просто не заметила
я немножко округлила

Надо будет запомнить!!!

А что если не сходиться лабу не защитают? Там же машинный эпсилон виноват!

Ура! Похоже, что я все-таки не тупая и дело не во мне. Для себя сделала ещё самый последний(15) вариант - из нашей подгруппы он вроде бы его никому не давал(в любом случае даже в программировании у людей разные подчерка). Все сошлось. Теперь в правильности своего решения я ничуть не сомневаюсь. Те кому показывала эти 8+1 тоже решили, что здесь какая-то опечатка. А защитить? Да без проблем!
З.Ы.Фокся, одним округлением тут, пожалуй, не отделаешься.

да ладно,подумаешь ошиблась на 3 миллионных,мне кажется всётаки ответы там не все правильные

ПОМОГИТЕ!
кто какие способы сортировки знает!! у меня завтра лаба!
Я знаю только пузырьковую!!!
Кто поможет, плиз...

попробуй не 1/3 а 1./3

Через два массива. Через очередь. Qsort. Перестановки со смещением.
Пиши всё пузырьком и не парься.

gref пишет:

попробуй не 1/3 а 1./3

Молодца.... а я думал, что я тут один такой умный и скромный....

. показывает систему счисления...

_CoHuK_ пишет:

gref пишет:

попробуй не 1/3 а 1./3

Молодца.... а я думал, что я тут один такой умный и скромный....

. показывает систему счисления...

я смущен ) ) )