[an error occurred while processing this directive] TDIU08 > TÄVLING (frivillig utanför kursen)
Göm menyn

TDIU08 Problemlösning och programmering

TÄVLING (frivillig utanför kursen)


Här är resultatlistan för den tävling som hölls i år. De lösningar som finns visade är ej lösningar som kan/får användas i kursen i övrigt. Dessa lösningar är helt "absurda". :-) Man kan t.ex. se att tecknet ↲ i några av lösningarna är "enter-tecken" som vissa haft kvar. De räknas ju också ... :-)

Antal tecken Namn Programkod
210 Alexander Henne [alehe451] with Text_IO,Ada.Strings.Fixed;procedure A is use Text_IO,ASCII,Ada.Strings.Fixed;C:Field;begin Put("Mata in storlek: ");C:=Field'Value(Get_Line);Put('+'&C*"--"&'+'&C*(LF&'|'&C*" "&'|')&LF&'+'&C*"--"&'+');end;
228 Jakob Svedling [jaksv068] with Ada.Text_Io,Ada.Strings.Fixed;use Ada.strings.Fixed,Ada.Text_Io;procedure A is B:Integer;begin Put("mata in storlek: ");B:=Integer'Value(Get_line);Put('+'&b*"--"&'+'&Ascii.lf&B*('|'&b*" "&'|'&Ascii.Lf)&'+'&B*"--"&'+');end;
229 Erik Rågberger [erira301] with Ada.Text_Io,Ada.Strings.Fixed;use Ada.Text_Io,Ada.Strings.Fixed;procedure Q is↲T:Integer;begin↲Put("Mata in storlek: ");T:=Integer'Value(Get_Line);Put("+"&T*"--"&"+"&Ascii.lf&T*("|"&T*" "&"|"&Ascii.lf)&"+"&T*"--"&"+");end;↲

Utanför tävlingen fanns följande lösning (som inte gjordes av studenter).

189 TorJo with Ada.Strings.Fixed;procedure Gnat.IO.L is use Ada.Strings.Fixed,Ascii;L:Integer;begin Put("Mata in storlek: ");Get(L);Put("+"&L*"--"&"+"&LF&L*("|"&L*" "&"|"&LF)&"+"&L*"--"&"+"&LF);end;
197 Bland annat en student i TDIU08 och även kursledare och assistenter with Gnat.IO,Ada.Strings.Fixed;procedure O is use Gnat.IO,Ada.Strings.Fixed,Ascii;O:Integer;begin Put("Mata in storlek: ");Get(O);Put("+"&O*"--"&"+"&LF&O*("|"&O*" "&"|"&LF)&"+"&O*"--"&"+"&LF);end;


Sidansvarig: Viktor Olsson
Senast uppdaterad: 2018-10-22