Урок 16 (Решенная задача номер 8)

Primary tabs

Romakip's picture
Submitted by Romakip on Fri, 10/09/2020 - 17:07

Forums:

Урок 16 (Решенная задача номер 8)

8)Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел: 

rewt34t54346t566

то в ответ программа должны вывести:

r
ew
t34
t543
46t56
6

Решение. Сделал ход решения через функцию, что дает возможность применять ее в других реализациях программного кода.

var s : string;

function ru36(g : string): string;

var M, N, i : integer;
begin
  N := 1;
  M := 0;
  for i := 1 to length(g) do
  begin
    write(s[i]);
    M := M + 1;
    if (M = N) then
     begin
       writeln();
       N := N + 1;
       M := 0;
     end;
  end;
end;

begin
  writeln('vvedite stroky');
  readln(s);
  ru36(s);
end.
  • Log in to post comments
  • 1159 reads
vedro-compota's picture

vedro-compota

Sat, 10/10/2020 - 20:21

переделать подпрограмму на процедуру

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

Romakip's picture

Romakip

Mon, 10/12/2020 - 15:34 

var s : string;

procedure ru36(g : string);

var M, N, i : integer;
begin
  N := 1;
  M := 0;
  for i := 1 to length(g) do
  begin
    write(s[i]);
    M := M + 1;
    if (M = N) then
     begin
       writeln();
       N := N + 1;
       M := 0;
     end;
  end;
end;

begin
  writeln('vvedite stroky');
  readln(s);
  ru36(s);
end.