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 )

[getnho]

helppppppppppp
nhập vào từ bàn phím một xâu thay thế tất cả các cụm kí tự 'anh' bằng cụm kí tự 'em'

[hamj]

helppppppppppp
nhập vào từ bàn phím một xâu thay thế tất cả các cụm kí tự 'anh' bằng cụm kí tự 'em'

__________________________--
while pos('anh',s)<>0 do {chừng nào con 'anh' trong xau s thi con thuc hiện}
begin
vt:=pos('anh',s);
delete(s,vt,3);
insert('em',s,vt);
end;

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

jup mjh` baj` naz vs: viết chương trình nhập vào tên họ của một người, in ra màn hình với các chữ cái đầu thành chữ hoa, chữ con` lại là chữ thường
thankssssssssss

___________________________
while s[1]=' ' do delete(s,1,1); {chuẩn hóa =cách bỏ hết các
while s[length(s)]=' ' do delete(s,length(s)-1,1); dau cách thừa}
for i:=length(s) downto 2 do
if a[i]=' ' and a[i-1]=' ' then delete(s,i-1,1);
s:=' '+s;{cộng vào dau cách để đổi cả kí tự đầu thành chữ hoa}
for i:=1 to length(s) do
if a[i]=' 'then a[i+1]:=upcase(a[1+1]);

[Trần Su]

Viết chương trình nhập từ bàn phím số nguyên dương N (N=<100) và dãy A gồm N số nguyên A1,A2,...,An có giá trị tuyệt đối ko lớn hơn 1000. Hãy cho biết dãy A có phải là 1 cấp số cộng hay không và thông báo kết quả ra màn hình.[/QUOTE]

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

sao không hiểu gì hết trơn vậy giẩi lại y huhuhuuh

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

Câu 1: Cho mảng 2 chiều kích thước n n với các phần tử là những số nguyên . Tìm trong mỗi hàng phần tử lớn nhất đổi chỗ nó với phần tử có chỉ số hàng bằng chỉ số cột. Chương trình sau đây giải bài toán trên:

Program diag;
Var
N, i, j, Max, Ind, Vsp: integer;
A: array [1..15, 1..15] of integer;
Begin
Write (‘nhap N nho hon 15: ‘); readln (N);
For i:=1 to N do
For j:=1 to N do
Begin
Write (‘A[‘, i, ‘,’ j, ‘]= ‘); readln (A[i;j]); end;
End;
For i:=1 to N do
Begin
Max: = A[i,j]; Ind:=j;
For j:= 2 to N do
If A[i,j] > Max then
Begin
Max: = A[i,j]; Ind:= j
end;
Vsp: = A[i,j]; A[i;j]:= Max; A[i,Ind] :=Vsp; end;
For i:=1 to N do
Begin
Writeln;
For j:=1 to N do write (A[i;j] : 3); end;
Writeln
End.

Hãy sửa lại chương trình trên khi thay yêu cầu tìm kiếm trong mỗi hàng bằng tìm kiếm trong mỗi cột.

Bài 2:Chương trình sau đây thực hiện những gì?

Program BT8;
Const NMax=50;
Type Mass = array[1..NMax, 0..Nmax-1] of real;
Var A: Mass;
i, j, N: byte; C: real;
Begin
Write (‘nhap N = ‘); readln(N);
For i:=1 to N do
For j:= 0 to N-1 do
Begin
Write (‘A[‘,i,’,’,j,’ ]= ‘); readln (A[i,j]); end;
For i:=1 to N do
For j:=0 to N-1 do
Begin
C:= A[i;j];
A[i,j]:= A[N-i+1,j];
A[N-i+1,j]:= C;
End;
For i:= 1 to N do
Begin
For j:=0 to N-1 do write (A[i;j]:5:2,’ ‘);
Writeln; end; readln
End.

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

Câu 1: Cho mảng 2 chiều kích thước n n với các phần tử là những số nguyên . Tìm trong mỗi hàng phần tử lớn nhất đổi chỗ nó với phần tử có chỉ số hàng bằng chỉ số cột. Chương trình sau đây giải bài toán trên:

Program diag;
Var
N, i, j, Max, Ind, Vsp: integer;
A: array [1..15, 1..15] of integer;
Begin
Write (‘nhap N nho hon 15: ‘); readln (N);
For i:=1 to N do
For j:=1 to N do
Begin
Write (‘A[‘, i, ‘,’ j, ‘]= ‘); readln (A[i;j]); end;
End;
For i:=1 to N do
Begin
Max: = A[i,j]; Ind:=j;
For j:= 2 to N do
If A[i,j] > Max then
Begin
Max: = A[i,j]; Ind:= j
end;
Vsp: = A[i,j]; A[i;j]:= Max; A[i,Ind] :=Vsp; end;
For i:=1 to N do
Begin
Writeln;
For j:=1 to N do write (A[i;j] : 3); end;
Writeln
End.

Hãy sửa lại chương trình trên khi thay yêu cầu tìm kiếm trong mỗi hàng bằng tìm kiếm trong mỗi cột.

Bài 2:Chương trình sau đây thực hiện những gì?

Program BT8;
Const NMax=50;
Type Mass = array[1..NMax, 0..Nmax-1] of real;
Var A: Mass;
i, j, N: byte; C: real;
Begin
Write (‘nhap N = ‘); readln(N);
For i:=1 to N do
For j:= 0 to N-1 do
Begin
Write (‘A[‘,i,’,’,j,’ ]= ‘); readln (A[i,j]); end;
For i:=1 to N do
For j:=0 to N-1 do
Begin
C:= A[i;j];
A[i,j]:= A[N-i+1,j];
A[N-i+1,j]:= C;
End;
For i:= 1 to N do
Begin
For j:=0 to N-1 do write (A[i;j]:5:2,’ ‘);
Writeln; end; readln
End.

[Huyết Hận]

Chả là thế này,em sắp bị cử đi thi tin ở trường,thi thì cũng toàn trường với nhau thôi,thế nhưng đến lúc vào làm bài chả lẽ lại ngồi ngáp gió chơi dò mìn đến hết giờ thì cũng xấu hổ,vì thế xin anh em ai có bài tập về pascal nào hay hay,hay tuyển tập đề thi thì càng tốt,gửi cho em cho em có tài liệu mà ôn tập(mà có lời giải nha mọi người,không tự mò còn khổ hơn)
mail của em là:manhhung_2051993@yahoo.com
Thanks mọi người trước

[khanh11b5]

ai giup em giai bai tap nay voi :
vct so sanh 2 xau xem chung co:
-giong nhau ( vd baitap =bai tap)
-bang nhau( tuc length(a)=length(b) )
- lon hon
- nho hon

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

ai giup em giai bai tap nay voi :
vct so sanh 2 xau xem chung co:
-giong nhau ( vd baitap =bai tap)
-bang nhau( tuc length(a)=length(b) )
- lon hon
- nho hon
( trong 1ctrinh thoi nha)
em cam on mong rang mai la 9/3 em se co bai

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

mai em kiem tra huhu

[thang_lv]

Nhờ các bác làm bài này cho mình với làm ngay nha:
viết chương trình nhập vào một xâu s, tạo xâu s1 từ xâu s bằng cách xóa đi các ký tự giống nhau liên tiếp và chỉ lại một ký tự đại diện
VD: s=hhssiiiinhhh thì s1 là: hocsinh

[nhokdragon94]

Cũng dùng If S[i]=S[i+1] then del thui

[Heroboss12]

Nhờ các bác làm bài này cho mình với làm ngay nha:
viết chương trình nhập vào một xâu s, tạo xâu s1 từ xâu s bằng cách xóa đi các ký tự giống nhau liên tiếp và chỉ lại một ký tự đại diện
VD: s=hhssiiiinhhh thì s1 là: hocsinh

Đề sai rùi sao hhssiiiinhhh lại ra hocsinh dc phải ra hsinh chứ

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

giải giùm e mấy bài tập
1\ viết chương trình đổi tiền,có các loại tiền 500,200,100,50,20,10,5,2,1.
Viết thủ tục nhap75 vào chương trình chính số tiền bằng ngàn và in ra số tờ tiền sao cho tổng số tờ là nhỏ nhất
2\ Điểm yên ngựa là phần tử bé nhất trong dòng và lớn nhất trong cột chứa nó .Cho ma trận a có kích thước m*n chứa các số nguyên, 1<=m,n<=50.Tìm phần tử yên ngựa của ma trận

Bài 1:
var st:integer;
procedure xuly;
var tg:integer;
begin
tg:=0;
write('Nhap so tien can doi');
readln(st);
while st>=500 do
begin
tg:=tg+1;
st:=st-500;
end;
while st>=200 do
begin
tg:=tg+1;
st:=st-200;
end;
while st>=100 do
begin
tg:=tg+1;
st:=st-100;
end;
while st>=50 do
begin
tg:=tg+1;
st:=st-50;
end;
while st>=20 do
begin
tg:=tg+1;
st:=st-1;
end;
while st>=10 do
begin
tg:=tg+1;
st:=st-1;
end;
while st>=5 do
begin
tg:=tg+1;
st:=st-1;
end;
while st>=2 do
begin
tg:=tg+1;
st:=st-1;
end;
while st>=1 do
begin
tg:=tg+1;
st:=st-1;
end;
writeln(tg);
end;
begin
xuly;
end.
Bài 2:
var a:aray [1..100,1..50] of integer;
n,m:integer;
procedure nhap;
var i,j:integer;
begin
readln(m);
readln(n);
for i:=1 to m do
for j:=1 to n do
readln(a[i,j]);
end;
function max(x,i:integer):boolean;
var j:integer;
begin
max:=false;
for j:=1 to n do
if a[i,j]>x then exit;
max:=true;
end;
function min(x,j:integer):boolean;
var i:integer;
begin
min:=false;
for i:=1 to m do
if a[i,j]<x then exit;
min:=true;
end;
procedure xuat;
var i,j:integer;
begin
for i:=1 to m do
for j:=1 to n do
if max(a[i,j],i) and min(a[i,j],j) then writeln(i,' ',j);
end;
begin
nhap;
xuat;
end.

[Dihu]

MỌI NGƯỜI ƠI< GIÚP MÌNH VƠI MAI CÓ BÀI KIỂM TRA

viêt chương trình Nhập một dãy số gồm n số nguyên (1=<n<=100) mỗi giá trị không vượt quá 300.tính tổng các giá trị chia hết cho k và v cho trước.sử dụng kiểu mảng, kiểu xâu

[kid_0850]

cho e hoi kai:viet chuong trinh tinh tong cua n so hang chia het cho 1 so k