Вопрос № 167557: Здравствуйте))) Нужно написать следующую задачу: написать программу, которая выводит на экран вращающуюся спиральную линию. Направление вращение и толщина линии задается пользователем. Вот этот вариант кода работает, но не так как надо: progra...
Вопрос № 167583: здравствуйте!помогите пожалуйста с задачкой!(( 2. Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов
по строкам ...Вопрос № 167658: Помогите с задачей: Для произвольной матрицы A(M,N) сформировать одномерный массив B, k-ый элемент которого равен сумме положительных элементов k-ой строки матрицы А, используя процедуру. Определить номер строки с наименьшей суммой и вывести н...
Вопрос
№ 167.557
Здравствуйте))) Нужно написать следующую задачу: написать программу, которая выводит на экран вращающуюся спиральную линию. Направление вращение и толщина линии задается пользователем. Вот этот вариант кода работает, но не так как надо:
program Spiral; uses Graph,Crt; var gDriver, gMode: Integer; r, a, arad: Real; begin gDriver:=Detect; gMode:=0; InitGraph(gDriver, gMode, 'c:gi'); ClearDevice; SetColor(White); Line(0, GetMaxY div 2, GetMaxX, GetMaxY
div 2); Line(GetMaxX div 2, 0, GetMaxX div 2, GetMaxY); while a < 360 * 4 do begin arad := a * pi / 180; r := 2 * exp(0.2 * arad); PutPixel(Round(r*Sin(arad) + GetMaxX / 2), Round(r*Cos(arad) + GetMaxY / 2), Green); a := a + 0.1; end; while not KeyPressed do Delay(1); CloseGraph; end.
Я его модифицировал до: program Spiral; uses Graph,Crt;
Procedure InputDa
ta(var SpLine,SpDirection:integer); begin write('Введите толщину линии (1-тонкая, 3-толстая)'); read(SpLine); write('Выберите направление (1-нормальное, -1-вобратную сторону)'); read(SpDirection); end;
Procedure PrintSpiral(SpLine,SpDirection:integer); var gDriver,gMode:Integer; r,a,arad:Real; begin gDriver:=Detect; gMode:=0; InitGraph(gDriver,gMode,'c:gi'); ClearDevice; SetColor(White); Line(0,GetMaxY div
2,GetMaxX,GetMaxY div 2); Line(GetMaxX div 2,0,GetMaxX div 2,GetMaxY); while a < 360 * 4 do begin arad := a * pi / 180; r := 2 * exp(0.2 * arad); SetLineStyle(0,1,SpLine); PutPixel(Round(SpDirection*r*Sin(arad) + GetMaxX / 2), Round(r*Cos(arad) + GetMaxY / 2), Green); a := a + 0.1; end; while not KeyPressed do Delay(1); CloseGraph; end;
var l,d:integer; begin
InputData(l,d); PrintSpiral(l,d); end.
И он не выводит спираль. Как это исправить??? И как сделать спираль вращающейся???
Отправлен: 17.05.2009, 19:39
Вопрос задал: Bel9illi (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Zetasm
Здравствуйте, Bel9illi!
В приложении пример анимированной спирали. Написано в Turbo Pascal 7.1. Проверял в DOSBox 0.72.
Приложение:
Ответ отправил: Zetasm (статус: 5-й класс)
Ответ отправлен: 18.05.2009, 00:07
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 249361 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 167.583
здравствуйте!помогите пожалуйста с задачкой!((
2. Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов по строкам
Отвечает: Пупорев Юрий Борисович
Здравствуйте, Littlerocker13! Решение задачи в приложении.
Приложение:
Ответ отправил: Пупорев Юрий Борисович (статус: Специалист)
Ответ отправлен: 19.05.2009, 11:21
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 249463 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: спасибо огромное!!
Вопрос № 167.658
Помогите с задачей:
Для произвольной матрицы A(M,N) сформировать одномерный массив B, k-ый элемент которого равен сумме положительных элементов k-ой строки матрицы А, используя процедуру. Определить номер строки с наименьшей суммой и вывести на экран сумму и номер этой строки.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
