C++ Problem FPC Solution: SUBEEN-4

আয়তন-১ Programming Challenge

একটি আয়তাকার বাক্সের আয়তন বাক্সটির দৈর্ঘ্য, প্রস্থ ও উচ্চতার গুণফলের সমান। তোমাকে যে কোন বাক্সের এই তিনটি পরিমাপ বলে দিলে তাদের আয়তন নির্ণয় করার একটি প্রোগ্রাম লিখতে পারবে কি?

ইনপুট

প্রথম লাইনে একটি সংখ্যা থাকবে। তারপর সেই সংখ্যাটির মান যত, ততটি লাইন থাকবে। প্রতি লাইনে তিনটি করে সংখ্যা থাকবে যার প্রতিটির মান-ই ১ থেকে ১০০-এর মধ্যে সীমাবদ্ধ। একটি লাইনের সংখ্যাগুলোর মাঝে এক বা একাধিক স্পেস ক্যারেক্টার থাকবে। প্রতি লাইনের সংখ্যা তিনটি একটি বাক্সের দৈর্ঘ্য, প্রস্থ ও উচ্চতার মান নির্দেশ করে।

আউটপুট

প্রতি লাইনের জন্য সেই লাইনে যে বাক্সের মাপ তিনটি দেয়া আছে তার আয়তন প্রিন্ট করতে হবে।

উদাহরণ

ইনপুট:

2
2 2 2
3 5 10



আউটপুট:

8
150

source: http://cpbook.subeen.com/2012/11/rectangle-1.html
===========================================

program proj_prob4;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes, sysutils
  { you can add units after this };

var
  i: Integer;

  inputcount: Integer;
  inputs: array of String;
  the_input: String;

  list: TStringList;
  j:Integer;
  list2: TStringList;

begin
  WriteLn('How many number strings?');
  ReadLn(inputcount);

  WriteLn('Enter ', inputcount, ' strings with numbers seperated by space:');
  for i := 0 to inputcount-1 do begin
    SetLength(inputs, i + 1);
    ReadLn(the_input);
    inputs[i] := the_input;
  end;

  WriteLn('The numbers entered in each line:');
  list:=TStringList.Create;
  list2:=TStringList.Create;
  // go through all the input lines
  for i := 0 to Length(inputs)-1 do begin
    list.Clear;
    ExtractStrings([' '], [' '], pchar(inputs[i]), list);

    // Go through the numbers of this line
    list2.Clear;
    for j := 0 to list.Count-1 do begin
        if strtoint(list.Strings[j]) <= 100 then begin
          list2.Add(list.Strings[j]);
        end;
    end;

    if list2.Count <= 3 then begin
      WriteLn(strtoint(list2.Strings[0]) * strtoint(list2.Strings[1]) *
                                         strtoint(list2.Strings[2]));
    end else begin
      WriteLn('(Error in input)');
    end;

  end;
  list.Free;
  list2.Free;

  ReadLn;
end.