Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Turbo Pascal Даны вещественные числа x,y,z. Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread765067.html
Даны вещественные числа x,y,z. Вычислить значение выражения p=f(x, y, 12.1)/f(0, 5y, 3x)*f(1, 1, 1), где f(a,b,c)=sin(abc)-a2+b2+c2
Описать рекурсивную функцию вещественного типа Turbo Pascal
Описать рекурсивную функцию вещественного типа, вычисляющую n – й элемент последовательности чисел по формуле: x1=0, x2=1, xn=sin xn-1+2xn-2 С помощью этой функции вычислить первые 13 элементов последовательности и вывести их на экран.
Turbo Pascal Написать процедуру нахождения максимального элемента массива из 10 целых чисел Написать процедуру нахождения максимального элемента массива из 10 целых чисел. Применить данную процедуру к трем заданным массивам. https://www.cyberforum.ru/ turbo-pascal/ thread765056.html Turbo Pascal Четыре точки заданы своим координатами https://www.cyberforum.ru/ turbo-pascal/ thread765053.html
Четыре точки заданы своим координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие из них находятся на максимальном расстоянии друг от друга и вывести на печать значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры.
Turbo Pascal Посчитать количество символа ‘$’ в файле
Создать текстовый файл, содержащий 10 символов. Посчитать количество символа ‘$’ в данном файле, результат вывести на экран
Turbo Pascal Определить значение P=a^(n-1)/(n-1)! https://www.cyberforum.ru/ turbo-pascal/ thread765047.html
program Upr_3; var n,i,fakt:integer; p,a,st:real; begin repeat write(' n=');read(n); until n<>-1; write('a=');read(a); st:=1;
Turbo Pascal Склеить три произвольные строки Создать программу, которая вводит три произвольные строки, склеивает их и выводит результат на экран. https://www.cyberforum.ru/ turbo-pascal/ thread765046.html Turbo Pascal Сформируйте вектор, состоящий из maх элементов строк матрицы
Дан массив А 4 на 5 формировать массив B 5 на 4 = система ( cos(i),если i+j<4 (sin(i+j),иначе Сформируйте вектор А1,состоящий из maх элементов строк матрицы А и вектор В1,состоящий из max элементов столбцов матрицы В. Вычислить С=B1*A1т Вывести B,A1,B1,C
Turbo Pascal Найти максимальный элемент прямоугольной матрицы Найти максимальный элемент прямоугольной матрицы в заштрихованной области. https://www.cyberforum.ru/ turbo-pascal/ thread764998.html Turbo Pascal «Основы алгоритмических структур и структурированные типы данных https://www.cyberforum.ru/ turbo-pascal/ thread764997.html
ПОМОГИТЕ ЭТО РЕШИТЬ ПОЖАЛУЙСТА Имеется файл, в котором содержится размерность массива и его элементы. Вычислить: A. номер максимального по модулю элемента массива; B. сумму элементов массива, расположенных после первого положительного элемента. Полученные результаты записать в новый файл.
В заданном массиве чисел заменить элементы с нечетными номерами на квадраты их номеров Turbo Pascal
Одномерные массивы. В заданном массиве чисел заменить элементы с нечетными номерами на квадраты их номеров.
Turbo Pascal Дан файл F, содержащий сведения об игрушках https://www.cyberforum.ru/ turbo-pascal/ thread764973.html
Вот задание Дан файл F, содержащий сведения об игрушках: название, стоимость в копейках, возрастные границы детей, для которых предназначена игрушка. Получить сведения: а) названия игрушек, цена которых не превышает 4 руб. и которые подходят детям 5 лет б) названия наиболее дорогих игрушек (цена которых отличается от цены амой дорогой игрушки не более чем на 1 руб.) в) названия игрушек, которые...
314 / 273 / 272
Регистрация: 25.09.2011
Сообщений: 477
18.01.2013, 10:50 0

Реализовать в виде модуля набор подпрограмм для заданного целого числа - Turbo Pascal - Ответ 4019758

18.01.2013, 10:50. Показов 1901. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено cccc как решение

Решение

модуль. файл Supermod.pas :
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
unit SuperMod;
interface
  function Polovit(a:integer):boolean;
  function Chetnoe(a:integer):boolean;
  { ... }
implementation
  function Polovit(a:integer):boolean;
  begin Polovit:=a>0; end;
  function Chetnoe(a:integer):boolean;
  begin Chetnoe:= not odd(a); end;
begin
end.
использование его:
Pascal
1
2
3
4
5
6
7
8
9
uses superMod;
var a,b,c : integer;
begin
  write('input a,b,c : '); readln(a,b,c);
  if Polovit(a*b) then write('sovpadajt') else write(' ne sovpad');
  writeln;
  if Chetnoe(a) then write(a,' - chetnoe') else write(a,' - ne chetnoe');
  readln;
end.


Вернуться к обсуждению:
Реализовать в виде модуля набор подпрограмм для заданного целого числа Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.01.2013, 10:50
Готовые ответы и решения:

Реализовать в виде модуля набор подпрограмм для работы с графом
Определим граф как набор точек, некоторые из которых единены отрезками, подграф — как граф,...

Реализовать в виде модуля набор подпрограмм для работы с комплексными числами
Реализовать в виде модуля набор подпрограмм для выполне¬ния следующих операций над комплексными...

Реализовать в виде модуля набор подпрограмм для выполнения операции над векторами
Реализовать в виде модуля набор подпрограмм для выполнения следующих операции над векторами:...

Реализовать в виде модуля набор подпрограмм для выполнения операций над векторами
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над векторами:...

1
18.01.2013, 10:50
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.01.2013, 10:50
Помогаю со студенческими работами здесь

Реализовать в виде модуля набор подпрограмм для выполнения операций над дробями
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными...

Реализовать в виде модуля набор подпрограмм для выполнения операций над обыкновенными дробями
Реализовать в виде модуля набор подпрограмм для выполнения следующих операций над обыкновенными...

Реализовать в виде модуля набор подпрограмм для выполнения операций над комплексными числами
Пожалуйста помогите решить (надеюсь не сложную для вас) задачу про модуль. Реализовать в виде...

Реализовать в виде модуля набор подпрограмм для выполнения операций над числами в шестнадцатеричной системе счисления
Помогите плиз... Реализовать в виде модуля набор подпрограмм для выполнения следующих операций...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru