Bai nay rat hay. Thanks nhieu.
Bai nay rat hay. Thanks nhieu.
ai lam on pót 1 so bai pấcn mau duoc ko minh sap thi rui ma ko bit j het
ai giup duoc minh lam on gui qua mail cho minh nha haryporter_nguoitinhthuychung@yahoo.com.vn
Câu 1:
Viết chương trình nhập vào độ dài các cạnh của 2 hình chữ nhật. Cho biết có thể đặt một trong hai hình chữ nhật vào hình chữ nhật kia không.?
Câu 2:
Viết chương trình nhập từ bàn phím một xâu kí tự. In ra màn hình số từ của xâu (Từ được xem là một nhóm ký tự liền nhau không chứa ký tự trắng).
Ví dụ xâu nhập vào:
Lop toan A1 hoc phong 17
In ra màn hình số từ: 6
Câu 3:
Người ta lưu thông tin các cán bộ trong cơ quan vào fie có tên CANBO.DAT, mỗi cán 1 bộ là một bản gh gồm các trường: STT, Hoten, Ngaysinh, Diachi, HSLuong, HSPhucap, SoDT. Hãy viết chương trình thực hiện các yêu cầu sau:
a) Nhập danh sách cán bộ và lưu vào file, quá trình nhập dừng khi họ tên nhập vào là xâu rỗng và trường STT chưa gán.
b) In ra danh sách cán bộ có hệ số lương nằm trong khoảng từ x đến y, x và y là các số thực được nhập từ bàn phím khi thực hiện chương trình.
Mình giải Bài 1 và Bài 2 nhưng bị lỗi, còn bài 3 thì không biết.
Bạn nào cứu mình với nha.
Đây là bài giải:
Bài 1:
Program HCN;
{Nhap kich thuoc hinh chu nhat va kiem tra hinh nao nam trong}
Var
a1, a2, b1, b2: real;
Begin
Write(‘Nhap chieu dai HCN1: ‘);
Readln(a1);
Write(‘Nhap chieu rong HCN1:’);
Readln(b1);
Write(‘Nhap chieu dai HCN2:’)
Readln(a2);
Write(‘Nhap chieu rong HCN2:’);
Readln(b2);
Writeln(‘Ket qua cua bai toan:’);
If (a2>a1) and (b2>b1)
Then
Writeln(‘HCN1 co the dat trong HCN2’)
Else
If (a2<a1) and (b2<b1)
Then
Writeln(‘HCN2 co the dat trong HCN1’)
Else
If(a2=a1) and (b2=b1)
Then
Writeln(‘HCN1 trung HCN2’)
Else
If(a2>a1) and (b2<1) or (a2<a1) and (b2>b1)
Then
Writeln(‘Khong the long vao nhau’);
Writeln(‘--------------------------------‘);
End.
End.
Bài 2:
Program DEM_TU;
Var
St:String;
Function Sochu (Xau:string):integer;
Var
Dem, i: integer;
Begin
Dem:=0;
i:=1;
Repeat
While((Upcase(xau[i]<’A’) or (Upcase(xau[i]>’Z’))
And (I <=length(Xau)) Do
i:=i+1;
If i <=1 length(xau) then
Dem:=Dem + 1;
While ((upcase(xau[i])=>’A) and (upcase(xau[i])<=’z’))
And (i<=length(xau)) do i:=i+1;
Until i>length(xau);
So chu:=dem;
End;
{------------------------------------------}
Begin
Write(‘-Vui long nhap mot cau:’);
Readln(st);
Writeln(‘-Cau nay co: ‘, So chu (st), ‘tu’);
Readln.
End.
bài 1:
Lỗi vik ct khá nhiều , sai n~ cái đơn giản nhất ( thiếu readln ) . Ý tưởg của bạn khá rắc rối , phức tạp . N~ bài thế này đâu cần phải vik ct rườm rà thế . Khắc phục nha bạn .
bài 2:Code:var a,b,c,d:integer; begin writeln('nhap chieu dai hcn1 '); readln(a); writeln('nhap chieu rog hcn1 '); readln(b); writeln('nhap chieu dai hcn2 '); readln(c); writeln('nhap chieu rog hcn2 '); readln(d); if (a<=c) and (b<=d) then writeln('co the dat hcn1 trog hcn2') else if (a>=c) and (b>=d) then writeln('co the dat hcn2 trog hcn1') else writeln('k the dat 2 hcn vào nhau'); readln; end.
Code:var s:string; n,d,i:integer; begin writeln('nhap xau ki tu'); readln(s); if s[1]<>' ' then d:=1; for i:=2 to length(s) do if (s[i]<>' ') and (s[i-1]=' ') then inc(d); writeln('co ',d, ' chu'); readln; end.
Được sửa bởi hang_vt lúc 09:24 ngày 22-03-2009
co ai giup e voi! gio e dang ban lam nhung bai tap pascal ne nhung e dang gap nhieu vuon mac.
bai tap cua e ve tap hop do, bac nao giup voi !!
cái câu g của ma trận là xoắn từ ngoài vào trong là bắt đầu từ vị trí nào vậy? không thì khó làm lắm bạn ạ.
Bạn tải chuyên đề "Chuyển đổi hệ đếm trong Turbo Pascal 7.0", tài liệu do tôi viết để tham khảo nhé.
TURBO PASCAL 7.0
[=========> Bổ sung bài viết <=========]
Chương trình chuyển đổi hệ đếm trong TP7
http://download372.mediafire.com/yzg...ONG+TP+7.0.rar
Được sửa bởi quangdiemhp lúc 10:13 ngày 13-02-2009 Reason: Bổ sung bài viết
[=========> Bổ sung bài viết <=========]
[=========> Bổ sung bài viết <=========]
Spam vui thiệt Spam đi Spam Spam dkm thang nao` la`m admin va Mod
Được sửa bởi play lúc 09:14 ngày 22-03-2009 Reason: Bổ sung bài viết
Bài tính giai thừa kiểu này không ổn. Vì chỉ tính được số <=12 là cùng. Nếu bạn tính số n >=12 và có thể lên tới 100 hoặc lớn hơn thì có thể làm được bằng thuật toán này không?
Mọi góp ý, ý kiến xin chia sẻ qua mail quangdiem_hp@yahoo.com.vn
Được sửa bởi quangdiemhp lúc 11:20 ngày 07-05-2009
Bookmarks