Автор |
Сообщение |
bugaga.hz
Репутация: 0
Возраст: 19
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 271
Стаж: 2 года 3 месяца
|
[] 01.04.2007 14:38 Курсовик по информатике |
|
|
Курсовик по информатике и программированию "Организация многооконного интерфейса". Препод - Бариков.
Может мне кто и с этим поможет?
1.Организация многооконного интерфейса
2.Вычисление суммы ряда
3.Совместить
с первым я есчо кое как разобраЦЦа могла бы...
со вторым .. теоретически понимаю , но там думать нада))
третье себе не представляю как , потому что не объясняли =\
Помогите, плиз!
*бутылка пива гарантируеЦЦо =)
_________________ В раю лучше климат, но в аду лучше компаниЯ
|
|
Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
[] 01.04.2007 19:13 |
|
|
1) Есть такая умная функция - windows. Она выделяет определённую область экранного пространства. Обрати на неё внимание.
2) Всё просто. Организуешь бесконечный цикл. В начале цикла ставишь условие выхода. И шуруешь на полную катушку
3) Просто сделай, например, так, чтобы в центральном окошке шла иллюстрация всего процесса вычисления, в левом, например, иллюстрация текущего шага, а в нижнем, скажем, была информация об авторе грандиозной программы
|
|
Вернуться к началу |
|
|
bugaga.hz
Репутация: 0
Возраст: 19
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 271
Стаж: 2 года 3 месяца
|
[] 01.04.2007 19:35 |
|
|
Sovie
теоретически то я все это понимаю как делать, а вот на практике не знаю
я понимаю как можно сделать многооконный интерфейс
я понимаю как сделать цикл, но не понимаю как вычислить эту формулу
я понимаю что должно быть в этих окнах, но я не понимаю как прикрутить туда это вычисление
_________________ В раю лучше климат, но в аду лучше компаниЯ
|
|
Вернуться к началу |
|
|
Pofig
Репутация: +13
Возраст: 21
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 1648
Стаж: 3 года 8 месяцев
|
[] 02.04.2007 13:53 |
|
|
sparker писал(а): Препод - Бариков.
Хороший преподователь.
В принципе, я ему на первом курсе тоже сдавал курсовик с многооконным интерфейсом, у меня правда задание было с матрицами связано. Если хочешь - могу прислать.
sparker писал(а):
я понимаю как сделать цикл, но не понимаю как вычислить эту формулу
Хм? Не очень понял вопрос, можешь уточнить? Именно сам расчет формулы? Возведение в степень или факториал смущают?
_________________ "инженер - эт мужик, который вражеские здания захватывать может!"(с)bash.org
|
|
Вернуться к началу |
|
|
bugaga.hz
Репутация: 0
Возраст: 19
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 271
Стаж: 2 года 3 месяца
|
[] 02.04.2007 17:42 |
|
|
Цитата: В принципе, я ему на первом курсе тоже сдавал курсовик с многооконным интерфейсом, у меня правда задание было с матрицами связано. Если хочешь - могу прислать. ну давай, может хоть чо нибудь поможет мне ))
Цитата: Хм? Не очень понял вопрос, можешь уточнить? Именно сам расчет формулы? Возведение в степень или факториал смущают?
да, именно, в прошлом семестре нас же этому обучали как циклы строить, только там пример намного проще был, а как вычислять сумму эту, факториалы я вапще не понимаю((
_________________ В раю лучше климат, но в аду лучше компаниЯ
|
|
Вернуться к началу |
|
|
Norsk
Репутация: +10/–2
Возраст: 23
Гороскоп:
Пол:
Откуда: Тосно
Сообщения: 1570
Стаж: 3 года 1 месяц
|
[] 02.04.2007 18:23 |
|
|
А тут не нужно вычислять факториалы.
Можно заметить что это сумма является суммой геометрической прогрессии. А раз так то для вычисления очередного слагаемого не нужно вычислять каждый раз эту формулу, можно обойтись постоянным домножением слагаемых на постоянный множитель
Краткий вывод формулы тут (прошу прощения за почерк ):
В итоге вычисление будет таким.
A(n+1) = A(n)*q(n)
где A(n) текущее слагаемое
q(n) - множитель вывод которого каписан моими каракулями
Я думаю алгоритм теперь прозрачен
(вроде нигде не напутал )
_________________ Всё выше написанное - считать моим личным мнением!
|
|
Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
[] 02.04.2007 18:50 |
|
|
Вот как вижу это я. Простите за кривой код. Я Pascal не использовал уже год.
Код: {$N+}
function Factorial(N : Byte) : Double;
var
i : Byte;
Result : Double;
begin
i := 1;
Result := 1;
repeat
Result := Result * i;
Inc(i);
until not ( i <= N);
Factorial := Result;
end;
function Pow(x : Double; N : Byte) : Double;
var
i : Byte;
Temp : Double;
begin
Temp := 1;
if N = 0 then
Pow := 1
else
for i := 1 to n do
Temp := x * Temp;
Pow := Temp;
end;
function GetCos(x : Double) : Double;
const
N = 50;
var
i : Byte;
Temp : Double;
begin
Temp := 0;
for i := 1 to N do
Temp := Pow(-1, i) * Pow(x, 2*i) / Factorial(2*i) + Temp;
GetCos := 1 + Temp;
end;
begin
WriteLn('cos(0) = ', GetCos(0));
WriteLn('cos(0.5) = ', GetCos(0.5));
WriteLn('cos(1) = ', GetCos(1));
ReadLn;
end.
Добавлено спустя 2 минуты 59 секунд:
Разумеется, всё в радианах.
А мистическое {$N+} - ключ компилятора, который позволяет делать штуки типа Double Type Variable := Value;
|
|
Вернуться к началу |
|
|
Norsk
Репутация: +10/–2
Возраст: 23
Гороскоп:
Пол:
Откуда: Тосно
Сообщения: 1570
Стаж: 3 года 1 месяц
|
[] 02.04.2007 19:12 |
|
|
По моему алгоритму текст будет примерно такой:
Код:
program F;
const eps = 0.0001
var n:integer;
s,an,x:real;
begin
writeln('Введите х');
readln (x);
an:=1;
s:=1; n:=0;
while abs(an)>eps do begin
an:=an*sqr(x)*(-1)/(2*n+1)/(2*n+2);
s:=s + an;
inc(n);
end;
writeln('cos(x)= ',x);
readln;
end.
_________________ Всё выше написанное - считать моим личным мнением!
|
|
Вернуться к началу |
|
|
Pofig
Репутация: +13
Возраст: 21
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 1648
Стаж: 3 года 8 месяцев
|
[] 02.04.2007 20:28 |
|
|
Norsk
Мозг!
sparker
Прикрепил к сообщению. Может поможет... Ну или хоть описание модуля CRT, если его не перестали требовать, возьмешь.
Описание: Курсовик по информатике
ki.rar
[23,14 KB] Скачано 45 раз(а)
|
_________________ "инженер - эт мужик, который вражеские здания захватывать может!"(с)bash.org
|
|
Вернуться к началу |
|
|
bugaga.hz
Репутация: 0
Возраст: 19
Гороскоп:
Пол:
Откуда: Санкт-Петербург
Сообщения: 271
Стаж: 2 года 3 месяца
|
[] 02.04.2007 22:10 |
|
|
это С# =)
_________________ В раю лучше климат, но в аду лучше компаниЯ
|
|
Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
[] 02.04.2007 22:15 |
|
|
Да, Norsk прикольную штуку придумал. Откуда ты узнал про такое представление?
|
|
Вернуться к началу |
|
|
Norsk
Репутация: +10/–2
Возраст: 23
Гороскоп:
Пол:
Откуда: Тосно
Сообщения: 1570
Стаж: 3 года 1 месяц
|
|
Вернуться к началу |
|
|
xpol
Репутация: 0
Возраст: 20
Гороскоп:
Пол:
Сообщения: 20
Стаж: 1 год 7 месяцев
|
[] 03.04.2007 11:14 |
|
|
В школе? случайно не ТСШ №1, которую я закончил в 2005 году? =)
Лично у меня это на матане на первом курсе было. Преподаватель - Макарова.
Бровин вел у меня 10-11 класс. А у Weman'a с 7-го класса - у него информатический класс был, а у меня экономический, откуда я потом сбежал после 9-го в информатический к Weman'у =)). Основы программирования, заложенные Бровином на уроках(паскаль) очень пригодились при осваивании Си.
_________________ MESS WITH THE BEST -
DIE LIKE THE REST
|
|
Вернуться к началу |
|
|
Norsk
Репутация: +10/–2
Возраст: 23
Гороскоп:
Пол:
Откуда: Тосно
Сообщения: 1570
Стаж: 3 года 1 месяц
|
[] 03.04.2007 11:51 |
|
|
xpol писал(а): Лично у меня это на матане на первом курсе было. Да это у всех на матане было
xpol писал(а): В школе? случайно не ТСШ №1, которую я закончил в 2005 году? =) Ага. Я её закончил в 2001. Информатику нам преподавали с первого класса (с третьего класса добавились экономика и иностранный). Это была какая-то инновационная образовательная программа под эгидой ЛИАПа, из-за чего долгое время в нашей школе подобные классы с углубленным изучением информатики назывались "пилотные"
А Бровину большое спасибо за эти "основы" (по большому счету паскаль в школе нам давался почти по его лекциям по ПЯВУ)
_________________ Всё выше написанное - считать моим личным мнением!
|
|
Вернуться к началу |
|
|
Sovie
Репутация: +20/–1
Пол:
Откуда: Санкт-Петербург
Сообщения: 787
Стаж: 2 года 7 месяцев
|
[] 03.04.2007 20:05 |
|
|
Norsk писал(а): Информатику нам преподавали с первого класса
А у меня вот не было информатики в школе... Только к концу появилось её подобаие. Ни окаком программировании речи не идёт, понятное дело... И о сотрудничестве с ЛИАПом тоже... Везёт вам, ребята.
|
|
Вернуться к началу |
|
|
|
|