:
PROGRAM Bai_tap;
USES CRT;
Var A:array[1..100] of integer;
B:array[1..2,0..100] of integer;
i,j,k,n,max,maxi:integer;
BEGIN
Clrscr;
Write('Nhap so luong phan tu cua day : '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i,' : ');
Readln(A[i]);
End;
j:=1; k:=1;
maxi:=1; max:=0;
B[1,0]:=0; B[2,0]:=0;
While n-j+1>max do
Begin
B[k,0]:=1; B[k,1]:=A[j];
For i:=(j+1) to n do
If B[k,B[k,0]]>=A[i] then
Begin
B[k,0]:=B[k,0]+1;
B[k,B[k,0]]:=A[i];
End;
If B[k,0]>max then
Begin
maxi:=j;
max:=B[k,0];
If k=1 then k:=2
Else k:=1;
End;
j:=j+1;
End;
Writeln('Day khong tang nhieu nhat la : ');
If k=1 then k:=2
Else k:=1;
For i:=1 to B[k,0] do Write(B[k,i],' ');
READLN;
END.program chuongtrinh;
uses crt;
var A: array[1..10000000] of integer;
max, i, n: integer;
begin
write('nhap so phan tu cua mang:'); readln(n);
for i:=1 to n do
begin
write(' phan tu thu',i); readln(A[i]);
end;
max:= A[1]; write(A[1]);
for i:=1 to n-1 do
if A[i+1] >= A[i] then
begin
write(A[i+1]);
max:=A[i+1];
end;
end.uses crt;
var
a:array[1..100,1..6] of integer;
i,n:integer;
begin
clrscr;
write('so hoc sinh can quan ly thong tin la: '); readln(n);
for i:=1 to n do
begin
write('ten hoc sinh thu ',i,':');readln(a[i,1]);
write('ngay sinh hoc sinh thu ',i,':');readln(a[i,2]);
write('dia chi hoc sinh thu ',i,':');readln(a[i,3]);
write('lop hoc sinh thu ',i,':');readln(a[i,4]);
write('ten bo hoc sinh thu ',i,':');readln(a[i,5]);
write('ten me hoc sinh thu ',i,':');readln(a[i,6]);
end;
writeln('Thong tin hoc sinh thu ',i,': ten: ',a[i,1],'; ngay sinh: ',a[i,2],'; dia chi: ',a[i,3],'; lop: ',a[i,4],'; ten bo: ',a[i,5],'; ten me: ',a[i,6])
readln;
end.uses crt;
type hocsinh= record
ten:string[30];
ns:string[10];
diachi:string[30];
lop:string;
bo:string[30];
me:string[30];
end;
var hs:array[1..100] of hocsinh;
ch,n:integer;
procedure nhap;
var i:integer;
j:byte;
begin
write('so hoc sinh can them vao la: '); readln(j);
n:=n+j;
for i:=n-j+1 to n do
with hs[i] do
begin
write('ten hoc sinh thu ',i,':');readln(ten);
write('ngay sinh hoc sinh thu ',i,':');readln(ns);
write('dia chi hoc sinh thu ',i,':');readln(diachi);
write('lop hoc sinh thu ',i,':');readln(lop);
write('ten bo hoc sinh thu ',i,':');readln(bo);
write('ten me hoc sinh thu ',i,':');readln(me);
end;
end;
procedure xem;
var k:integer;
begin
write('Xem du lieu cua hoc sinh thu may: ');
repeat readln(k); until (0<k) and (k<=n);
with hs[k] do
begin
writeln('ten hoc sinh thu : ',ten);
writeln('ngay sinh hoc sinh thu : ',ns);
writeln('dia chi hoc sinh thu : ',diachi);
writeln('lop hoc sinh thu : ',lop);
writeln('ten bo hoc sinh thu : ',bo);
writeln('ten me hoc sinh thu : ',me);
readln;
end;
end;
begin
n:=0;
ch:=0;
repeat
clrscr;
writeln('Chon viec muon lam: ');
writeln('1. Nhap them hoc sinh');
writeln('2. Xem thong tin hoc sinh');
writeln('3. Thoat');
repeat readln(ch); until (1<=ch) and (ch<=3);
case ch of
1:nhap;
2:xem;
3:exit;
end;
until ch=3;
readln;
end.PROGRAM Bai_tap;
USES CRT;
TYPE Hoc_sinh=Record
HoTen:string[100];
NgaySinh:string[10];
DiaChi:string;
Lop:string[10];
HoTenBo:string[100];
HoTenMe:string[100];
End;
VAR A:array[1..1000] of Hoc_sinh;
i,n:integer;
BEGIN
Clrscr;
Write('Nhap so luong hoc sinh : '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap ho ten cua hoc sinh : '); Readln(A[i].HoTen);
Write('Nhap ngay sinh cua hoc sinh : '); Readln(A[i].NgaySinh);
Write('Nhap dia chi cua hoc sinh : '); Readln(A[i].DiaChi);
Write('Nhap lop cua hoc sinh : '); Readln(A[i].Lop);
Write('Nhap ho ten bo cua hoc sinh : '); Readln(A[i].HoTenBo);
Write('Nhap ho ten me cua sinh : '); Readln(A[i].HoTenMe);
End;
READLN;
END.Giúp em làm bài này:-SS
Tìm đường:
Cho 1 file input có dạng 1 ma trận có diện tích n x m
VD
5 5
0 0 1 1 1
1 0 1 0 0
1 0 1 0 1
1 0 0 0 0
1 1 1 1 0
Hãy kiểm tra xem có đường đi từ phần tử [1,1] đến phần tử [m,n] của ma trận không?(đường đi gồm các số 0 và chỉ đi theo chiều ngang, dọc). Nếu có in ra màn hình "Yes" và in ra đường đi.
VD với file input như trên thì in ra màn hình:
Yes
a[1,1];a[1,2];a[2,2];a[3,2];a[4,2];a[4,3];a[4,4];a[4,5];a[5,5]
Mong mọi người làm giúp
Giúp em làm bài này:-SS
Tìm đường:
Cho 1 file input có dạng 1 ma trận có diện tích n x m
VD
5 5
0 0 1 1 1
1 0 1 0 0
1 0 1 0 1
1 0 0 0 0
1 1 1 1 0
Hãy kiểm tra xem có đường đi từ phần tử [1,1] đến phần tử [n,m] của ma trận không?(đường đi gồm các số 0 và chỉ đi theo chiều ngang, dọc). Nếu có in ra màn hình "Yes" và in ra đường đi.
VD với file input như trên thì in ra màn hình:
Yes
a[1,1];a[1,2];a[2,2];a[3,2];a[4,2];a[4,3];a[4,4];a[4,5];a[5,5]
Mong mọi người làm giúp
PROGRAM Bai_tap;
USES CRT;
CONST fi='D:\Pascal\Bai_tap\BT.inp';
fo='D:\Pascal\Bai_tap\BT.out';
VAR A:array[0..1000,0..1000] of byte;
B:array[0..10000,1..2] of byte;
n,m,x,y:integer;
f:text;
Procedure Read_file;
Var i,j:integer;
Begin
Assign(f,fi); Reset(f);
Readln(f,n,m);
For i:=0 to n do A[i,0]:=1;
For j:=0 to m do A[0,j]:=1;
For i:=1 to n do
For j:=1 to m do
Read(f,A[i,j]);
Close(f);
B[0,1]:=0;
For i:=1 to n do
Begin
For j:=1 to m do Write(A[i,j],' ');
Writeln;
End;
Writeln;
End;
Procedure Print_result;
Var i,j:integer;
Begin
Writeln('Yes!');
For i:=1 to B[0,1] do
Write('[',B[i,1],',',B[i,2],'] ');
End;
Procedure Attempt(x,y:integer);
Var kt:boolean;
Begin
B[0,1]:=B[0,1]+1;
B[B[0,1],1]:=x;
B[B[0,1],2]:=y;
If (x=n) and (y=m) then
Print_result
Else
Begin
kt:=False;
If y<m then
Begin
If A[x,y+1]=0 then Attempt(x,y+1);
kt:=True;
End;
If x<n then
Begin
If A[x+1,y]=0 then Attempt(x+1,y);
kt:=True;
End;
If kt=False then
Begin
If y>1 then
If A[x,y-1]=0 then Attempt(x,y-1);
If x>1 then
If A[x-1,y]=0 then Attempt(x-1,y);
End;
B[0,1]:=B[0,1]-1;
End;
End;
BEGIN
Clrscr;
Read_file;
Attempt(1,1);
READLN;
END.Các anh chị giúp em lập trình bài này với ạ
Tính tổng :
[TEX]n! + m! + a^{p} + b^{q} {[/TEX]
Có sử dụng hàm ạ . Thank you!
var a,b,m,n,p,q:integer;
function mu(k,h:integer):longint;
var s,i:integer;
begin
s:=1;
for i:=1 to h do s:=s*k;
mu:=s;
end;
function gt(j:integer):longint;
var i,s:integer;
begin
s:=1;
for i:=1 to j do s:=s*i;
gt:=s;
end;
begin
write('Nhap m: ');readln(m);
write('Nhap n: ');readln(n);
write('Nhap a: ');readln(a);
write('Nhap p: ');readln(p);
write('Nhap b: ');readln(b);
write('Nhap q: ');readln(q);
writeln('Tong bang: ', mu(a,p)+mu(b,q)+gt(m)+gt(n));
readln;
end.Các anh chị giúp em lập trình bài này với ạ
Tính tổng :
[TEX]n! + m! + a^{p} + b^{q} {[/TEX]
Có sử dụng hàm ạ . Thank you!
PROGRAM Bai_tap;
USES CRT;
VAR n,m,a,b,p,q:integer;
Procedure NhapDL;
Begin
Write('Nhap so n : '); Readln(n);
Write('Nhap so m : '); Readln(m);
Write('Nhap so a : '); Readln(a);
Write('Nhap so p : '); Readln(p);
Write('Nhap so b : '); Readln(b);
Write('Nhap so q : '); Readln(q);
End;
Function Giai_thua(x:byte):longint;
Var i:integer;
gt:longint;
Begin
gt:=1;
For i:=2 to x do gt:=gt*i;
Giai_thua:=gt;
End;
Function Luy_thua(x:integer; y:byte):longint;
Var i:integer;
lt:longint;
Begin
lt:=1;
For i:=1 to y do lt:=lt*x;
Luy_thua:=lt;
End;
BEGIN
Clrscr;
NhapDL;
Writeln(n,'! + ',m,'! + ',a,'^',p,' + ',b,'^',q,' = ',Giai_thua(n)+Giai_thua(m)+Luy_thua(a,p)+Luy_thua(b,q));
READLN;
END.