Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 22, средняя оценка - 4.77
Izanagir
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 6
#1

Функция min(x, y) - Turbo Pascal

30.01.2011, 13:42. Просмотров 3342. Ответов 12
Метки нет (Все метки)

Люди просьба помогите... Дали мне задачи в университете, не могу сам решить, задачи вроде простые но знаний у меня не хватает


Функции
1. Опишите функцию min(x, y), возвращающую значение меньшего из двух параметров x и y. Используйте ее для вычисления меньшего из трех значение переменных a, b и c.
2. Даны координаты вершин двух треугольников на плоскости. Определить, какой из них имеет больший периметр, и напечатать ее значение.

Процедуры
3. Стоимость проезда на автобусе за расстояние меньше 8 км равняется 34 рубля. За каждый следующий километр стоимость увеличивается на 3 рубля. Напишите функцию для определения стоимости проезда k км и процедуру, определяющую наименьшее число билетиков по 10, 4 и 1 р., которые нужно приобрести на эту поездку. Используйте их в программе для терминала продажи билетов: на входе расстояние поездки, на выходе — количество билетов.
Рекурсия
4. Описать рекурсивную функцию gcd(m,n) для вычисления наибольшего общего делителя двух натуральных чисел m и n (используйте алгоритм Евклида). Определить, являются ли два натуральных числа взаимно простыми.
Циклы
5. Пользователь вводит два числа A и B. Вывести на дисплей все целые числа на отрезке [A, B].
6. Пользователь вводит 10 чисел. После ввода последнего числа вывести сообщение является ли введенная последовательность возрастающей.

Добавлено через 29 секунд
Любому кто поможет очень сильно благодарен буду...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2011, 13:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функция min(x, y) (Turbo Pascal):

Функция для вычисления выражения (min(c+d,m,k)+min(k,c,m))/(3+min(k,d-m,c+m))
Даны значения c d m k . Напишите функцию min для вычисления выражения...

Определить значение z=min(a,b,2c)*min(2a+b,2b,c), где min(x,y,z), есть минимальное из чисел x,y,z
помогите написать программу .определить значение z=min(a,b,2c)*min(2a+b,2b,c),...

18. Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x, z), min (z, d)
Даны различные действительные числа x, y, z, d. Найти max (min (x, y), min (x,...

Дано действительные числа a, b. Вычислить x = min (a, b), y = min (ab, a + b), min (x + y в кубе, 3.14)
Дано действительные числа a, b. Вычислить x = min (a, b), y = min (ab, a + b),...

Процедура: Даны три числа a,b,c. Вычислить (max(a,b)+min(a,c))/(max(b,c)*min(a,b))+max(min(a,b),min(b,c))
Даны три числа a,b,c. Вычислить...

Подпрограммы: Получить u = min(a, b), v = min(ab, a+b), min(u+v(в квадрате), 3,1415926)
Даны действительные числа a, b. Получить u = min(a, b), v = min(ab, a+b),...

12
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
30.01.2011, 13:44 #2
Цитата Сообщение от Izanagir Посмотреть сообщение
Дали мне пару здач
и 1,2,3,4,5,6.....
0
Izanagir
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 6
30.01.2011, 13:46  [ТС] #3
Да моя ошибка, просто прижало сильно... От этого зависит останусь в универе или нет
0
Puporev
Модератор
54148 / 41781 / 28887
Регистрация: 18.05.2008
Сообщений: 98,330
30.01.2011, 13:46 #4
И что поражает, задачи просто детские... И нафига учиться в универе, если такое не в силах решить?
0
Izanagir
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 6
30.01.2011, 13:55  [ТС] #5
Решить впринципе смог бы, но затратил бы пару суток. А времени мало, решил попросить помощи

Добавлено через 6 минут
То есть помощи я тут получить не смогу?
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
30.01.2011, 14:04 #6
№ 5
Pascal
1
2
3
4
5
6
7
8
program EvGeN;
var
 a, b, i: integer;
begin
 readln(a, b);
  for i:=a to b do
   writeln(i);
end.
1
Izanagir
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 6
30.01.2011, 14:22  [ТС] #7
Премного благодарен тебе!!!

Добавлено через 15 минут
Первую задачу я решил
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5115 / 1553 / 950
Регистрация: 23.01.2011
Сообщений: 3,179
Завершенные тесты: 1
30.01.2011, 14:36 #8
№ 6 ( не уверен 4то правильно )
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program EvGeN;
const
 n = 10;
var
 a: array[-100..100] of integer;
 i, j: integer;
begin
  for i:= 1 to n do
   begin
    read(a[i]);
   end;
  if a[i]>a[i+1] then
   begin
    write('последовательно');
   end;
end.
2
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
30.01.2011, 14:43 #9
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program Dekio;
const
n=10;
var
arr :array[1..n] of integer;
i :integer;
bool :boolean;
begin
bool:=true;
writeln('Ââåäèòå ',n,' ÷èñåë');
for i:=1 to n do
readln(arr[i]);
for i:=1 to n-1 do
if arr[i]>arr[i+1] then
bool:=false;
if bool then
writeln('ÂîçðГ*Г±ГІГ*ГѕГ№Г*Гї ïîñëåäîâГ*òåëüГ*îñòü')
else
writeln('ГЌГҐ âîçðГ*Г±ГІГ*ГѕГ№Г*Гї ïîñëåäîâГ*òåëüГ*îñòü');
end.
2
Daemon025
380 / 328 / 159
Регистрация: 06.12.2010
Сообщений: 894
30.01.2011, 14:44 #10
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program EvGeN;
const
 n = 10;
var
 a: array[-100..100] of integer;
 i, j: integer;
 posl:boolean;
begin
  posl:=true;
  for i:= 1 to n do
    read(a[i]);
  for i:=1 to n-1 do
  if a[i]>a[i+1] then posl:=false;
 
  if posl=true then write('последовательно')
                else write('последовательности нет');
end.
1
Izanagir
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 6
30.01.2011, 15:05  [ТС] #11
Всем благодарность!!! Просьба ток помечать на какой вопрос ответ пишете ><

Добавлено через 8 минут
Просьба проверьте четвертую задачу

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a,b,answer:integer;
function gcd(m,n:integer):integer;
var modulo: integer;
begin
 modulo:=m mod n;
 if modulo = 0 then
 gcd:=n
 else
 gcd:=gcd(n, modulo)
 end;
begin
 writeln('Введите два числа:');
 readln(a, b);
 answer := gcd(a,b);
 if answer=1 then
 writeln('Числа взаимно простые поэтому ');
 writeln('наибольший общий делитель',answer);
end.
Добавлено через 8 минут
Почти закончили общими усилиями. Остались задачи номер 2 и 3
0
Daemon025
380 / 328 / 159
Регистрация: 06.12.2010
Сообщений: 894
30.01.2011, 15:11 #12
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program Daemon025;
//------------------------------------------------------------------------------
Function gcd(a,b:integer):integer;
Begin
    if b=0 then gcd:=a
           else gcd:=gcd(b,a mod b);
End;
//------------------------------------------------------------------------------
 
begin
  Write('Greatest common divisior (GCD) is ',gcd(12,3));
  Readln;
end.
0
Izanagir
0 / 0 / 0
Регистрация: 30.01.2011
Сообщений: 6
30.01.2011, 16:34  [ТС] #13
Не я проверил нормально код функционирует

Добавлено через 1 час 20 минут
Помогите плиз с 3 ей задачей
0
30.01.2011, 16:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2011, 16:34
Привет! Вот еще темы с решениями:

Процедуры и функции: Определить значение z=min(a, 2b)*min(3a-b, 2b)*min(a, 2b-1)
Определить значение z=min(a, 2b)*min(3a-b, 2b)*min(a, 2b-1), где min(x,y) –...

Даны действительные числа a, b. Получить u=min(a,b-a), y=min(ab,a+b), k=min(u+v2,3.14).
1. Здравствуйте. Даны действительные числа a, b. Получить...

Даны действительные x,y. Определить u = min(x,y), v = min(xy,x+y), z = min(u+v2, 3.14).
Тема: Подпрограммы. Процедуры и функции. Даны действительные x,y. Определить...

Одномерный массив. Если индекс Y(min) меньше 5, то заменить в исходном ряду отрицательный Y(i) на Y(min)
Задан массив y(1),y(2),...y(10). Если индекс Y(min) меньше 5, то заменить в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru