1 Востаннє редагувалося Nick9956 (19.11.2015 19:15:03)

Тема: Задачка по Паскалю №2

Задачка у файлі
Допоможіть
Потрібно до суботи вирішити
Пробував, але нічого не виходить ось моя спроба

Там уже заплутано все

Post's attachments

IMG_20151119_0001.pdf 581.74 kb, 240 downloads since 2015-11-19 

2

Re: Задачка по Паскалю №2

Перше завдання:

program Project1;
var
  a:array[1..16] of integer; len,N:integer;

 procedure split(n:Integer);
 begin
  len:=1; while n>0 do begin
    a[len]:=n mod 10;
    n:=n div 10;
    inc(len);
    end;
  dec(len);
 end;

 function join(n:integer):Integer; var i:integer;
 begin
  Result:=0;
  for i:=len downto 1 do if i<>n then begin
    Result:=Result*10+a[i];
    end;
 end;

 function Seek:Integer; var v,max,i:integer;
 begin
  Result:=0;
  for i:=len downto 1 do begin
    v:=join(i);
    if (max<v) or (i=len) then begin max:=v; Result:=len-i+1; end;
    end;
 end;

begin
  n:=735;
  split(n);
  writeln(Seek);
  readln;
end.

Влаштовує?

Подякували: Nick99561

3

Re: Задачка по Паскалю №2

Панове, ви правила читали?

4

Re: Задачка по Паскалю №2

Itari написав:

Перше завдання:

program Project1;
var
  a:array[1..16] of integer; len,N:integer;

 procedure split(n:Integer);
 begin
  len:=1; while n>0 do begin
    a[len]:=n mod 10;
    n:=n div 10;
    inc(len);
    end;
  dec(len);
 end;

 function join(n:integer):Integer; var i:integer;
 begin
  Result:=0;
  for i:=len downto 1 do if i<>n then begin
    Result:=Result*10+a[i];
    end;
 end;

 function Seek:Integer; var v,max,i:integer;
 begin
  Result:=0;
  for i:=len downto 1 do begin
    v:=join(i);
    if (max<v) or (i=len) then begin max:=v; Result:=len-i+1; end;
    end;
 end;

begin
  n:=735;
  split(n);
  writeln(Seek);
  readln;
end.

Влаштовує?


будь ласка, напишіть пояснення якщо можна до кожної функції та підпрограми (можна у вигляді коментарів)
Буду дуже вдячний

5

Re: Задачка по Паскалю №2

Прихований текст

Я вже набрався попкорну :)

Подякували: shabaranskij1