Последовательность семнадцатеричных чисел, разделённых пробелом, в конце - точка. Перевести в десятичную и определить максимум

Primary tabs

vedro-compota's picture
Submitted by vedro-compota on Tue, 06/14/2016 - 23:02

Forums:

(в процессе)


{на вход подаётся последовательность семнадцатеричных чисел,разделённых пробелом,в конце - точка. Определить максимум}
Program BracketsTesting;
var // секция объявления переменных
   i,
   bracketsDif, // счётчик разницы между открытыми и закрытыми скобками
   len: Integer;
    
   currentChar:  char; // сюда считаем последовательность символов
   stop_symb: char; 
   
   my_sequence: string; // вспомогательная переменная (чтобы напечатать в итоге введённую последовательность)
   
   procedure resetValues(var first, second, third, fourth, fifth, sixth, seventh)
   begin
      
   end
   
begin // тело программы

   {вводить последовательность будем посимвольно 
   - это позволит поддерживать любое число элементов}
   
   currentChar = ''; // значение по-умолчанию
   
   while (currentChar <> '.') do // пока не встретим точку
   begin
      if (currentChar)
   end
    
   Writeln('Введите последовательность: ');
   Readln(my_sequence);  // считываем последовательность введённую пользователем
    
   Writeln(my_sequence);
   
   
end.

Key Words for FKN + antitotal forum (CS VSU):

  • Log in to post comments
  • 5956 reads

math2

Sun, 10/30/2016 - 01:03

Последовательность положительных семнадцатеричных чисел, разделённых в точности одним пробелом. Точку в конце ставить не нужно. Перевести в десятичную и определить максимум.

{ На вход подаётся последовательность семнадцатеричных чисел, разделённых
ровно одним пробелом.
В качестве цифр используются 0, ..., 9, a, ..., f, g.
g --- это 16.
 Определить максимум.}

Program BracketsTesting;

uses strutils;

var // секция объявления переменных
   i, j, cipher, // индекс символа в строке, степень 17, цифра
   first, second: Integer;
     
   cur_char:  char; // сюда считываем символы из строки
   my_seq: string; // введённая последовательность)

begin // тело программы
 
   Writeln('Введите последовательность семнадцатеричных чисел: ');

   Readln(my_seq);  // считываем последовательность, введённую пользователем
     
	my_seq := ReverseString(my_seq);   // строка в обратном порядке
	my_seq := concat( my_seq, ' ');    // добавим один пробел в конце

	j := 1;
	first := 0;
	second := 0;

	for i:=1 to length(my_seq) do
	begin
		cur_char := my_seq[i];
		if (cur_char=' ') then
		begin
			j := 1;
			writeln('One of them is ', first);
			if (second<first) then second:=first;
			first:=0;
		end
		else
		begin
			if ( ord(cur_char) >= 97 ) then
				cipher := ord(cur_char)-97+10
			else
				cipher := ord(cur_char)-48;
			first := first + cipher*j;
			j := j*17;
		end;

	end;
	writeln('The maximum is ', second);
    
end.
vedro-compota's picture

vedro-compota

Tue, 11/01/2016 - 21:40

Спасибо!)

_____________
матфак вгу и остальная классика =)