[ Tin học 8 ] Lập chương trình Pascal.

[maidoany_nhi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Đề:

Viết chương trình:
+ Nhập năm sinh, năm hiện tại từ bàn phím.
+ Tính tuổi của người đo.
+ Kiểm tra xem năm sinh có chia hết cho 3 không ?

* Ai giúp gấp với, sáng nay mình cần để thi rồi * (

 

[lamdetien36]

Sao thi sớm thế

var
    n_s, n_h: integer;
begin
    write('Nhap Nam Sinh    : '); readln(n_s);
    write('Nhap Nam Hien Tai: '); readln(n_h);
    writeln('Tuoi La ', n_h - n_s);
    if n_s mod 3 = 0 then
        writeln('Nam Sinh Chia Het Cho 3')
    else
        writeln('Nam Sinh Khong Chia Het Cho 3');
    readln
end.

 

[maidoany_nhi]

Em thi xong rồi, nhưng rất tiếc..... thi xong rồi a mới giải
Đáp án mà em đã làm và nhận ngay con 10 ) ( mừng tóa ^^!)

Program  Ct_Dau_Tien;  ( cái nì tên chi cũng đc :D)
Uses  Crt;
Var  namsinh: integer;
       namhientai: integer;
       tuoi: integer;
Begin
Clrscr;
Write('Nhap nam sinh:'); Readn( namsinh );
Write('Nhap nam hien tai:'); Readln( namhientai );
tuoi:= 2013 - namsinh;
Writeln( Tuoi cua nguoi do la:'); Readln( tuoi );
If namsinh mod 3 = 0 then writeln ( ' Nam sinh chia het cho 3 ' ) 
else writeln( ' Nam sinh khong chia het cho 3 ' );
Readln;   ( dòng này a thiếu dấu ; )
End.

Thân ~ Nhi

 

[biobaby]

Readln; ( dòng này a thiếu dấu ; )

- Không dấu ; cũng không sao đâu bạn.

tuoi:= 2013 - namsinh;

- Theo mình thì nên để là biến namhientai thay vì 2013 bạn ơi.

P/s: chưa kịp viết chương trình thì anh kia đã viết mất rồi.

 

[lamdetien36]

Em thi xong rồi, nhưng rất tiếc..... thi xong rồi a mới giải
Đáp án mà em đã làm và nhận ngay con 10 ) ( mừng tóa ^^!)

Program Ct_Dau_Tien; ( cái nì tên chi cũng đc )
Uses Crt;
Var namsinh: integer;
namhientai: integer;
tuoi: integer;
Begin
Clrscr;
Write('Nhap nam sinh:'); Readn( namsinh );
Write('Nhap nam hien tai:'); Readln( namhientai );
tuoi:= 2013 - namsinh;
Writeln( Tuoi cua nguoi do la:'); Readln( tuoi );
If namsinh mod 3 = 0 then writeln ( ' Nam sinh chia het cho 3 ' )
else writeln( ' Nam sinh khong chia het cho 3 ' );
Readln; ( dòng này a thiếu dấu ; )
End.

Thân ~ Nhi

Lệnh cuối cùng trước end không cần dấu ; kể cả trong chương trình chính hay chương trình con :| Không tin cứ việc chạy thử trên Pascal là biết
Mà bài của em đúng ra là có sai 1 chút đấy

tuoi := 2013 - namsinh;

Đúng ra phải là:

tuoi := namhientai - namsinh;

 

[maidoany_nhi]

tuoi: = 2013 - namsinh;

=> Đúng đấy ạ.

Hùi trước e cũng làm tuoi:= namhientai - namsinh;
Nhưng bị ông thầy " quốc " cho con 3 (
Nên rút kinh nghiệm

Readln;

=> hi cái này em k bek >.< Mà chắc bạn đúng

 

[lamdetien36]

=> Đúng đấy ạ.

Hùi trước e cũng làm tuoi:= namhientai - namsinh;
Nhưng bị ông thầy " quốc " cho con 3 (
Nên rút kinh nghiệm


=> hi cái này em k bek >.< Mà chắc bạn đúng

Thì đơn giản là bạn phải theo thầy bạn Nhưng mà nói chung viết là namhientai - namsinh vẫn đúng nhất

 

[thienvamai]

*bắt bẻ mode* lấy năm trừ năm là sai nhá, phải xét xem qua ngày sinh hay chưa mới đúng