TIN HỌC 11(các bạn lớp 11 vào đây để xem có BT mình định hỏi chưa nha )

[tungthanh500]

Bài 4.38 SBT tin học 11 nói về việc tìm số lần lặp của 1 kí tự trong xâu. Theo giải thì nó nói dùng hàng rào kĩ thuật của bài 4.35 và 4.34, mình hiều 2 bài đó nhưng không biết áp dụng sao cho bài 4.38

[=========> Bổ sung bài viết <=========]

Em nay nay học 11, ở quê em tới 11 mới học pascal cơ nên em còn gà lắm.Có mấy bài này mong các bác chỉ giúp:
1.Nhập vào 1 xâu
a.Xóa các ký tự trống chỉ chừa lại 1 ký tự trống giữa các từ
b.Đếm số loại chữ cái tiếng anh trong xâu
( tức là khi nhập vào 1 xâu như thế này:' asd 23g hj " thì máy sẽ cho ra xâu như thế này 'asd 23g hj' cùng với câu 'có 6 loại chữ cái')
2.Tạo mảng vuông số nguyên kích thước N
a.tính trung bình các phần tử chẵn
b.tính tổng các phần tử ở đường chéo chính, tam giác trên
c.tìm phần tử max
d.xắp xếp các phần tử theo chiều ko giảm
Mong mọi người chỉ giúp em,cặn kẽ 1 tí.Em cảm ơn trước

1.
Uses Crt;
Var st:string;
i,x: integer;
Begin
Write('Nhập xâu:');readln(st);
{Xóa dấu cách theo SBT mình chưa làm bao giờ nhưng cũng thử xem sao =.=}

Repeat
x:=pos(' ',st);{Khoảng trống là '__' không phải là '_'}
delete(st,x,1);
Until x:=0;

{Đếm chữ cái}
dem:=0;
For i:=1 to length(n) do
Begin
x:=ord(st[i]);
If (64 < x and x < 91) or (96 < x and x< 123) then dem:=dem + 1;
End;
readln;
end.

[truc ly]

hic co bác nào rảnh ko giải giùm e bài tập này với :
Hãy viết thủ tục ChuChay(s,dong) nhận đầu vào là xâu s gồm không quá 79 ký tự và biến nguyên "dong" , đưa ra xâu s có dạng chữ chạy ở dòng 'dong'. Viết và chạy chương trình có sử dụng thủ tục này .

[changkho67]

trả lời giùm bạn trúc ly ^^

program binh;
uses crt;
var s1,s2:string;
i,l,n:integer;
procedure chuchay(s1:string;n:integer);
begin
clrscr;
l:=length(s1);
repeat
for i:=2 to 80- l do
begin
clrscr;
gotoxy(i,n);
write(s1);
delay(10000);
end;
for i:=81-l to 80 do
begin
s2:=s1[length(s1)]+s2;
gotoxy(1,n);
write(s2);
delete(s1,length(s1),1);
gotoxy(i,n);
write(s1);
delay(10000);
clrscr;
end;
s1:=s2;
s2:='';
until keypressed;
end;
{-----------------------------------------------}
begin
clrscr;
write('nhap chuoi s:');readln(s1);
write('nhap so dong:');readln(n);
chuchay(s1,n);
readln;
end.

bài mình làm còn nhìu chổ sai xót (ví dụ như lúc thoát chương trình^^ và còn nhìu lổi nửa ^^!)mong bạn chỉnh xửa lại dùm ^^!
lâu rùi ko làm pascal nên wen hết rùi,mong bạn thông củm nha ^^

[cupidangel3112]

2222222222222!
Các bạn giai giúp mình bài tập này với:
Nhập xâu bất kì, viết chương trình xóa các dấu cách ở đầu xâu và cuối xâu, sau đó, thay thế các dấu cách liên tiếp bằng 1 dấu cách.
Mình làm bài này theo câu lệnh while...do... nhưng ko chạy. Chắc lỗi gì rồi. Các bạn chỉ giúp cho mình với. Thanks trước nha.

[huysun]

2222222222222!
Các bạn giai giúp mình bài tập này với:
Nhập xâu bất kì, viết chương trình xóa các dấu cách ở đầu xâu và cuối xâu, sau đó, thay thế các dấu cách liên tiếp bằng 1 dấu cách.
Mình làm bài này theo câu lệnh while...do... nhưng ko chạy. Chắc lỗi gì rồi. Các bạn chỉ giúp cho mình với. Thanks trước nha.

tui lại quay lại đây xì pam nè.
bạn đưa bài ra để mọi người kiểm tra cho, nếu không thì chịu khó search 1 lúc, sẽ thấy vài bài giống hệt.

[quangdiemhp]

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

[ngmanhtuan]

2222222222222!
Các bạn giai giúp mình bài tập này với:
Nhập xâu bất kì, viết chương trình xóa các dấu cách ở đầu xâu và cuối xâu, sau đó, thay thế các dấu cách liên tiếp bằng 1 dấu cách.
Mình làm bài này theo câu lệnh while...do... nhưng ko chạy. Chắc lỗi gì rồi. Các bạn chỉ giúp cho mình với. Thanks trước nha.

to cupidangel3112
mình làm thế này
for i:=1 to length(s) do
begin
if s[i]=' ' then
begin
while s[i+1]=' ' do for j:=i to length(s) do s[j]:=s[j+1);
end;
end;
đấy bạn chỉ cần in nữa thôi là xong

[muatuyet81]

DE bai :

B1: trình bày cách tìm giá trị lớn nhất trong 1 mảng 2 chiều ,
viết 1 chương trình ( có sử dụng chương trình con ) để tìm giá trị lớn nhất trong cột thứ 2 của mảng hai chiều …. )


