Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
6 / 4 / 0
Регистрация: 12.01.2010
Сообщений: 77
1

Модули.

16.09.2010, 20:09. Просмотров 730. Ответов 5
Метки нет (Все метки)


Задание в вордовском документе.

Срок выполнения до субботы.

Заранее большое спасибо!
0
Вложения
Тип файла: doc Модули..doc (16.0 Кб, 30 просмотров)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.09.2010, 20:09
Ответы с готовыми решениями:

Модули
помогите плиз завтро надо сдавать ваще хз как сделать... создать функции MyVal – преобразовать...

Модули
Дана задача: Написать подпрограмму (процедуру или функцию) для вычисления суммы , когда вид...

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

Модули
Написать программу c помошью модуля, вычисляющую удвоенный квадрат площади треугольника с помощью...

5
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 834
16.09.2010, 20:25 2
а что значит
b+c,a
Добавлено через 12 секунд
тоесть a из них
0
80 / 80 / 36
Регистрация: 20.11.2009
Сообщений: 326
16.09.2010, 20:29 3
Что за функция мин? Поиск минимального из 2-х чисел?
0
393 / 279 / 38
Регистрация: 06.08.2010
Сообщений: 834
16.09.2010, 20:32 4
делал на ходу так что могут быть ошибки,тнмболее не проверял
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
UNIT MyModuL;
 
INTERFACE                           {Раздел ИНТЕРФЕЙСА}
PROCEDURE min(a,b,c:Integer);
 
IMPLEMENTATION                  {Раздел РЕАЛИЗАЦИИ}
USES Crt;                           {Без этого не будет работать про-цедура Line}
PROCEDURE min;
var minN,A1,B1,c1,Many:Integer;
BEGIN
minN:=1;
while (a>0)Or(b>0)Or(c>0) do
    begin
A1:=(b+c*2*2);
B1:=(a+b*2*2*2*2);
C1:=(a+b*c*10)*1;
if (A1<minM) then A1:=minM;
if (B1<minM) then B1:=minM;
if (C1<minM) then C1:=minM;
Many:=A1-B1/C1;
END;
BEGIN
 
END.
USES MyModuL;
BEGIN
  Writeln('A=')
  readln(a);
  Writeln('B=')
  readln(b);
  Writeln('C=')
  readln(c);
  
    ReadLn;
END.
1
Модератор
62859 / 46906 / 32327
Регистрация: 18.05.2008
Сообщений: 113,654
16.09.2010, 20:36 5
Проверено
Текст модуля.
Pascal
1
2
3
4
5
6
7
8
9
unit unit1;
interface
function Min(a,b:real):real;
implementation
function Min;
begin
if a<b then Min:=a else Min:=b;
end;
end.
Текст программы.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
uses crt,unit1;
var a,b,c,y:real;
begin
clrscr;
writeln('Введите три числа:');
readln(a,b,c);
if Min(10,a+b*c)+1=0 then write('Выражение не определено')
else
 begin
  y:=(Min(b+c,a)-Min(a,a+b))/ Min(10,a+b*c)+1;
  write('Значение выражения=',y:0:2);
 end;
readln
end.
0
6 / 4 / 0
Регистрация: 12.01.2010
Сообщений: 77
18.09.2010, 00:49  [ТС] 6
Спасибо большое покажу проверу, главное есть текст программы=)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.09.2010, 00:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Модули
NewCopy – выделение строки с заданного начального символа до заданного конечного символа NewDelete...

Модули
Провести вычисления. Необходимые для вычислений функции (факториал, возведение в степень и т.д.)...

Модули
Помогите!!Не врубаюсь в тему модули!Надо решить... Разработать модуль, реализующий функции...

МОДУЛИ
4. Создать модуль, описывающий несколько алгоритмов сортировок (прямого включения, прямого выбора,...


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

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

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