fork download
copy 
  1. program ideone;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5.   procedure DrawTriangles(ASize: UInt8);
  6.   var
  7.     strStars, strMinuses: String;
  8.     pchrStar, pchrMinus: PChar;
  9.   begin
  10.     strStars   := StringOfChar('*', ASize);
  11.     strMinuses := StringOfChar('-', ASize);
  12.     pchrStar   := @strStars[1];
  13.     pchrMinus  := @strMinuses[1] + ASize;
  14.  
  15.     while ASize > 0 do
  16.     begin
  17.       WriteLn(StrPas(pchrMinus), StrPas(pchrStar));
  18.       Inc(pchrStar);
  19.       Dec(pchrMinus);
  20.       Dec(ASize);
  21.     end;
  22.   end;
  23.  
  24. var
  25.   intSize: Integer;
  26. begin
  27.   Write('Enter the size: ');
  28.   ReadLn(intSize);
  29.   WriteLn();
  30.  
  31.   DrawTriangles(intSize);
  32.   ReadLn();
  33. end.
  34.  
Success #stdin #stdout 0s 232KB
comments (?)
stdin
copy 
5
stdout
copy 
Enter the size: 
*****
-****
--***
---**
----*
https://ideone.com/YptIfr
language:
Pascal (fpc 3.0.4)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!