* * *

Author Topic: Using Case to calculate surface  (Read 272 times)

godik

  • New member
  • *
  • Posts: 14
Using Case to calculate surface
« on: November 07, 2018, 08:38:55 pm »
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,V,S:real;
begin



end;

end. 



Hello, I want to make a program which can calculate surface or volume of block through Case and using RadioGroup,Label,Button,Edit.I have no idea how to do it.Thanks

howardpc

  • Hero Member
  • *****
  • Posts: 2804
Re: Using Case to calculate surface
« Reply #1 on: November 07, 2018, 09:59:01 pm »
I don't usually do other people's homework, but look at the attached project, which uses extended rather than real (but you could obviously change this if desired).

Bart

  • Hero Member
  • *****
  • Posts: 3123
    • Bart en Mariska's Webstek
Re: Using Case to calculate surface
« Reply #2 on: November 07, 2018, 10:01:26 pm »
Teacher will be surprised  O:-)

Bart

godik

  • New member
  • *
  • Posts: 14
Re: Using Case to calculate surface
« Reply #3 on: November 07, 2018, 10:07:08 pm »
Its not really a homework but i want to learn case but i dont know how to start :)
« Last Edit: November 07, 2018, 10:10:58 pm by godik »

Bart

  • Hero Member
  • *****
  • Posts: 3123
    • Bart en Mariska's Webstek
Re: Using Case to calculate surface
« Reply #4 on: November 07, 2018, 10:21:09 pm »
See The Case statement in the offical documentation.

Bart

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus