Pascal problems

desasteraang — Sat, 27 Jul 2013 21:40:49 +0800

Hi guys,

can you guys help me with this problem.I tried compiling it and works just fine.The problem is that when it wants to display the output.The command prompt appear and disappear quickly.I'm still new in pascal

here's the code:

CODE

Program carkereta;

Type
carInfo = Record
carPlat : string[7];
milage, fuel: real;
End;

Var
CarRec : Array[1..5] of carInfo;
i,y,cars: integer;
value,total,avg:real;

function readData(var x: integer):carInfo;
Begin
for y :=1 to 5 do begin
Readln(CarRec[x].carPlat);
Readln(CarRec[x].milage);
Readln(CarRec[x].fuel);
end;
End;

function calc():carInfo;
begin
value:=CarRec[i].milage/CarRec[i].fuel;
end;

Begin

cars:=5;
readData(cars);

writeln('(Car Plate Num) (KM per liter)');
writeln('------------------------------');
For i := 1 to 5 do
begin
calc();
writeln(CarRec[i].carPlat,' ',value);
total:=total+value;
End;
avg :=total/5;

writeln('The average km per liter:',avg);
Readln;
End.

Java Input

desasteraang — Thu, 14 Feb 2013 23:12:15 +0800

hi guys, from this segment of code,

for(int i=0;i<3;i++)
{System.out.print("faculty code:");
fc=in.nextLine();

System.out.print("faculty Name:");
fn=in.nextLine();

System.out.print("Dean Name:");
fd=in.nextLine();

System.out.print("number of lecturer:");
l=in.nextInt();

System.out.print("number of undergraduates:");
u=in.nextInt();

System.out.print("number of postgraduates:");
p=in.nextInt();

Faculty faculty=new Faculty(fc,fn,fd,l,u,p);
FacultyArrayList.add(faculty);}

i was wondering why when it loops for the 1st time it was ok..
but when it looped for 2nd and 3rd time the output in cmd is like this

faculty code:faculty Name:

the output goes in one line
why did this happen? i'm kinda confused right now

Lowyat.NET: Latest topics by desasteraang

Pascal problems

Java Input