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

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

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

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

Ответ
 
Опции темы
Старый 05.12.2006, 02: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 в 02:27.
Jasper вне форума   Ответить с цитированием
Старый 05.12.2006, 21: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 в 22:26. Причина: Добавления
SuperVisor вне форума   Ответить с цитированием
Ответ

Опции темы

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

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

Быстрый переход

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


13:18.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.