Solved

Graduation a columm?

Posted on 1997-11-16
2
301 Views
Last Modified: 2010-04-16
Student in panic!
I need a program which simulates licquid in a tank. The user is supposed to write down a value and after that it´s supposed to be written a vertical line whith (I) and the column will be graduated 10, 20, 30 and 40. All this will be centered on the screen. I need two FOR loops, one for the column and one for the graduation.
Sincerely,
Erika
0
Comment
Question by:gelotte
2 Comments
 
LVL 2

Accepted Solution

by:
mitchell042997 earned 50 total points
ID: 1216791
If I am not mistaken, first the user needs to enter the water depth, so something like this will do the trick:

uses crt;
var WaterDepth,loop1,loop2:byte;
begin
  repeat
    writeln('Enter Water Depth (10, 20, 30, 40):  ');
    readln(WaterDepth);
    {Check to make sure WaterDepth within valid range}
  until WaterDepth in [10,20,30,40];

  clrscr;

  {Loop to draw flask}
  for loop1:=1 to 9 do
    if (loop1 mod 2 = 0) then begin
      gotoxy(36,loop1+7);
      case loop1 of
        2:write('40 | |');
        4:write('30 | |');
        6:write('20 | |');
        8:write('10 | |');
      end;
    end else begin
      gotoxy(39,loop1+7);
      write('| |');
    end;

  gotoxy(39,8+loop1);
  write('___');


  {For the water, just make another case statement and in the case blocks (i.e. case WaterDepth of ... 10:begin for ... do) do a for loop to draw the water depth using gotoxy like I showed above.  Hope this all helps.  BTW, no guarentee on the code, never tested it out...}
0
 

Author Comment

by:gelotte
ID: 1216792
thanks mitchell it´s works
0

Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Delphi & Indy 10 Whois over Web Proxy 3 1,213
SQL Query issue 13 404
Activex get website that activex running on 3 98
indy Tmemory stream non latin charcter issue 2 121
IT certifications are a concrete representation of continual learning on the part of the candidate.  Continual learning is necessary for the long term success of an IT professional, but are IT certifications the right path for you?
Giving access to ESXi shell console is always an issue for IT departments to other Teams, or Projects. We need to find a way so that teams can use ESXTOP for their POCs, or tests without giving them the access to ESXi host shell console with a root …

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question