Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задача

Автор: DeadLord 12.12.2007 20:09

Дано 4-ох и 3-ох значные числа, среди цифр 4-ох значного найти максимальное, среди 3-ох минимальное, получить их числовой код.

Автор: Client 12.12.2007 20:16

Цитата
получить их числовой код.
Т.е. в шестнадцатиричной ситеме?
И в чем проблема?

Автор: DeadLord 12.12.2007 20:28

нет просто получить наверное буквенный код я просто после экзаменов не в состоянии их решить, вот и просил помочь, решается скорее всего через масив одномерный(

извиняюсь символьный!

Автор: Client 12.12.2007 20:43

не обязательно, просто нахадишь с помощью div'а и mod'а макс и мин цифру и печатаешь ее

Автор: DeadLord 12.12.2007 20:51

я знаю каким образом через див и мод а можно через масив?
Найти его минемальны и максимальный элементы и сопоставить их.
просто я не знаю как найти мах и мин элеенты.

Автор: DeadLord 12.12.2007 21:49

Благодаря Client`y решил эту задачу вот код:


uses crt;
var
a:array [1..4] of integer;
b:array [1..3] of integer;
c,d,i:integer;
g:char;
begin
clrscr;
for i:=1 to 4 do
readln (a[i]);
for i:=1 to 4 do
begin
c:=a[i];
if a[i]>c then c:=a[i]
end;
for i:=1 to 3 do
readln (b[i]);
for i:=1 to 3 do
begin
d:=b[i];
if b[i]<d then d:=b[i]
end;
if c>d then g:=chr(d) else g:=chr©;
writeln (g);
end.


Автор: Client 12.12.2007 22:23

Не a[i] a a[1] Исправь

Автор: Malice 12.12.2007 22:55

Цитата(DeadLord @ 12.12.2007 17:49) *

решил эту задачу вот код:

Класс good.gif Жаль неправильно..
Я так понимаю, надо примерно вот так действовать:
 ....
ReadLn(a); m:=0;
while a>0 do begin
if (a mod 10)>m then m:=a mod 10;
a:=a div 10;
end;

В m теперь максимальное число. Аналогично делается для минимального..