Pascal

[p3nh0ctapy3u]

[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 pascal cho bài sau
Nhập 1 số bất kì từ 2 dến 8. Hãy hiển thị ra màn hình thứ tương ứng với số vừa nhập .Ví dụ
Số vừa nhập là 2 thì hiển thị thứ 2
Số vừa nhập là 3 thì hiển thị thứ 3...
Số vừa nhập là 8 thì hiển thị chủ nhật
Giúp mình với nhé .Thanks nhiều '

 

[thienluan14211]

Có thể sử dụng lệnh if - else hoặc case

 

[lamdetien36]

var
	n: integer;
begin
	write('Nhap Mot So Nguyen: '); readln(N);
	case N of
		2: writeln('Thu Hai');
		3: writeln('Thu Ba');
		4: writeln('Thu Tu');
		5: writeln('Thu Nam');
		6: writeln('Thu Sau');
		7: writeln('Thu Bay');
		8: writeln('Chu Nhat');
	end;
	readln
end.

 

[thienluan14211]

var
    n: integer;
begin
    write('Nhap Mot So Nguyen: '); readln(N);
    case N of
        2: writeln('Thu Hai');
        3: writeln('Thu Ba');
        4: writeln('Thu Tu');
        5: writeln('Thu Nam');
        6: writeln('Thu Sau');
        7: writeln('Thu Bay');
        8: writeln('Chu Nhat');
    end;
    readln
end.

Bạn nên thêm

else writeln('So vua nhap khong hop le');

trước

    end;
    readln
end.

 

[lamdetien36]

Bạn nên thêm

else writeln('So vua nhap khong hop le');

trước

    end;
    readln
end.

Nguyên tắc là số nhập vào luôn phải thoả mãn giới hạn của đề ("Nhập 1 số bất kì từ 2 dến 8"), nên việc kiểm tra hợp lệ là không cần thiết, trừ khi đề yêu cầu, hoặc khi thi HSG tin :|

 

[p3nh0ctapy3u]

Cho mình hỏi 1 bài nữa :''>
Nhập 4 số bất kì từ bàn phím .Hãy hiển thị ra màn hình số lớn nhất trong 4 số đã nhập
Câu này làm thế nào ? Mình mù pascal (

 

[lamdetien36]

Cho mình hỏi 1 bài nữa :''>
Nhập 4 số bất kì từ bàn phím .Hãy hiển thị ra màn hình số lớn nhất trong 4 số đã nhập
Câu này làm thế nào ? Mình mù pascal (

var
    a, b, c, d, max: integer;
begin
    write('Nhap So Thu Nhat: '); readln(a); max := a;
    write('Nhap So Thu Hai : '); readln(b); if b > max then max := b;
    write('Nhap So Thu Ba  : '); readln(c); if c > max then max := c;
    write('Nhap So Thu Tu  : '); readln(d); if d > max then max := d;
    write('So Lon Nhat La: ', max);
    readln
end.

Đúng ra chi cần 2 biến

 

[p3nh0ctapy3u]

write('So Lon Nhat La: ', max);

Cái chỗ này là sao hả e ?

 

[lamdetien36]

Cái chỗ này là sao hả e ?

Cái chương trình em viết ở trên là thế này:
- Nhập a, gọi max hiện tại là a.
- Nhập b, nếu b > max thì gán lại max <-- b
- Nhập c, nếu c > max thì gán lại max <-- c
- Nhập d, nếu d > max thì gán lại max <-- d.
Như vậy cuối cùng biến max sẽ mang giá trị lớn nhất của 4 số a, b, c, d nhập vào