hey guys, i just started my AS course of computing in school.
we've just started but i've been trying out different things, you know programs and whatever i could get out of it with my basic knowledge.
so i decided to try to make a program that will work out the length of a right angled triangle, using pythagras.
this program includes decisions and since we haven't done it in school i know very little.
for example, i will show you the code.
hopefull you will understand!
program caseexample;
program caseexample;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
choice : char;
choiceC, choiceB, choiceA, sideA, sideB, sideC : integer;
begin
writeln('Enter the length of A - if this is the length you are looking for then input 0 ');
readln(sideA);
writeln;
writeln('Enter the length of B - if this is the length you are looking for then input 0 ');
readln(sideB);
writeln;
writeln('Enter the length of C - if this is the length you are looking for then input 0 ');
readln(sideC);
writeln;
writeln('Choose the side of the triangle you want to find out the length of');
writeln;
writeln(' /|');
writeln(' / |');
writeln(' / |');
writeln(' C / | B');
writeln(' / |');
writeln(' / |');
writeln(' / |');
writeln(' /_ _ _ _|');
writeln;
writeln(' A');
writeln;
writeln;
writeln('A. I want to find out length A');
writeln('B. I want to find out length B');
writeln('C. I want to find out length C');
writeln;
writeln;
writeln('Enter a choice A , B or C');
writeln;
readln(choice);
writeln;
case choice of
'A' : SQRT((sideC * sideC) - (sideB * sideB));
'B' : SQRT((sideC * sideC) - (sideA * sideA));
'C' : SQRT(sideA * sideA + sideB * sideB);
else
writeln('Invalid choice!');
readln;
end;
end.
basically the SQRT values will not display, kidnd of ruining the whole pourpose.
putting readln; does not work as it is highlighted as error!
using Delphi XE trail version
thanks for help
