Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 10.12.2012, 21:05   #1 (permalink)
cережка
Новичок
 
Регистрация: 10.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Unhappy Через 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 и вывод результатов вычислений на экран.
cережка вне форума   Ответить с цитированием

Старый 10.12.2012, 21:05
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

На форуме часто создаются аналогичные темы, вот аналоги вашей

BeWeather - прогноз погоды на 7 дней
для тех кто не верит что это сделал Я!

Старый 11.12.2012, 13:26   #2 (permalink)
макс122
Member
 
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

на языке паскаль помогите мне тоже такое нужно...
макс122 вне форума   Ответить с цитированием
Старый 11.12.2012, 15:12   #3 (permalink)
макс122
Member
 
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

парни помогите мне уже завтра сдавать а я не одной не понимаю...
макс122 вне форума   Ответить с цитированием
Старый 11.12.2012, 15:14   #4 (permalink)
Валерий
Member
 
Аватар для Валерий
 
Регистрация: 11.04.2007
Адрес: Санкт-Петербург
Сообщений: 40,327
Записей в дневнике: 73
Сказал(а) спасибо: 885
Поблагодарили 2,792 раз(а) в 431 сообщениях
Репутация: 186066
По умолчанию

Цитата:
Сообщение от макс122 Посмотреть сообщение
парни помогите мне уже завтра сдавать а я не одной не понимаю...
Тут помогут разобраться ТЫЦ...
__________________
Пингвин птица гордая, пока не пнёшь - не полетит.
Валерий вне форума   Ответить с цитированием
Старый 11.12.2012, 15:27   #5 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от cережка Посмотреть сообщение
Задание 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.
Léon вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 11.12.2012, 16:47   #6 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от cережка Посмотреть сообщение
Задание 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.
Léon вне форума   Ответить с цитированием
Старый 11.12.2012, 17:14   #7 (permalink)
макс122
Member
 
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

помогите еще 2 пожалустай очень нужно...
макс122 вне форума   Ответить с цитированием
Старый 11.12.2012, 17:27   #8 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Цитата:
Сообщение от cережка Посмотреть сообщение
задание 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.
Léon вне форума   Ответить с цитированием
Старый 11.12.2012, 17:30   #9 (permalink)
макс122
Member
 
Регистрация: 11.12.2012
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

и где вычислить тоже буду очень благодарен..
макс122 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 18:28.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.