Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей.
Здесь обсуждаются безопасность, программирование, технологии и многое другое.
Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
 |
|

26.04.2008, 21:02
|
|
Новичок
Регистрация: 14.03.2008
Сообщений: 28
Провел на форуме: 39192
Репутация:
2
|
|
Сообщение от De-visible
Могу решить ICQ#: 223333575....()
я так понел что не бесплатно?
De-visible: ты напиши точнее задание, а то не все понятно...я поэтому попросил в аську постучать...
Последний раз редактировалось De-visible; 27.04.2008 в 12:41..
|
|
|

27.04.2008, 15:18
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме: 4037638
Репутация:
1821
|
|
Сообщение от cmpec
вот зараза у нас курсовая по экселю а я его уже не открывалс класса года так 4 все забыл может мне кто нить поможит?
Что именно тебя интересует?
|
|
|

27.04.2008, 19:40
|
|
Новичок
Регистрация: 14.03.2008
Сообщений: 28
Провел на форуме: 39192
Репутация:
2
|
|
Порядок выполнения контрольной работы:
1. Прочитать текст задания.
2. Определить исходные данные и результат.
3. Придумать тестовый пример (20 элементов массива) и получить для него результат.
4. Задать имена переменных, процедур и функций.
5. Разработать блок-схему основной программы.
6. Разработать блок-схемы подпрограмм.
7. Написать программу и отладить программу.
8. Вывести в окне Watch промежуточные значения
9. Выполнить программу для тестового примера в пошаговом режиме.
10. Оформить отчет.
Требования к выполнение контрольной работы:
1. Каждый пункт меню и вывод текста меню выполняется в подпрограмме.
2. Если в начале работы сразу выбирается пункт ниже первого (массив не задан), получить массив генерацией его элементов в интервале от –100 до 100
3. После выполнения каждого пункта меню (кроме последнего), программа снова возвращается в меню.
4. Вычисление суммы, количества, произведения, минимума или максимума выполняется с помощью функции.
5. При сдаче контрольной работы преподавателю, вывести промежуточные результаты в окне Watch в пошаговом режиме.
Текст задания
Создать программу, обеспечивающую работу следующих пунктов меню.
1. Ввод массива целых чисел.
2. Вывод массива в строку.
3. Найти максимальный элемент. Заменить все положительные элементы, кратные пяти на максимальный элемент.
4. Конец работы.
Ну вот как бы весь текст контрольной
|
|
|

27.04.2008, 20:38
|
|
Новичок
Регистрация: 26.04.2008
Сообщений: 11
Провел на форуме: 15580
Репутация:
0
|
|
Построить график функции f(x) = cos(x)∙ctgx. Вот и вся задача ... Поверьте и более сложные решал, но как это незнаю эх говрили мне учи математику 
|
|
|

27.04.2008, 20:56
|
|
Banned
Регистрация: 06.01.2008
Сообщений: 904
Провел на форуме: 4037638
Репутация:
1821
|
|
Сообщение от 47726573684e
Построить график функции f(x) = cos(x)∙ctgx. Вот и вся задача ... Поверьте и более сложные решал, но как это незнаю эх говрили мне учи математику 
Здесь про графику написано  [я пока занят]
Графика в паскале
Графика в паскале{Вставки асм}
Последний раз редактировалось De-visible; 27.04.2008 в 20:59..
|
|
|

28.04.2008, 10:01
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме: 3660186
Репутация:
905
|
|
Omg, вы тут уже несколько страниц решаете простое квадратное уравнение :-d
Garfi, хоть ты и клянешься, что математику хорошо знаешь, эта ссылка (http://www.math.ru/dic/37) + элементарные размышления скажут тебе, что /2*a - неверное переложение формулы на код языка програмирования. Верные - /(2*a), /2/a, /a/2.
Код:
program Sqrt1;
var
A, B, C, D, X1, X2 : Real;
begin
Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
Readln (A, B, C);
D := B * B - 4 * A * C;
if A <> 0 then begin
if D < 0 then
Writeln ('Kornei net! ')
else begin
X1 := (-B + sqrt (D)) / 2 / A;
X2 := (-B - SQRT (D)) / 2 / A;
if X1 <> X2 then
writeln ('X1=', X1 : 8 : 3, ' X2=', X2 : 8 : 3)
else
writeln (' Koren ODIN ','X=',X2:8:3)
end;
end else
writeln('Reshenii net');
//Readln;
end.
Смотрите код внимательно, че вы тут написали. Если а не равно нулю, выполнить код, иначе написать "Решений нет"? о_О Если х1 = х2, то корень один? Верно, только не так надо, а сравнивая дискриминант с нулем. Но это мелочь.
Не совсем вижу смысл обрабатывать введенные данные при а = 0, ибо это уже не квадратное уравнение, а линейное, но раз уж просите, то вот код, и без комплексных чисел.
Код:
program Sqrt1;
var
A, B, C, D, X1, X2 : Real;
begin
Writeln ('Vvedite koificenti kvodratnogo uravnenia ');
Readln (A, B, C);
///writeln (a : 8 : 3, ' * x^2 ', b : 8 : 3, ' * x ', c : 8 : 3);
if A <> 0 then begin
D := B * B - 4 * A * C;
if D < 0 then
Writeln ('Kornei net! ')
else if D > 0 then begin
X1 := (-B + sqrt (D)) / 2 / A;
X2 := (-B - SQRT (D)) / 2 / A;
writeln ('X1=', X1 : 8 : 3, ' X2=', X2 : 8 : 3);
end
else
writeln ('X = ', (-B / 2 / A) : 8 : 3);
end else
writeln ('Lineinoe uravnenie. Koren X = ', (-C / B) : 8 : 3);
//Readln;
end.
De-visible:Уравнение - я привел самый простой пример
Последний раз редактировалось De-visible; 29.04.2008 в 00:54..
|
|
|

28.04.2008, 10:24
|
|
Новичок
Регистрация: 26.04.2008
Сообщений: 11
Провел на форуме: 15580
Репутация:
0
|
|
Да знаю я графику ! Блин Я незнаю как f(x) = cos(x)∙ctgx нарисовать, ладно бы просто синусойда или косинусойда была а тут хз .... Ну лана помучу сам , извиняюсь за беспокойство....
|
|
|

28.04.2008, 10:27
|
|
Познавший АНТИЧАТ
Регистрация: 27.04.2007
Сообщений: 1,044
Провел на форуме: 3660186
Репутация:
905
|
|
47726573684e, попробуй преобразовать выражение, например, расписать котангенс
|
|
|

28.04.2008, 14:18
|
|
Новичок
Регистрация: 14.03.2008
Сообщений: 28
Провел на форуме: 39192
Репутация:
2
|
|
хватит флудить в моей теме )
лучше мне б с контрольной помогли
De-visible:почему флуд? тема задачи по паскале
Последний раз редактировалось De-visible; 28.04.2008 в 20:17..
|
|
|

28.04.2008, 14:28
|
|
Новичок
Регистрация: 26.04.2008
Сообщений: 12
Провел на форуме: 7573
Репутация:
2
|
|
Здравствуйте, помогите пожалуйста с задачей по двумерному массиву:
Дан двумерный массив целых чисел из 4 столбцов и 3 строк. Найти сумму элементов стоящих до первого нуля. Просмотр вести по строкам. Заменить элементы, стоящие после последнего нуля на эту сумму. Вывести массив по строкам до и после замены.
|
|
|
|
 |
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|