B2 : đổi chỗ 2 cột bất kỳ trong mảng 2 chiều !


PHP Code:
Uses Crt;
Type
Mang=Array[1..100,1..100] of Integer;
Var
A:Mang;
B:Array[1..100] of Integer;
I,N,M,j,Max,x,y: Integer;
{Ham nay se tra ve giai tri max cua cot 2}
Function max2:Integer;
Var
tg:Integer;
Begin
tg:=A[2,1];
For I:=1 to N do If tg<A[2,I] then tg:=A[2,I];
max2:=tg;
End;
Begin
ClrScr;
Write('Nhap so cot cua ma tran M= ');ReadLn(M);
Write('Nhap so hang cua ma tran N= ');ReadLn(N);
{Nhap mang}
For i:=1 to M do
For j:=1 to N do
Begin
Write('Nhap phan tu A[',i,',',j,']= ');
ReadLn(a[i,j]);
End;
{Hien mang}
WriteLn;
For j:=1 to N do
Begin
For i:=1 to M do
Write(a[i,j]:3);
WriteLn;
End;
{Tim gia tri max}
Max:=a[1,1];
For i:=1 to M do
For j:=1 to N do
If A[i,j]>Max then Max:=A[i,j];
{hien gia tri lon nhat}
WriteLn('Gia tri lon nhat cua mang Max= ',max:3);
{hien gia tri lon nhat cua cot 2}
WriteLn('Gia tri lon nhat cua cot 2 trong mang Max2= ',max2:3);
ReadLn;
WriteLn('Hoan doi vi tri 2 cot: x --> y');
Write('Nhap cot x (0<x<=M), x= ');ReadLn(x);
Write('Nhap cot y, (x<y<=M) y= ');ReadLn(y);
{Doi cot x sang cot trung gian}
For I:=1 to N do B[i]:=A[x,i];
{Doi cot x sang cot y}
For I:=1 to N do A[x,i]:=A[y,i];
{Doi cot y sang cot x}
For I:=1 to N do A[y,i]:=B[i];

{Hien mang}
WriteLn('Mang sau khi da hoan doi tu cot ',x,' sang cot ',y,' la:');
For j:=1 to N do
Begin
For i:=1 to M do
Write(a[i,j]:3);
WriteLn;
End;
ReadLn;
End.


==========================================!

[free15]

Thầy em cho làm kt Tin 15' thực hành mà em thì mù tịt. Làm giúp em 2 bài này với, gấp lắm ạ!!! Thứ 3 em nộp rồi...
1. Cho 2 đoạn thẳng AB và CD trong mặt phẳng với các toạ độ điểm đầu và cuối tương ứng là (xa,xb), (xb,yb), (xc, yc), (xd, yd), các toạ độ đều là số thực, xa < xb, xc < xd. Hãy viết hàm CAT(xa,ya,xb,yb,xc,yc,xd,yd) kiểm tra xem 2 đoạn thẳng AB và CD cắt nhau hay không, tức là chúng có 1 và chỉ 1 điểm chung hay không. Hàm này cho giá trị True, nếu AB và CD có ít nhất 1 điểm chung và cho giá trị False trong trường hợp ngược lại.
2. Xét 2 hình chữ nhật ABCD và EFGH có các cạnh song song với trục tọa độ đỉnh là các số thực. Hai đỉnh A và C tương ứng là đỉnh trên trái và đỉnh dưới phải của ABCD, các đỉnh E và G tương ứng là đỉnh trên trái và đỉnh dưới phải của EFGH. Các hình chữ nhật này được cho bởi tọa độ (xa,ya), (xc,yc), (xe,ye), (xg,yg) tương ứng của các đỉnh A, C, E, G. Hãy viết chương trình con xác định tọa độ tâm và bán kính của hình tròn nhỏ nhất chứa 2 hình chữ nhật trên.
Thanks lắm lắm!!!

[danquenbk]

viết chương trình đọc file dulieu.txt chứa các số nguyên , các số nguyên cách nhau một khoảng trắng .sau đó in các số nguyên tố ra màn hình ( sử dụng chương trình con )