topic này của bartender nhờ lập giùm nhé Tình hình là không còn ai để nhờ,mấy thằng bạn học cntt k ai nhớ cả,FE cũng thế Nên chui vô hỏi AE thôi .Ai giúp được mình mời chầu café [cho bạn chọn quán luôn] câu 1 : Viết CT hoàn chỉnh nhập vào 1 số X bất ỳ ko quá 45 ký tự.Xử lý và xuất ra mh: Độ dài của xâu,Xuất ra mh theo thứ tự ngược lại,xuất xâu X in hoa,Đếm xem xâu X có bao nhiêu ký tự A câu 2 : Viết ct nhập vào n dày số nguyên (n<=50).Tính và xuất ra mh Số lượng số lẻ,số lượng số chẵn,GTNN và vị trí của nó câu 3 : Viết CT nhập vào 1 lớp n học sinh (n<=60).HS có các thuộc tính sau : họ tên,ngày sinh,toán,văn,anh văn,ĐTB,Xếp loại.Xử lý và xuất ra thông tin và xếp loại của hs Biết DTB >=8,các môn còn lại >=6.5 => giỏi 8>DTB >=7,các môn còn lại >=5.0 => khá 7>DTB >=5,các môn còn lại >=6.5 => TB còn lại Yếu AE giải xong pm profile để lại sđt nhé nếu k ở SG thì hậu tạ = 1 cảd đt 50k
cần gấp thì coi làm gì Mà chỉ con bé xong rồi có dùng tới nửa đâu thì động lưc cho AE + coi như giao lưu luôn
Mấy cái này chỉ là bài tập lập trình đơn giản. AI biết sẽ làm nhanh cho bạn thôi. Yên tâm đi. MÌnh học lâu rồi, cũng 1 thời đam mê lập trình, nhưng cũng chỉ để giải trí. Giờ thì cũng quên lệnh rồi.
Câu 1 thì tham khảo lại các hàm xử lý của Pascal với string xem , hình như có hàm trả về độ dài string , bí quá xài mảng mà duyệt Câu 2 làm mảng rồi dùng hàm lặp for duyệt từ 1 đến n thôi Câu 3 ... chắc vẫn là array , vừa nhập vừa dùng if kiểm tra điều kiện rồi gán giá trị ... Sơ sài thì là thế , bạn hỏi giải thuật thì được chứ câu lệnh thì chịu Avatar giống hệt nhau ...
Giúp tớ nào quên sạch rồi,cậu nói thế tớ chịu biết là dùng những cái đó nhưng viết ct hoàn chỉnh thì k đc
đề này e nó làm k nổi đâu cũng từng học tuyển tin như chú a biết mà giờ 5 6 năm k dùng quên cmnr giúp ta đi bão fan MU luôn mà
Post hộ Haseo4ever: Bài 1 [spoil]program bai1; var xau: string[45]; i,x,dem: integer; begin write ('Nhap xau:'); readln(xau); x:=length(xau); writeln('Do dai cua xau la: ',x); { tìm độ dài xâu} for i:= length(xau) downto 1 do write(xau); { viết ngược xâu} for i:=1 to length(xau) do xau := upcase(xau); write(xau); {viết hoa xâu} dem:=0 for i:=1 to length(xau) do if xau = 'A' then dem := dem + 1; write('So lan xuat hien ki tu A la: ', dem); {đếm số lần xuất hiện kí tự A trong xâu} readln end.[/spoil] Bài 2: [spoil]program bai2; var i,n,soluongsole,soluongsochan,min,csmin:integer; a :array[1..50]; begin write('Nhap so luong cac so:');readln(n); for i:=1 to n do begin write('Nhap so' thu' ', i); readln(a); end; soluongsole:=0; soluongsochan:=0; for i:=1 to n do if a mod 2 = 1 then soluongsole:=soluongsole + 1 ; writeln('So luong so le la: ', soluongsole); if a mod 2 = 0 then soluongsochan:=soluongsochan + 1; writeln('So luong so chan la: ', soluongsochan); min:= a[1] csmin:= 1 for i:= 1 to n do if a < min then begin min := a; csmin:= i; end; writeln('Gia tri nho nhat la: ', min); writeln('Vi tri cua no la: ', csmin); readln end.[/spoil] Đề bài 3 chưa chặt chẽ
