помогите доделать задачу в паскале

[innaa639]

Ввести с клавиатуры стринговую константу, делая маленькие буквы большими. выделить 16-ти разрядные константы, перемножить их. представить выделеные числа и их произведения у 10-тичной системе счисления.

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

uses crt;
var s:string;
i:integer;
begin
clrscr;
writeln('vvedite stroky:');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
s[i]:=chr(ord(s[i])-32);
write(s);
readln;
end.

[RusArtm]

Ввести надо наверное переменную, константы они на то и константы, что в них ничего не введешь....
Что значит "выделить 16-ти разрядные константы"? Выделить из текста?
Если да, то чем они разделены? А что делать с другими символами?

[innaa639]

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

[Sazary]

Как я понял, вам нужно выделить числа, записанные в 16-ричной системе.
Идите по строке посимвольно.
Если символ - цифра от 0 до 9 или буква от A до F, то пишете ее к буферу. Если нет, то буфер преобразовываете в число (в десятичной системе) и домножаете на него общее произведение. После чего очищаете буфер.
И так пока не дойдете до конца строки.

[RusArtm]

uses crt;
var s:string;
i:integer;

function hexstrTOint(s: string): integer;
Var i: integer;
var k: integer; {Тут будет временно зхраниться цифра считываемая}
    razrad: integer; {разряд разряда :)))}
begin
result:=0;
razrad:=1;
For i:=Length(s) to 1 do
 begin
{Проверяем число это или символ}
  k:=0;

  If (Ord(s[i])>=0) and (Ord(s[i])<=9) then {число}
  k:=IntToStr(k);

  If (Ord(s[i])>=Ord('A')) and (Ord(s[i])<=Ord('F')) then {символ}
  k:=10+(Ord(s[i])-Ord('A'));

  {теперь просто методом весов}
  Result:=Rusult+k*razrad;
  razrad:=razrad*16;
 end;
end;

Var str: string;{временная переменная}
  ans: integer; {ответ}

begin
clrscr;
writeln('vvedite stroky:');
readln(s);
writeln;
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
s[i]:=chr(ord(s[i])-32);
write(s);


While Length(s)>0 do begin
str:='';
  If Pos(' ', s)>0 then begin
            str:=copy(s, 1, Pos(' ', s)-1 );
            Delete(s,1, Pos(' ', s) );
       end
  else begin str:=s;s:=''; end;

 ans:=ans*hexstrTOint(str)

end;


readln;
end.

Замечу, что это можно сделать и проще, но это то, что первое пришло на ум... так же код требуется отшлифовать...

[innaa639]

спасибо огромное, но тег IntToStr разве есть в паскале?он на него ругается и я ничего не могу поделать((

[Sazary]

В приведенном выше коде достаточно ошибок.
Посмотрите на идею и перепишите заново.
В паскале нет IntToStr. Есть Str.
Также нет встроенной переменной Result.
Ну и много чего еще..

[valya_2009]

здравствуйте!!!сегодня первый раз здесь..не могу разобраться..мне нужно составить программу в паскале. Задание

Составить алгоритм и программу для обработки двухмерного массива чисел.
Упорядочить столбцы массива по возрастанию.
для А (5;6).

у меня экзамен в пятницу...можете мне помочь?

[Sazary]

valya_2009, не нужно писать в чужие темы.
Прочитайте правила.

По задаче:
Что вам конкретно непонятно? Идете по столбцам и сортируете их. Ничего сложного.