[ Tin học 11] Viết chương trình Pascal

[Lâm Băng Cự Giải]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

ai giúp em bài này với, mai kiểm tra rồi em chả hiểu gì cả
Bài 1:Cho tệp văn bản f1= 'Songuyen.tt' bao gồm hai dòng, dòng thứ nhất chứa số nguyên dương n, dòng thứ hai chứa n số nguyên dương, các số cách nhau bởi 1 dấu cách. Hãy viết chương trình đếm xem có bao nhiêu chữ số có tổng các chữ số là số hoàn hảo. Kết quả ghi vào tệp ' Ketqua.tt'
Bài 2: Cho xâu là 1 đoạn văn bản. Viét chương trình đếm xem xâu đó có bao nhiêu từ.

 

[Nguyễn Thánh Tiền]

ai giúp em bài này với, mai kiểm tra rồi em chả hiểu gì cả
Bài 1:Cho tệp văn bản f1= 'Songuyen.tt' bao gồm hai dòng, dòng thứ nhất chứa số nguyên dương n, dòng thứ hai chứa n số nguyên dương, các số cách nhau bởi 1 dấu cách. Hãy viết chương trình đếm xem có bao nhiêu chữ số có tổng các chữ số là số hoàn hảo. Kết quả ghi vào tệp ' Ketqua.tt'
Bài 2: Cho xâu là 1 đoạn văn bản. Viét chương trình đếm xem xâu đó có bao nhiêu từ.

+ ĐỊNH NGHĨA SỐ HOÀN HẢO??
+ ĐỊNH NGHĨA TỪ ?

 

[Lâm Băng Cự Giải]

+ ĐỊNH NGHĨA SỐ HOÀN HẢO??
+ ĐỊNH NGHĨA TỪ ?

số hoàn hảo là số có tổng các ước của nó bằng chính nó trừ số đó ra. Ví dụ: 28=1+4+7+14+2
Từ : Cộng hòa xã hội chủ nghĩa Việt Nam : có 8 từ

 

[pro3182001]

bài 2
Program Dem_So_Tu;
Uses Crt;
Var st:string;
i,dem:integer;

Begin
Clrscr;
Writeln(‘DEM SO TU TRONG CHUOI:’);
Write(‘Nhap chuoi: ‘);readln(st);
If st[1]=’ ‘ then dem:=0
Else
dem:=1;
For i:=1 to length(st)-1 do
If (st = ‘ ‘)and (st[i+1] ‘ ‘) then dem:=dem+1;
Writeln(‘So tu trong chuoi la: ‘,dem);

Readln;

End.

 

[pro3182001]

B2 uses crt;

var b,a:array[1..100] of integer;

i,m,n,k:integer;

function uoc (n:word) : word;

var i: longint;

dem :integer;

begin

dem:=0;

for i:=1 to n-1 do

if n mod i=0 then dem:=dem+i;

uoc:=dem;

end;

begin clrscr;

read(n);

for i:=1 to n do begin

readln(m);

a:=m;

end; k:=1;

for i:=1 to n do begin if uoc(a)=a then begin

b[k]:=a;

k:=k+1;

end; end;

for i:=1 to k-1 do write(b); delay(1000)

end.
chị tự sửa để đọc và lưu vào file nha

 

[Nguyễn Thánh Tiền]

bài 2
Program Dem_So_Tu;
Uses Crt;
Var st:string;
i,dem:integer;

Begin
Clrscr;
Writeln(‘DEM SO TU TRONG CHUOI:’);
Write(‘Nhap chuoi: ‘);readln(st);
If st[1]=’ ‘ then dem:=0
Else
dem:=1;
For i:=1 to length(st)-1 do
If (st = ‘ ‘)and (st[i+1] ‘ ‘) then dem:=dem+1;
Writeln(‘So tu trong chuoi la: ‘,dem);

Readln;

End.

chưa xét dấu cách cạnh nhau nhé

 

[Hoa Tử Anh]

chưa xét dấu cách cạnh nhau nhé

White pos(#32#32,S)<>0 do delete(s,pos(#32#32,s),1);
If s[1]=#32 then delete(s,1,1);
If s[length(s)]<>#32 then s:=s+' '
Sau đó duyệt từ đầu đến cuối gặp ' ' thì Inc(d)

 

[huutoan00]

If s[1]=#32 then delete(s,1,1);
If s[length(s)]<>#32 then s:=s+' '

chỗ này nên dùng While thì hơn, bởi vì có thể còn có nhiều dấu cách ở đầu, và cuối xâu cũng có thể có nhiều dấu cách nữa

While s[1] = #32 do delete(s,1,1);
While s[length(s)] = #32 do delete(s,1,1);
If s[length(s)] <> #32 then s:= s + ' ';

 

[Hoa Tử Anh]

Vòng White ở trên đã xử lí hết rồi bạn nên chỉ còn trường họp có 1 đấu cách đầu hoặc cuối thôi. Nếu đầu là dấu cách thì xoá. Nếu cuối k phải đấu cách thì cộng thêm vào đó 1 đấu cách