10.12.2012, 21:05 | #1 (permalink) |
Новичок
Регистрация: 10.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Через 5 дней сдавать, а я не одной не сделал и незнаю как
Неположительным? Кратным 5? Большим 2? Степенью 3? задание 5. Составить программу, которая определяет для двух вводимых натуральных чисел M и N количество их общих делителей (не считая 1). Вычислить максимальную сумму квадратов натуральных чисел, кратных 3 (3, 6, 9…), меньшую 3000 Замечание: Провести решение двумя способами – используя цикл с предусловием WHILE_DO и цикл с постусловием REPEAT_UNTIL. Задание 3. Вычислить для треугольника ABC все стороны, все углы (в градусной мере), периметр и площадь, если известны: стороны AC, BC и угол BAC. Замечание: Программа должна содержать ввод известных величин с клавиатуры, вычисление неизвестных с использованием раздела Function и вывод результатов вычислений на экран. |
10.12.2012, 21:05 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
На форуме часто создаются аналогичные темы, вот аналоги вашей BeWeather - прогноз погоды на 7 дней для тех кто не верит что это сделал Я! |
11.12.2012, 15:14 | #4 (permalink) |
Member
Регистрация: 11.04.2007
Адрес: Санкт-Петербург
Сообщений: 40,320
Записей в дневнике: 73
Сказал(а) спасибо: 885
Поблагодарили 2,792 раз(а) в 431 сообщениях
Репутация: 186775
|
Тут помогут разобраться ТЫЦ...
__________________
Пингвин птица гордая, пока не пнёшь - не полетит. |
11.12.2012, 15:27 | #5 (permalink) | |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Цитата:
Код:
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. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
11.12.2012, 16:47 | #6 (permalink) | |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Цитата:
Код:
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. |
|
11.12.2012, 17:27 | #8 (permalink) | |
С# - learn or die
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
|
Цитата:
Код:
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. |
|
11.12.2012, 17:30 | #9 (permalink) |
Member
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
и где вычислить тоже буду очень благодарен..
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|