[Помогите!] Решить лабораторную.

[IceCloud]

Здравствуйте... Вот такая проблема.. долго болел ....
а Завтра надо сдать две лабы ... есть программа: условие:

Цитата: По заданным коэффициентам уравнения прямой линии на плоскости (Ах + By + С = 0) должен вычисляться угол (в градусной мере, образуемый этой прямой с положительным направлением оси ОХ (полагается, что A неравно О, В неравно 0).

ет была 1я лаба. я ей сделал.. потом её апгрейдил по условию

Цитата: Модифицировать полученную при выполнении предыдущей работы программу таким образом, чтобы при решении задачи на ПК обеспечивалась при необходимости проверка вводимых исходных данных на допустимость и учитывался случай В = 0 при А неравно 0 и определялось, проходит ли заданная коэффициентами уравнения прямая через начало координат,

в итоге я получил что то типо такого

Program Lab3;
Var a,b,c,z,u,g:real;
Begin
	Write('лаб работа 3');
	Write(' выполнил студент группы ');
	Writeln(' фио');
	Write('введите a,b,c:'); Read(a,b,c);

	If (a=0) or (b=0) then writeln('ошибка переменных')
	else begin
        If (c=0) then writeln('прямая проходит через начало координат');
	z:=(-1)*(a/b);
	Writeln('вычислим угол');
	u:=arctan(z);
	g:=u*(180/pi);
	Writeln('u= ',u:3:3,'  g= ',g:3:3);
	Readln;
		end;
End.

помогите сделать на основе этой проги две другие

Цитата: Модифицировать полученную при выполнении работы №3 про-грамму таким образом, чтобы на ПК автоматически осуществлялись много-кратное "решение" задачи при различных значениях одного из исходных данных, предварительно введенных в оперативную память ПК. Численные результаты должны запоминаться в памяти в виде одномерного массива (исходная переменная, ряд значений которой задается для многократного решения задачи, определяется студентом самостоятельно). Результат вывести в виде таблицы.

и затем после этой

Цитата: Модифицировать полученную при выполнении работы №5 про-грамму таким образом, чтобы на ПК автоматически осуществлялись много-кратные решения задачи при изменении значений двух исходных переменных (для каждой пары заданных значений). Численные результаты должны быть получены в виде двумерного массива данных (исходные переменные, значения которых должны изменяться при многократном решении задачи, определяются студентом самостоятельно). Вывод по-прежнему в виде таблицы.

все работы на Turbopascal делаются...

зы. как наберу 10 сообщений отблагодарю ...