7,600 VLJs on the wall, 7,600 VLJs

Dave Siciliano said:
Looks like at leasts one credible group is forecasting a lot of VLJs are on the way!

http://tinyurl.com/35bxpl

Best,

Dave
Click to expand...
vlj = 7600

* Format statements
1 format (I2, A)
2 format (A)
3 format (I2, A, /)
4 format (A, /)

* First 7599 or so verses
10 write (*,1) vlj, ' Very Light Jets in the sky,'
write (*,1) vlj, ' Very Light Jets.'
write (*,2) 'Take one down, taxi it around...'
if (vlj - 1 .gt. 1) then
write (*,3) vlj - 1, ' Very Light Jets in the sky.'
else
write (*,3) vlj - 1, ' Very Light Jets in the sky.'
end if

vlj = vlj - 1

if (vlj - 1) 30, 20, 10

* Last verse
20 write (*,1) vlj, ' Very Light Jets in the sky,'
write (*,1) vlj, ' Very Light Jets.'
write (*,2) 'Take one down, pass it around...'
write (*,4) 'Very Light Jets in the sky.'

30 stop
end
 
That's probably a believable number... maybe not by 2015, but eventually... 2020 or 2025...

How many 340/414/421, Navajo, and Pressurized Beech owners will offload their old pistons for a new VLJ... quite a few I can imagine. Eliminate Avgas and it'll happen real soon... :D

That's still well off the "1000's per year" the Eclipse was promising would be rolling off it's assembly line by now...
 
smigaldi said:
vlj = 7600

* Format statements
1 format (I2, A)
2 format (A)
3 format (I2, A, /)
4 format (A, /)

* First 7599 or so verses
10 write (*,1) vlj, ' Very Light Jets in the sky,'
write (*,1) vlj, ' Very Light Jets.'
write (*,2) 'Take one down, taxi it around...'
if (vlj - 1 .gt. 1) then
write (*,3) vlj - 1, ' Very Light Jets in the sky.'
else
write (*,3) vlj - 1, ' Very Light Jets in the sky.'
end if

vlj = vlj - 1

if (vlj - 1) 30, 20, 10

* Last verse
20 write (*,1) vlj, ' Very Light Jets in the sky,'
write (*,1) vlj, ' Very Light Jets.'
write (*,2) 'Take one down, pass it around...'
write (*,4) 'Very Light Jets in the sky.'

30 stop
end
Click to expand...

for (int vlj=7600; vlj>0; vlj--){
System.out.println(vlj + " Very Light Jets in the sky,");
System.out.println(vlj + " Very Light Jets.");
if (vlj == 1){
System.out.println("Take one down, pass it around...");
}else{
System.out.println("Take one down, taxi it around...");
}
System.out.println((vlj-1) + " Very Light Jets in the sky.");
}
 
PROGRAM vljonthewall
IMPLICIT NONE
INTEGER :: vlj

vlj=7600
!first 7559 verses
DO
IF (vlj==1) THEN
WRITE (*,*) vlj, "VLJ in the sky," ,vlj, "VLJ, Take one down, taxi around"
WRITE (*,*) "No more VLJs in the sky!"
EXIT
ELSE
WRITE(*,*) vlj, "VLJs in the sky," ,vlj, "VLJs, Take one down, taxi around,"
vlj=vlj-1
WRITE (*,*) vlj, "VLJs in the sky"
END IF
END DO

STOP
END PROGRAM vljonthewall
 
Last edited:
My version:
Code: 
<?php for($i = 7600; $i >= 1; $i--) {
   echo("$i Very Light Jets in the sky...<br>$i Very Light Jets...<br>");
   if($i!=1) {
      echo("Take one down,  taxi it around...<br><br>");
   } else {
      echo("Take one down,  pass it around...<br>");
   }
} ?>
You can test it here:
http://dev.jesseangell.com/count.php

My code is way shorter then Scott's. He's probably trying to increase his average word count again...
 
Last edited:
jesse said:
My version:
Code: 
<?php

for($count = 7600; $count >= 1; $count--) {
   echo("$count Very Light Jets in the sky...<br>");
   echo("$count Very Light Jets...<br>");
   if($count!=1) {
      echo("Take one down,  taxi it around...<br><br>");
   } else {
      echo("Take one down,  pass it around...<br>");
   }
}

?>
You can test it here:
http://dev.jesseangell.com/count.php
Click to expand...

Yours does not work right

7600 Very Light Jets in the sky...
7600 Very Light Jets...
Take one down, taxi it around...

7599 Very Light Jets in the sky...
7599 Very Light Jets...
Take one down, taxi it around...

7598 Very Light Jets in the sky...
7598 Very Light Jets...
Take one down, taxi it around...
Click to expand...

You are missing the line 'VLJ-1' Very light Jets in the sky after the 'take one down, taxi it around' line

It should look like this

7600 Very Light Jets in the sky...
7600 Very Light Jets...
Take one down, taxi it around...
7599 Very Light Jets in the sky.

7599 Very Light Jets in the sky...
7599 Very Light Jets...
Take one down, taxi it around...
7598 Very Light Jets in the sky.

7598 Very Light Jets in the sky...
7598 Very Light Jets...
Take one down, taxi it around...
7597 Very Light Jets in the sky.
Click to expand...
 
smigaldi said:
Yours does not work right

You are missing the line 'VLJ-1' Very light Jets in the sky after the 'take one down, taxi it around' line

It should look like this
Click to expand...

Bah. That's just because I don't know the song for crap. Here you go..fixed:
Code: 
<?php
for($i = 7600; $i >= 1; $i--) {
   if($i != 7600) {
      echo("$i Very Light Jets in the sky...<br><br>");
   }
   echo("$i Very Light Jets in the sky...<br>$i Very Light Jets...<br>");
   if($i!=1) {
      echo("Take one down,  taxi it around...<br>");
   } else {
      echo("Take one down,  pass it around...<br>");
      echo("No more Very Light Jets in the sky!");
   }
}
?>
http://dev.jesseangell.com/count.php
 
Some computer geeks just don't have any kind of life, do they?


(This coming from a recovering computer geek!)
 
And for all the dinosaurs out there.....

IDENTIFICATION DIVISION.
PROGRAM-ID. VLJ.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WORKING-STORAGE.
10 VLJ-COUNT PIC 9(6) VALUE 7600.

PROCEDURE DIVISION.
0000-MAIN-PROCESS.
PERFORM UNTIL VLJ-COUNT = 0
DISPLAY VLJ-COUNT ' Very Light Jets in the sky.'.
DISPLAY VLJ-COUNT ' Very Light Jets.'.
DISPLAY 'Take one down, taxi it around...'.
SUBTRACT 1 FROM VLJ-COUNT
DISPLAY VLJ-COUNT ' Very Light Jets in the sky.'.
END-PERFORM
STOP RUN.

Pete
 
From Jim on the AvSig board regarding the programing above <g>

Your friendly local English teacher is appalled at the programming skills displayed so far.

One must allow for the case of VLJ=1, wherein the text accompanying should read "jet" not "jets" in the sky.

You may have five minutes to debate whether the text should revert to "jets" when the count then iterates to zero.

(If it were a printout on my desk, I'd just write "agr" in the margin.)


Best,

Dave
 
Dave Siciliano said:
From Jim on the AvSig board regarding the programing above <g>

Your friendly local English teacher is appalled at the programming skills displayed so far.

One must allow for the case of VLJ=1, wherein the text accompanying should read "jet" not "jets" in the sky.

You may have five minutes to debate whether the text should revert to "jets" when the count then iterates to zero.

(If it were a printout on my desk, I'd just write "agr" in the margin.)


Best,

Dave
Click to expand...

D'OH.

I blame Scott for providing the original code. You know how he gets when he travels. ;)
 
Dave Siciliano said:
From Jim on the AvSig board regarding the programing above <g>

Your friendly local English teacher is appalled at the programming skills displayed so far.

One must allow for the case of VLJ=1, wherein the text accompanying should read "jet" not "jets" in the sky.

You may have five minutes to debate whether the text should revert to "jets" when the count then iterates to zero.

(If it were a printout on my desk, I'd just write "agr" in the margin.)


Best,

Dave
Click to expand...

FINE, i fixed it :)
 
The Cobol one ought to do it. Just fix the grammar on the last run.....

Pete
 
#include <stdio.h>

using namespace std;

int main(){
for(i=7600; i > 0; i--){
if(i > 1){
cout << i << " VLJs in the air" << endl;
cout << i << " VLJs" << endl;
cout << "Take one down, pass it around << endl;
cout << i - 1 << " VLJs in the air!" << endl;
}

else if(i == 1){
cout << "1 VLJ in the air\n1 VLJ\nTake one down, pass it around,\nNo more VLJs in the air!" << endl;
}
}
return 0;
}



Hmm... haven't done that in a while, hope it's right.
 
Last edited:
You must log in or register to reply here.
Back
Top