Операции с числами по условиям и работа со строкой, Было: Достаточно простая задачка... Опции

[MaxiRush]

ТоварисЧи, огромная просьба о помощи. Нужно написать программу, которая решает две задачи: 1-даны пары целых чисел. Если числа не равны, то следует каждое из них заменить одним и тем же числом, равным большему из исходных, а если равны, то заменить числа на единицы. 2- дана строка. Подсчитать, сколько в ней букв r,k,t.
Буду очень сильно благодарен за помощь.

М

Название изменено. Правила, п.4

Сообщение отредактировано: Lapp - 13.07.2011 23:50

[TarasBer]

> if m<>n then begin m:=x; n:=x; end

Надо по условию заменить на большее из исходных. Почему ты меняешь на 10000000?
Надо так:

if m <> n then begin
  if m>n then 
    n:=m
  else
    m := n;
end;

По второй всё вроде верно, только названия переменных дурацкие. Вместо a,b,c лучше напиши count_r, count_k, count_t.

Добавлено через 4 мин.
Чтобы оформить задачу в подпрограмму, надо выделить кусок от var до end и написать перед ним procedure TwoNumbers; потом скопировать к нему такой же кусок из второй программы, в конец дописать begin end с выбором задачи. Типа такого:

program hz;

procedure TwoNumbers;
var 
...
begin
...
end;

procedure Find_rkt;
var
...
begin
...
end;

var
  task: integer;
begin
  repeat
    Write('enter task number: ');
    ReadLn(task);
    case task of
      1: TwoNumbers();
      2: Find_rkt();
    end;
  until task = 0;
end.