Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Delphi > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 05.12.2006, 01:22   #1
Jasper
 
Регистрация: 29.11.2006
Сообщений: 3
Восклицание подпрограмма в Борланд Паскаль

1....нужно составить программу нахожления найменьшего общего кратного трех натуральных чисел(Подпрограмма)
___________________________________ _________________________
2..... Найти произведение значений функции, определенной на отрезке [-5,5] с шагом 0,5 : У=X - 10 sinX +|X^4 - X^5|
(если вдруг кто не знает, хотя сомневаюсь в этом, то X^4 - - Х в четвертой степени)
___________________________________ _____________________________

Последний раз редактировалось Jasper; 05.12.2006 в 01:27.
Jasper вне форума Ответить с цитированием
Старый 05.12.2006, 20:40   #2
SuperVisor
Павел Сергеевич
Форумчанин
 
Регистрация: 05.11.2006
Сообщений: 665
По умолчанию

1.Сделано для трех неизменяемых в процессе вычисления переменных
Код:
program doit;
var
 a,b,c:integer;
function NOK3(a,b,c:integer):integer;
var
 a1,b1,c1,x,y: integer;
begin
  a1:=a;
 b1:=b;
 while a1<>b1 do if a1>b1 then a1:=a1-b1 else b1:=b1-a1;
 x:=a div a1;
 y:=b div a1;
 b1:=x*y*a1;
 a1:=b1;
  c1:=c;
  while c1<>b1 do if c1>b1 then c1:=c1-b1 else b1:=b1-c1;
 x:=a1 div c1;
 y:=c div c1;
 NOK3:=x*y*c1;
end;
begin
readln(a,b,c);
Writeln(NOK3(a,b,c));
end.
2:
Код:
program find;
var
 Values: array[1..20] of real;
  a,c,x: real;
  i: byte;
begin
 readln(x);
  i:=1;
  c:=-5;
  while c<>5 do
  begin
   a:=x*x*x*x-x*x*x*x*x;
    if a<0 then a:=-1*a;
   Values[i]:=x-10*Sin(x)+a;
   inc(i);
    c:=c+0.5;
  end;
  c:=1;
  for i:=1 to 20 do
   c:=c*Values[i];
 writeln(c:0:4);
end.
Познавая других, мы познаем себя.
С'est la vie...

Последний раз редактировалось SuperVisor; 05.12.2006 в 21:26. Причина: Добавления
SuperVisor вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
подпрограмма-процедура в Pascal Танюсик Помощь студентам 6 21.04.2008 06:28
С++.Массив и подпрограмма функции SkyDreamer Помощь студентам 0 23.11.2007 20:45
Простые лабораторные работы на борланд делфи 7 (оплата веб мани) Eternity Фриланс 10 08.06.2007 07:50
Простые лабораторные работы на борланд делфи 7 (оплата веб мани) Eternity Помощь студентам 1 06.06.2007 12:36


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS