I've always wondered why they don't start off on C/C++ but it seems to be the decent unis that don't. In Glasgow Uni we are doing Ada which tbh nobody uses, runs a few boeings but how many ppl are gonae be doin that? Once you learn the fundamentals in whatever language you can apply them to any language very easily. I kno that in no quite as good uni's they get taught every language under the sun but porbably don't hav a deep understanding of how to program properly.

quote:

---

Originally posted by 1800ed

quote:

---

Originally posted by VisibleMan

quote:

---

Originally posted by 1800ed
Dlephi is a training language, used to be called Pascal (I think) I don't think many commercial programs are written in it. But it's a good way to learn object orientated programming....

---

pascal was shocking...you might as well had learnt ASM and writen machine code yourself :lol:

yea i can see why its good to learn with, but surely it would better to start people with C/C++ as its the most useful language to know, and will help you 10 fold more than knowing delphi will :boggle:

---

Well for my AS Level and A level in Computer Science I had to learn Q Basic. Yes that was last year.... :lol:

You are right though, after learning PHP I realised tat it was very similar to C, and now i'm gonna give C++ another shot... C would be the best language to learn in all honesty :)

---

quote:

---

Originally posted by VisibleMan

quote:

---

Originally posted by 1800ed
Dlephi is a training language, used to be called Pascal (I think) I don't think many commercial programs are written in it. But it's a good way to learn object orientated programming....

---

pascal was shocking...you might as well had learnt ASM and writen machine code yourself :lol:

yea i can see why its good to learn with, but surely it would better to start people with C/C++ as its the most useful language to know, and will help you 10 fold more than knowing delphi will :boggle:

---

Put the programming away lads, uni is not for another 2 hours :lol: :o

quote:

---

Originally posted by 1800ed
Dlephi is a training language, used to be called Pascal (I think) I don't think many commercial programs are written in it. But it's a good way to learn object orientated programming....

---

Dlephi is a training language, used to be called Pascal (I think) I don't think many commercial programs are written in it. But it's a good way to learn object orientated programming....

quote:

---

Originally posted by 1800ed

quote:

---

Originally posted by VisibleMan
how crap is that VB would be -

code:


Dim strPrice as String

If Weekday(Now) >= 2 And Weekday(Now) <= 6 Then

    strPrice = "£5 All Day"

Else

    strPrice = "Adults £10, Children £5"

End If

couldnt get any easier if you tried :lol:


oh wells mate, good luck ;)

---

PHP would be the same :)

---

quote:

---

Originally posted by VisibleMan
how crap is that VB would be -

code:


Dim strPrice as String

If Weekday(Now) >= 2 And Weekday(Now) <= 6 Then

    strPrice = "£5 All Day"

Else

    strPrice = "Adults £10, Children £5"

End If

couldnt get any easier if you tried :lol:


oh wells mate, good luck ;)

---

quote:

---

Originally posted by PaulW
gota admit tho, tis messy :P

try using FUNCTIONS instead of just PROCEDURES to retrieve input values, etc... or to do long calculations

---

Delphi 7 eh :lol::lol: i aint been doing that stuff for nearly 2 years and im a chef now so wont use it :lol:

program PreAssess (input,output);
VAR day,adults,price,children,noadults,nochildren,costofadults,costofchildren,totalcost,weekday:real;

PROCEDURE Getday;
BEGIN
writeln('Welcome to Super-Slides!');
writeln('Please press A for Weekday, or B for Weekend pricing');
readln(day);
end;

PROCEDURE Getprice;
BEGIN
IF day=A THEN
children=5;
adults=10;

IF day=B THEN
children=5;
adults=5;
END

PROCEDURE Getnochildren;
begin
writeln('Please enter number of children');
readln(nochildren);
writeln;
END;

PROCEDURE Getcostofadults;
begin
costofadults:=noadults*10;
writeln;
END;

PROCEDURE Getcostofchildren;
begin
costofchildren:=nochildren*5;
writeln;
END;

PROCEDURE Gettotalcost;
begin
totalcost:=(costofadults+costofchildren);
END;

{$APPTYPE CONSOLE}

begin
{ TODO -oUser -cConsole Main : Insert code here }
Getday;
Getnochildren;
Getcostofadults;
Getcostofchildren;
Gettotalcost;
writeln(totalcost:3:2);
readln;

END.

:lol:

prefer it over VB, mainly cos you dont also distribute a billion DLL's & half your hard-drive with the program you make

Its Delphi 7 now old man :lol:

I cant believe i still understand all that stuff :) i could never be bothered with Delphi. Got a copy of Delphi 4 somewhere in my room :)

gota admit tho, tis messy :P

try using FUNCTIONS instead of just PROCEDURES to retrieve input values, etc... or to do long calculations

Cheating bastid :P:P:lol:

code:
program PreAssess1.2 (input,output); 



VAR

  day,noadults,nochildren,costofadults,costofchildren,totalcost,weekday:real; 



PROCEDURE Getday 

begin 

  writeln('Welcome to Super-Slides!'); 

  writeln('Please press A for Weekday, or B for Weekend pricing'); 

  readln(day); 

end; 



PROCEDURE Getnochildren; 

begin 

  writeln('Please enter number of children'); 

  readln(nochildren); 

  writeln; 

end; 



PROCEDURE Getcostofadults; 

begin 

  costofadults:=noadults*10; 

  writeln; 

end; 



PROCEDURE Getcostofchildren; 

begin 

  costofchildren:=nochildren*5; 

  writeln; 

end; 



PROCEDURE Gettotalcost; 

begin 

  totalcost:=(costofadults+costofchildren); 

end; 



{$APPTYPE CONSOLE} 



begin 

  { TODO -oUser -cConsole Main : Insert code here } 

  Getday; 

  IF day = A then Begin

    {Insert the code here for the Day = A thing}

  End else Begin

    {Insert the code here for the Day <> A thing}

  End;

  Getnochildren; 

  Getcostofadults; 

  Getcostofchildren; 

  Gettotalcost; 

  writeln(totalcost:3:2); 

  readln; 

end.

how crap is that VB would be -

code:


Dim strPrice as String

If Weekday(Now) >= 2 And Weekday(Now) <= 6 Then

    strPrice = "£5 All Day"

Else

    strPrice = "Adults £10, Children £5"

End If

your if statement is in the wrong place, hence why your probably get compile errors if you try to test it.

Yeah so far got...

quote:

---

program PreAssess1.2 (input,output);
VAR day,noadults,nochildren,costofadults,costofchildren,totalcost,weekday:real;

PROCEDURE Getday
begin
writeln('Welcome to Super-Slides!');
writeln('Please press A for Weekday, or B for Weekend pricing');
readln(day);
end;

IF day = A
then

PROCEDURE Getnochildren;
begin
writeln('Please enter number of children');
readln(nochildren);
writeln;
end;

PROCEDURE Getcostofadults;
begin
costofadults:=noadults*10;
writeln;
end;

PROCEDURE Getcostofchildren;
begin
costofchildren:=nochildren*5;
writeln;
end;

PROCEDURE Gettotalcost;
begin
totalcost:=(costofadults+costofchildren);
end;

{$APPTYPE CONSOLE}

begin
{ TODO -oUser -cConsole Main : Insert code here }
Getday;
Getnochildren;
Getcostofadults;
Getcostofchildren;
Gettotalcost;
writeln(totalcost:3:2);
readln;

end.

---

never used delphi :boggle:
THIS may help though mate :)

but thinking about it should be something like this -

code:


var

curDate : TDateTime;

strPrice :Word;

Day : array[1..7] of interger;



begin



curDate := Now;

day[1] := 1;

day[2] := 2;

day[3] := 3;

day[4] := 4;

day[5] := 5;

day[6] := 6;

day[7] := 7;



If Day[DayOfTheWeek(CurDate)] >= 1 And Day[DayOfTheWeek(CurDate)] <= 5 then

strPrice := '£5 All Day'

else

strPrice := 'Adults £10, Children £5'



end;

Little help? :lol:

lol not exactly hard lad :lol:

Need to write a program with IF statements.

Mon - Fri its all £5

Sat - Sun
Adults £10
Child £5

:rolleyes:

[Edited on 04-10-2004 by J-Me]