Submission #1679646


Source Code Expand

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  banmen:array [1..4] of string;//stringの添字がずれてる
//  kaiten:array [1..4,1..4] of Char;
  shutsuryoku:string;
  i,j:Integer;
begin
  try
    { TODO -oUser -cConsole Main : ここにコードを記述してください }
    shutsuryoku:='';
    for i := 1 to 4 do begin
      Readln(banmen[i]);
    end;
    for i := 1 to 4 do begin
      for j := 1 to 7 do begin
//        kaiten[i][j]:=banmen[5-i][5-j];
//        shutsuryoku:=shutsuryoku + kaiten[i][j];
        shutsuryoku:=shutsuryoku + banmen[5-i][8-j];
      end;
      Writeln(shutsuryoku);
      shutsuryoku:='';
    end;
    Readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Submission Info

Submission Time
Task B - 回転
User nmoxya
Language Pascal (FPC 2.6.2)
Score 100
Code Size 788 Byte
Status AC
Exec Time 1 ms
Memory 256 KB

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 30
Set Name Test Cases
All 00_sample_00.txt, 00_sample_01.txt, 01_all_dot.txt, 02_all_o.txt, 03_all_x.txt, rand_0.txt, rand_1.txt, rand_10.txt, rand_11.txt, rand_12.txt, rand_13.txt, rand_14.txt, rand_15.txt, rand_16.txt, rand_17.txt, rand_18.txt, rand_19.txt, rand_2.txt, rand_20.txt, rand_21.txt, rand_22.txt, rand_23.txt, rand_24.txt, rand_3.txt, rand_4.txt, rand_5.txt, rand_6.txt, rand_7.txt, rand_8.txt, rand_9.txt
Case Name Status Exec Time Memory
00_sample_00.txt AC 1 ms 256 KB
00_sample_01.txt AC 1 ms 256 KB
01_all_dot.txt AC 1 ms 256 KB
02_all_o.txt AC 1 ms 256 KB
03_all_x.txt AC 1 ms 256 KB
rand_0.txt AC 1 ms 256 KB
rand_1.txt AC 1 ms 256 KB
rand_10.txt AC 1 ms 256 KB
rand_11.txt AC 1 ms 256 KB
rand_12.txt AC 1 ms 256 KB
rand_13.txt AC 1 ms 256 KB
rand_14.txt AC 1 ms 256 KB
rand_15.txt AC 1 ms 256 KB
rand_16.txt AC 1 ms 256 KB
rand_17.txt AC 1 ms 256 KB
rand_18.txt AC 1 ms 256 KB
rand_19.txt AC 1 ms 256 KB
rand_2.txt AC 1 ms 256 KB
rand_20.txt AC 1 ms 256 KB
rand_21.txt AC 1 ms 256 KB
rand_22.txt AC 1 ms 256 KB
rand_23.txt AC 1 ms 256 KB
rand_24.txt AC 1 ms 256 KB
rand_3.txt AC 1 ms 256 KB
rand_4.txt AC 1 ms 256 KB
rand_5.txt AC 1 ms 256 KB
rand_6.txt AC 1 ms 256 KB
rand_7.txt AC 1 ms 256 KB
rand_8.txt AC 1 ms 256 KB
rand_9.txt AC 1 ms 256 KB