Tin học Viết chương trình pascal (cần gấp)

[elisabeth.2507]

[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.

lập trình hộ mk với, bữa ni ktra mà chưa pit làm:
lập trình đọc từ bàn phím thứ của ngày hôm nay, đọc thêm n ngày tiếp theo. in ra màn hình thứ của sau n ngày

 

[Lục Vân Tiên]

code đây nha bạn:

program Thu_ngay;
uses crt;
var t,n,i:integer;
begin
write('Cho n = );readln(n);
write('Hom nay la ngay ');readln(t);
for i:=1 to n do writeln('Ngay tiep theo la ngay ',t+i);
write('Sau n la ngay ',t+n+1);
readln;
end.


Xin lỗi bạn nha, nếu là thứ thì không chính xác lắm nên mình chuyển sang làm ngày.

 

[Deathheart]

lập trình hộ mk với, bữa ni ktra mà chưa pit làm:
lập trình đọc từ bàn phím thứ của ngày hôm nay, đọc thêm n ngày tiếp theo. in ra màn hình thứ của sau n ngày

đây bạn ui ^^
const thu:array[1..7]of string=('hai','ba','tu','nam','sau','bay','chu nhat');
var s:string;
i,j,kq,n:integer;
begin
write('hom nay la thu: ');
readln(s);
for i:=1 to 7 do
if thu=s then j:=i;
write('so ngay tiep theo: ');
readln(n);
j:=j+n;
kq:=j mod 7;
write('sau ',n,' ngay la thu ',thu[kq]);
readln;
readln;
end.