Pascal Cơ Bản

[nagianghi]

Hello BEGINNER! Please join this ROOM and talk about PASCAL!!!

[haplinhavxt]

It is very interesting, I like it. I think you too!

[nagianghi]

Phần bài tập có các đề này rất khó. Các bạn giúp nha!
Viết chương trình thể hiện dòng chữ
"DAY LA CHUONG TRINH PASCAL"
a)Chạy theo chiều thẳng đứng trên màn hình
b)Bằng cách đưa từng kí tự ra màn hình từ trái qua phải
c)Bằng cách đưa từng kí tự ra màn hình từ phải qua trái

[haplinhavxt]

Bạn kiếm mấy quyển sách cơ bản nói về pascal ấy, chắc có thôi!

[auauau97]

Phần bài tập có các đề này rất khó. Các bạn giúp nha!
Viết chương trình thể hiện dòng chữ
"DAY LA CHUONG TRINH PASCAL"
a)Chạy theo chiều thẳng đứng trên màn hình
b)Bằng cách đưa từng kí tự ra màn hình từ trái qua phải
c)Bằng cách đưa từng kí tự ra màn hình từ phải qua trái

Uses crt;
Const
s='DAY LA CHUONG TRINH PASCAL';
x=10000;{độ trễ của chương trình, muốn dòng chữ chạy nhanh hơn thì giảm x, muốn nhanh hơn thì tăng x}
Var
i:integer;
BEGIN
For i:=1 to 80 do
Begin
Clrscr;
Gotoxy(25,i);
Write(s);
Delay(x);
End;
For i:=1 to 80 do
Begin
Clrscr;
Gotoxy(i,11);
Write(s);
Delay(x);
End;
For i:=80 downto 1 do
Begin
Clrscr;
Gotoxy(i,11);
Write(s);
Delay(x);
End;
END.

[nagianghi]

Mình có bài tập là: Tính giai thừa n! với hàm và thủ tục.
Mình làm thế này nhưng nó cứ báo lỗi (ERROR 88: "(" EXPECTED), các bạn chữa giúp mình nha

PROGRAM GT;
USES CRT;
VAR N:INTEGER;
PROCEDURE NHAP;
BEGIN
CLRSCR;
WRITELN('NHAP N'); READLN(N);
END;
FUNCTION TINH (N:INTEGER):REAL;
VAR I:INTEGER;
BEGIN
TINH:=1;
FOR I:=1 TO N DO
TINH:=TINH*I;
END;
BEGIN
NHAP;
WRITELN(N,'! LA ',TINH(N):2:2);
READLN;
END.

[auauau97]

Mình có bài tập là: Tính giai thừa n! với hàm và thủ tục.
Mình làm thế này nhưng nó cứ báo lỗi (ERROR 88: "(" EXPECTED), các bạn chữa giúp mình nha

PROGRAM GT;
USES CRT;
VAR N:INTEGER;
PROCEDURE NHAP;
BEGIN
CLRSCR;
WRITELN('NHAP N'); READLN(N);
END;
FUNCTION TINH (N:INTEGER):REAL;
VAR I:INTEGER;
BEGIN
TINH:=1;
FOR I:=1 TO N DO
TINH:=TINH*I;
END;
BEGIN
NHAP;
WRITELN(N,'! LA ',TINH(N):2:2);
READLN;
END.

Mình đã trả lời bạn ở topic này:
http://www.ddth.com/showthread.php?p=2964124#post2964124