Đề thi pascal khẩn cấp

- 0 / 0
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Võ Phi Hùng (trang riêng)
Ngày gửi: 17h:38' 21-04-2012
Dung lượng: 20.0 KB
Số lượt tải: 13
Nguồn:
Người gửi: Võ Phi Hùng (trang riêng)
Ngày gửi: 17h:38' 21-04-2012
Dung lượng: 20.0 KB
Số lượt tải: 13
Số lượt thích:
0 người
Đề thi phần mềm pascal
Đề nghị các em từ học và làm gấp cho thầy các dạng bài tập pascal sau và gửi qua mail nghilientpv@gmail.com sớm nhất có thể trước 20 giờ ngày 22 / 4 / 2012.
Bài 1: Tính tổng a + b + c = d;
Bài 2: Tính tích a * b * c = d;
Bài 3: Tính tích a + b * c - d = e;
Bài 4: Tính tích a - b - c = d;
Đề nghị các em từ học và làm gấp cho thầy các dạng bài tập pascal sau và gửi qua mail nghilientpv@gmail.com sớm nhất có thể trước 20 giờ ngày 22 / 4 / 2012.
Bài 1: Tính tổng a + b + c = d;
Bài 2: Tính tích a * b * c = d;
Bài 3: Tính tích a + b * c - d = e;
Bài 4: Tính tích a - b - c = d;






thây
trog baj
đên' đoạn nj ko biết lam` sao nữa cả:
program tong;
var
a,b,c,d:integer;
begin
write('nhap a=');readln(a);
Write('nhap b=');readln(b);
write('nhap c=');readln(c);
a+b+c-d=...; đoạn nj lam
write('nhap d=');readln(d);
end
thây
trog baj
đên' đoạn nj ko biết lam` sao nữa cả:
program tong;
var
a,b,c,d:integer;
begin
write('nhap a=');readln(a);
Write('nhap b=');readln(b);
write('nhap c=');readln(c);
a+b+c-d=...; đoạn nj lam
write('nhap d=');readln(d);
end
thây
trog baj
đên' đoạn nj ko biết lam` sao nữa cả:
program tong;
var
a,b,c,d:integer;
begin
write('nhap a=');readln(a);
Write('nhap b=');readln(b);
write('nhap c=');readln(c);
a+b+c-d=...; đoạn nj lam
write('nhap d=');readln(d);
end
mấy bai` sau em làm ri đúng chưa thầy
thây
trog baj
đên' đoạn nj ko biết lam` sao nữa cả:
program tong;
var
a,b,c,d:integer;
begin
write('nhap a=');readln(a);
Write('nhap b=');readln(b);
write('nhap c=');readln(c);
a+b+c-d=...; đoạn nj lam
write('nhap d=');readln(d);
end
mấy bai` sau em làm ri đúng chưa thầy:
program tich;
var
a,b,c,d:integer;
begin
write('nhap a=');readln(a);
write('nhap b=');readln(b);
write('nhap c=');readln(c);
d:=a*b*c;
write('tich d=',d);readln;
end.
sax