[Nhờ vả]Bài tập pascal

Các bác giúp e làm mấy bài tập này với, có thể là dễ nhưng e gà mờ nên đem hỏi, mod cho topic sống một lúc hộ e với :(
Viết chương trình pascal giải các bài toán sau

1. Có N công ty, biết tên công ty, doanh số bán hàng và tổng tất cả các khoản chi trong tháng của mỗi công ty. Tính và in ra tên các công ty kinh doanh có lãi trong tháng.
( lãi = doanh số - tổng chi)

2. Có N sinh viên gọi T1,T2,..Tn là điểm thi môn toán và Ten1, Ten2…Ten n là tên của các sinh viên 1,2,….N. Nhập số liệu và in ra tên của các sinh viên đạt loại giỏi môn này (điểm toán >8)

3. Có 1 tập phiếu thông tin về các công nhân,, biết tên công nhân, số lượng sản phẩm mà mỗi công nhân sản xuất ra, đơn giá tiền công của loại sản phẩm đó. Từ tập phiếu ấy , tính tiền lương nhận được của mỗi công nhân.
Biết: Tiền công = số lượng sản phẩm x đơn giá tiền công
Tiền lương = tiền công + tiền thưởng
Tiền công đạt trên 1 triệu rưỡi thì tiền t hưởng là 500 ngàn đồng
Tiền công đạt từ 500 ngàn đến 1 triệu rưỡi thì tiền thưởng là 200 ngàn đồng.

 

C còn biết chứ Pascal thì thua

 

em cũng có biết gì đâu, có đứa bạn nhờ :(

 

bạn nhờ mà mình ko biết thì mình toàn bảo là tao ko biết

 

bạn là gái nhờ đúng không

 

bảo bạn về mở sách phần record (bản ghi) ra đọc 1 lúc là làm được bài
ví dụ bài 1:
mỗi công ty là 1 bản ghi bao gồm 3 trường: tên cty, doanh số và tổng chi
dùng 1 vòng lặp for để duyệt hết các bản ghi 1 lượt, tính hiệu doanh số - tổng chi > 0 = có lãi --> in tên ra

 

Không biết thì nói là không biết chứ mắc mớ gì phải rướt của nợ thế

 

bài này không cần bản ghi gì đâu, cứ dùng mảng được rồi

 

pascal học lâu quá rồi, chả nhớ. dạng bài đúng là phần cho record

 

code chay chưa compile đâu . 3 năm nay ko động vào pascal quên hết roài :(

Mã:

program bai1;
uses crt;
type Tencty = array[1..20] of char;
	 CongTy = record
				Ten : Tencty;
				Thu : longint;
				Chi : longint;
				Lai : longint;
			   end;
var cty : array[1..200] of CongTy;
	i, n : integer;
procedure Nhap()
 begin
	for i := 1 to n do
	 begin
	   writeln('Nhap so lieu cong ty thu ', i);
	   write('Ten: '); readln(cty[i].Ten);
	   write('Doanh so ban hang: '); readln(cty[i].Thu);
	   write('Tong cac khoan chi: '); readln(cty[i].Chi);
	   cty[i].Lai = cty[i].Thu - cty[i].Chi;
	 end;
 end;
 
procedure InDanhSach()
 begin
    for i := 1 to n do
		if (cty[i].Lai > 0) then
			writeln(cty[i].Ten);
 end;
 
BEGIN
	write('Nhap so cong ty: '); readln(n);
	writeln('Nhap so lieu cac cong ty');
	Nhap();
	writeln('Danh sach cong ty co lai');
	InDanhSach();
	readln;
END.

p/s: bài 2,3 tương tự, nếu bạn của bạn là gái (ko phải cá sấu nhé) thì mật thư cho mình, mình sẽ tận tình hướng dẫn

 

mấy kiểu nhờ vả làm bài ko được hoan nghênh. Kiểu này ngày nào cũng có người lên nhờ làm văn, làm toán các kiểu thì loạn mất.