Технический форум - Через 5 дней сдавать, а я не одной не сделал и незнаю как

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Через 5 дней сдавать, а я не одной не сделал и незнаю как

Задание 4. Ввести некоторое целое число N. Определить, является ли оно числом:
Неположительным? Кратным 5? Большим 2? Степенью 3?

задание 5. Составить программу, которая определяет для двух вводимых натуральных чисел M и N количество их общих делителей (не считая 1).

Вычислить максимальную сумму квадратов натуральных чисел, кратных 3 (3, 6, 9…), меньшую 3000
Замечание: Провести решение двумя способами – используя цикл с предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL.

Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC.
Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран.

на языке паскаль помогите мне тоже такое нужно...

парни помогите мне уже завтра сдавать а я не одной не понимаю...

Цитата:

Сообщение от макс122 (Сообщение 832019)

парни помогите мне уже завтра сдавать а я не одной не понимаю...

Тут помогут разобраться ТЫЦ...

Цитата:

Сообщение от cережка (Сообщение 831747)

Задание 4. Ввести некоторое целое число N. Определить, является ли оно числом:Неположительным?Кратным 5?Большим 2?Степенью 3?

Код:

Program Z_4;

var

 N:Integer;

 begin

 write('Введите N:');

 readln(N);

 if N<0 then

 writeln('Неположительное')

 else

 writeln('Положительное или ноль');

 if (N mod 5 )=0 then

 writeln('Кратно 5')

 else

 writeln('Не кратно 5');

 if N>2 then

 writeln('Больше 2х')

 else

 writeln('Не больше 2х');

 repeat

 if (N mod 3)<>0 then

 begin

 writeln('Не степень 3');

 break;

 end;

 N:=N div 3;

 until

 N=1;

 if N=1 then

 writeln('Степень 3');

 readln;

 end.

Цитата:

Сообщение от cережка (Сообщение 831747)

Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC.
Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран.

Код:

var 

 a, b, c : Real; 

 alpha, betta, gamma : Real; 

 P, S : Real; 

function GrdToRad(angle : Real) : Real; 

begin 

 GrdToRad := angle * Pi / 180; 

end; 

function RadToGrd(angle : Real) : Real; 

begin 

 RadToGrd := angle * 180 / Pi; 

end; 

function ArcSin(angle : Real) : Real; 

begin 

 ArcSin := ArcTan(angle / Sqrt(1 - angle*angle)); 

end;

function FindAngle(a, alpha, b : Real) : Real;

begin 

 FindAngle := ArcSin(b * Sin(alpha) / a); 

end; 

function FindStorona(a, alpha, betta : Real) : Real;

begin 

 FindStorona := a * Sin(betta) / Sin(alpha); 

end;

begin 

 Write('введите сторону AC = '); ReadLn(b); 

 Write('введите сторону BC = '); ReadLn(a); 

 Write('введите угол в градусах BAC = '); ReadLn(alpha); 

 alpha := GrdToRad(alpha); 

 betta := FindAngle(a, alpha, b); 

 gamma := Pi - alpha - betta; 

 c := FindStorona(a, alpha, gamma); 

 P := a + b + c; 

 S := a*b*Sin(gamma)/2; 

 WriteLn('Строны ', a:0:3, ' ', b:0:3, ' ', c:0:3); 

 WriteLn('Углы ', RadToGrd(alpha):0:3, ' ', RadToGrd(betta):0:3, ' ', RadToGrd(gamma):0:3); 

 WriteLn('Периметр ', P:0:3); 

 WriteLn('Площадь ', S:0:3); 

readln;

end.

помогите еще 2 пожалустай очень нужно...

Цитата:

Сообщение от cережка (Сообщение 831747)

задание 5. Составить программу, которая определяет для двух вводимых натуральных чисел M и N количество их общих делителей (не считая 1).

Код:

Program Z_2;

var m,n,i,c,y: integer; 

begin 

write('m = '); 

readln(m); 

write('n = '); 

readln(n); 

write('Общие делители : '); 

for i := 2 to abs(m - n) div 2 do 

if (m mod i = 0) and (n mod i = 0) then 

begin 

write(i, ' '); 

c := (-1) * i; 

write(c, ' '); 

y:=y+1; 

end; 

if y = 0 then 

writeln('Общих делителей нет'); 

writeln; 

writeln('Всего общих делителей, кроме 1:',2*y-2); 

readln; 

end.

и где вычислить тоже буду очень благодарен..