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