Вопросы по азам

[OldOwlOll]

Есть вопросы, ответы на которые не дает учебник. И в интернете их найти почти невозможно. Ответы на них может дать только тот, кто "в теме". А что делать затерянному в глубинке новичку, решившему освоить Паскаль самостоятельно? Только просить Вашей помощи. Помогите!

Задача: Написать процедуру, меняющую символ "A" на символ "B" в трех строках.

Я использовала в качестве формального параметра глобальную переменную, а в примере из учебника - новая переменная. Оба варианта компилируются и работают корректно.

Вопрос:

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

Моё решение:

const
  a = 'a';

var
  S: string;
  k: integer;

procedure Scan(S: string);
var
  k: integer;
begin
  for k := 1 to Length(S) do 
    if S[k] = a then S[k] := 'b';
  writeln(S);
  
end;

begin
  repeat
    for k := 1 to 3 do 
    begin
      Writeln('Введите строку '); Readln(S);
      Scan(S);
    end
  until Length(S) = 0;
end.

Решение в учебнике:

var
  S: string;
  k: integer;

procedure Scan(var arg: string);
var
  k: integer;
begin
  for k := 1 to Length(arg) do 
    if arg[k] = 'a' then arg[k] := 'b';
   
end;

begin
    for k := 1 to 3 do 
    begin
      Writeln('Введите строку '); Readln(S);
      Scan(S);
      writeln(S);
    end;

end.

[Аватар]

Нужно вводить новую переменную, потому что так принято?

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

[OldOwlOll]

Сообщение от Аватар

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

Спасибо!
Запомню

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

Что плохо в моем варианте решения? (разумеется, кроме громоздкости ввода и вывода - тут пока моих знаний не хватает, но я учусь )
Может, есть хорошее?

program MaxAndMin;

var
  a1, b1, c1, a2, b2, c2, a3, b3, c3: integer;

function Swap2(var x, y: integer): boolean;//выстраиваю два числа в порядке возрастания
var
  t: integer;
begin
  if x > y 
  then begin
    t := x; x := y; y := t;
    Swap2 := true
  end
  else Swap2 := false
end;

procedure Swap3(var a, b, c: integer);//выстраиваю три числа в порядке возрастания
begin
  Swap2(a, b);
  if Swap2(b, c)
    then Swap2(a, b)
end;

begin
  Writeln('введите число'); Readln(a1);
  Writeln('введите число'); Readln(b1);
  Writeln('введите число'); Readln(c1);
  Writeln('введите число'); Readln(a2);
  Writeln('введите число'); Readln(b2);
  Writeln('введите число'); Readln(c2);
  Writeln('введите число'); Readln(a3);
  Writeln('введите число'); Readln(b3);
  Writeln('введите число'); Readln(c3);
  
  Swap3(a1, b1, c1);
  Writeln(a1, c1);//вывожу минимум и максимум первой тройки
  Swap3(a2, b2, c2);
  Writeln(a2, c2);//минимум и максимум второй тройки
  Swap3(a3, b3, c3);
  Writeln(a3, c3);//минимум и максимум третей тройки
  Swap3(a1, a2, a3);
  Writeln('Min: ', a1);
  Swap3(c1, c2, c3);
  Writeln('Max: ', c3)
end.

[Stilet]

Что плохо в моем варианте решения?

А кто сказал что что-то плохо?

[OldOwlOll]

Сообщение от Stilet

А кто сказал что что-то плохо?

пока - никто

Но не могла же я написать идеальную программу на третий день знакомства с программированием

В ветке задачи другое решение. Раз есть два решения, значит хотя бы одно из них (моё, разумеется) имеет недостатки. Помогите мне их увидеть и стать лучше, пожалуйста!

Может быть мой вариант выполняется дольше?... я еще не знаю, как это проверить и какие операторы быстрее
Мне кажется, мой вариант берет меньше памяти за счет меньшего количества переменных, но я могу ошибаться....
Может, такое вариант хуже читается человеком?...
Это только то, что я могу предположить, а сколько я даже предполагать не могу ввиду недостатка компетенций... ойой :P

[Аватар]

А если 100 чисел ввести - 100 Writeln?

[OldOwlOll]

Сообщение от Аватар

А если 100 чисел ввести - 100 Writeln?

И найти там максимальное и минимальное?

Тогда "методом пузырька"

Или Вы хотели спросить что-то другое?
Что вводить так 100 чисел невозможно? Понимаю. Работаю над этим вопросом - учусь До массивов и ввода из файла еще не дошла, разбираюсь со строковыми данными.

Разбить их на тройки? Или другой вопрос?... Я не поняла

[Stilet]

Я не поняла

А ты попробуй создай в редакторе код с подобным почисленным вводом. Но не сто чисел а 8 миллионов.

[OldOwlOll]

Сообщение от Stilet

А ты попробуй создай в редакторе код с подобным почисленным вводом. Но не сто чисел а 8 миллионов.

Зачем?

На данном этапе моей компетенции для меня эта задача - пустая потеря времени. Если пытаться через цикл, то я не умею автоматически создавать имена переменных.
Через пару-тройку дней я смогу ввести эти числа через массив, зачем впустую тратить время сейчас?

Но если Вы обоснуете задание, я постараюсь его выполнить.

[Poma][a]

Зачем?

Затем, чтобы осознать, что писать

WriteLn(' Введите число')

перед

 ReadLn(а)

вовсе необязательно..