задача в паскале!!! - Помощь студентам

ALYA18 · 11.02.2011, 21:10

помогите решить пожалуйста!!!
1. даны 2 натуральных числа.выяснить в каком из них больше цифр.определить функцию для расчета кол-ва цифр натурального числа.
2.используя процедуру найти максимальный элемент и его индекс в одновременном целочисленном массиве.

GetMax · 11.02.2011, 21:17

Цитата:

определить функцию для расчета кол-ва цифр натурального числа.

Я вам писал уже эту функцию. Ищите в предыдущей вашей теме

Цитата:

используя процедуру найти максимальный элемент и его индекс в одновременном целочисленном массиве.

А сами то что нибудь сделали? Покажите хотя бы как ввели-вывели массив

ALYA18 · 11.02.2011, 21:28

к сожалению я не сильна в паскале ((поэтому и обращаюсь за помощью

GetMax · 11.02.2011, 21:35

Вот вам ПП. Разбирайтесь

Код:

Procedure PoiskMax(Var Ms:Massiv; Var Maxm:Integer; Var Index:Integer; Kol:Byte);
Var
  i:Byte;
Begin
  Maxm:=Low(Integer);
  For i:=1 to Kol do
  If Ms[i] > Maxm then
  Begin
     Maxm:=Ms[i];
     Index:=i
  End;
End;

Pein95 · 11.02.2011, 21:47

ALYA18
если не секрет где вы учитесь?

ALYA18 · 11.02.2011, 21:50

спасибо огромное))очень благодарна!!!

11.02.2011, 21:10	#1
ALYA18 Регистрация: 09.02.2011 Сообщений: 6	задача в паскале!!! помогите решить пожалуйста!!! 1. даны 2 натуральных числа.выяснить в каком из них больше цифр.определить функцию для расчета кол-ва цифр натурального числа. 2.используя процедуру найти максимальный элемент и его индекс в одновременном целочисленном массиве.

11.02.2011, 21:35	#4
GetMax Форумчанин Регистрация: 21.10.2010 Сообщений: 588	Вот вам ПП. Разбирайтесь Код: `Procedure PoiskMax(Var Ms:Massiv; Var Maxm:Integer; Var Index:Integer; Kol:Byte); Var i:Byte; Begin Maxm:=Low(Integer); For i:=1 to Kol do If Ms[i] > Maxm then Begin Maxm:=Ms[i]; Index:=i End; End;` Пользователь не знает, чего он хочет, пока не увидит то, что он получил. Для благодарностей WMR R145235935681

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача в паскале	senora	Помощь студентам	5	21.01.2011 17:19
задача в Паскале	akvarelj	Помощь студентам	1	24.11.2010 12:14
Задача на Паскале	Radioactive	Фриланс	3	22.10.2008 16:56

11.02.2011, 21:28	#3
ALYA18 Регистрация: 09.02.2011 Сообщений: 6	к сожалению я не сильна в паскале ((поэтому и обращаюсь за помощью

11.02.2011, 21:47	#5
Pein95 Форумчанин Регистрация: 25.04.2010 Сообщений: 881	ALYA18 если не секрет где вы учитесь?

11.02.2011, 21:50	#6
ALYA18 Регистрация: 09.02.2011 Сообщений: 6	спасибо огромное))очень благодарна!!!