yuong_zero

Ông giáo của mình cho bt về nhà nhưng mình ko biết làm mong ai biết làm thì làm giúp mình nhé, mình xin cảm ơn nhiều, năn nỉ đó, ko có chết mình đó, mong các bạn làm giúp mình
BT
Nhập danh sách hs gồm các thông tin(Họ tên, giới tính, địa chỉ, điểm toán, điểm văn, điểm trung bình, xếp loại).
1.Đưa ra màn hình tất cả các hs tiến tiến trở lên.
2.Sắp xếp hs theo vần A,B,C.
CÁm ơn nhìu nhìu

WilliamIII

điểm tb tinh = cach nao va = bao nhiêu để là hs tt vậy bạn??
có cần xét từng môn ko??
xài kiểu bảng ghi cũng khá đơn giản.

vugiaquyen_08

programe tui hong bit lam
var Idoneknow
begin
...........
end.

duvantan

sac như thế này làm sao làm đc,đề bài không rõ,không có các con số làm sao xếp loại đc,hay là họ bắt nhập tên trên màn hình sau khi chạy pascal

datcm1990

câu 1 thi tui có thể làm đc nhưng có vấn đề là điều kiện để xếp loại như thế nào
tính theo trung bình môn hay từng môn phải trên 6.5

trandua

Bạn ơi bạn thử chương trình này thử xem:
Program BaiTapPacal;
Type
ConTro:^HS
HS=Record;
HoTen:string[30];
GioiTinh:string[10];
DiaChi:string[30];
DToan:real;
DVan:real;
DTB:real;
XepLoai:string[20];
Link:ConTro;
End;
Var L:ConTro;
a: array[1..50] of ConTro;
i,n:integer;
Procedure Nhap;
Var P:ConTro
Begin
New(P);
Write(‘Nhập Số Học Sinh: ‘); readln(n);
For i:= 1 to n do
Begin
Writeln(‘Thông Tin Học Sinh Thứ ‘,i,’:’);
Write(‘Nhập Họ Và Tên Học Sinh: ‘); readln(P^.HoTen);
Write(‘Giới Tính: ‘);readln(P^.GioiTinh);
Write(‘Địa Chỉ: ‘);readln(P^.DiaChi);
Write(‘Điểm Toán: ‘);readln(P^.DToan);
Write(‘Điểm Văn: ‘);readln(P^.Dvan);
End;
End;
Procedure XepLoai;
Var P:ConTro;
Begin
P:=L;
P^.DTB:=(P^.DToan+P^.Dvan)/2;
Repeat
if P^.DTB>=6.5 then
begin
writeln(P^.HoTen);
writeln(P^.GioiTinh);
writeln(P^.DiaChi);
writeln(P^.DTB:0:3);
end;
P:=P^.Link;
until P=L;
End;
BEGIN
Nhap;
XepLoai;
Readln;
END.
Mình mới chỉ làm được câu 1 thôi, còn phần xếp loại thì bạn có thể tự làm cũng được nó đơn giản lắm!!Bạn chịu khó chạy thử nhé, máy của mình không có Pascal nên mình chưa chạy thử nó đâu!!

so_0_lanh_lung

ai có thể giải bải toán PT bậc 2 gồm cả 2 trường hợp a<>0 và a=0

Makarity1992

Ai la`m du`m e baj` nay...
cho 1 con so^' x va` day~ so' d[d1..dn].Ti`m so' y sao cho y>x va khac' voj d

VD 1
d:1 2 7
x:18
=>y=30
Vd 2
d:0 1 5 3 7
x:948
=>y=2222

Aj lam` dum e xjn cam? on truoc........

giangmeo

test thứ hai sai mất Y=999 chứ.
bài này hảy bạn bạn tìm số nhỏ nhất mà không có trong mà lớn hơn số đầu tiên của X.
bạn cứ làm như thế cho tới chử số cuối cùng của X.
nếu không có thì tìm min mà không chứa trong d.
nếu số đó min=0 thì tìm số thứ 2.
thề là đả có kết quả y:=min00000....
nếu số đó <>0 thì y:=minminmin.....

Makarity1992

uh` mjnh wen co so 9 trong d neu ban la`m goj` co j` cho mjnh xjn cạ test thx...

giangmeo

ôi tớ thì lười đánh lắm

Makarity1992

please uuu!!!!.............Thx truoc do'

giangmeo

bài nảy chỉ tìm min max la song ấy mà chịu khó đi