Chương trình con và lập trình có cấu trúc - Hỏi đáp

Nguyễn Lê Phước Thịnh CTV 22 tháng 8 lúc 11:47

Bài làm của bạn @Tran Nguyễn Đăng Dương(bạn được 20 điểm, xếp thứ 1 chung cuộc)

-Bài 1:

program hedem;
uses crt;
const fi='hedem.inp';
fo='hedem.out';
var st:string;
hedema,hedemb:integer;
f1,f2:text;
Function heasanghe10(st1:string):integer;
var d,i,code,x,kq:integer;
begin
d:=Length(st1);
kq:=0;
x:=0;
for i:=1 to d do
begin
case st1[i] of
'0'..'9':begin
Val(st1[i],x,code);
kq:=kq*hedema+x;
end;
'A'..'F':begin
x:=ord(st1[i])-55;
kq:=kq*hedema+x;
end;
end;
end;
exit(kq);
end;
Procedure he10sangheb(kq:Integer);
var dem,d,i,x:integer;
du:array[1..100] of Integer;
begin
dem:=0;
x:=0;
repeat
dem:=dem+1;
du[dem]:=kq mod hedemb;
kq:=kq div hedemb;
until kq=0;
for i:=dem downto 1 do
begin
case du[i] of
0..9:write(f2,du[i]);
10..15:begin
x:=du[i]+55;
write(f2,Chr(x));
end;
end;
end;
end;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,hedema,hedemb);
readln(f1);
read(f1,st);
he10sangheb(heasanghe10(st));
Close(f1);
Close(f2);
End.

-Bài 2:

Program ntghep;
uses crt;
const fi='ntghep.inp';
fo='ntghep.out';
var n:integer;
f1,f2:text;
Function SNTcheck(m:longint):boolean;
var i:longint;
begin
for i:=2 to trunc(sqrt(m)) do if m mod i=0 then exit(false);
exit(true);
end;
Function timsntthun(m:longint):longint;
var dem,j:longint;
begin
j:=2;
dem:=0;
repeat
while not SNTcheck(j) do inc(j);
inc(dem);
inc(j);
until dem=m;
exit(j-1);
end;
Function timsntghepthun(m:integer):longint;
var dem,k,code,kq:longint;
st,st1:string;
begin
k:=1;
kq:=0;
dem:=0;
repeat
str(timsntthun(k),st); str(timsntthun(k+1),st1);
Val(st+st1,kq,code);
if SNTcheck(kq) then inc(dem);
k:=k+2;
until dem=m;
exit(kq);
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,n);
write(f2,timsntghepthun(n));
Close(f1); Close(f2);
End.

-Bài 3;

Program Fibonacci;
uses crt;
const fi='fibonaci.inp';
fo='fibonaci.out';
var n:integer;
f1,f2:text;
procedure fibo(n:integer);
var i,vt:integer;
fibo:array[1..100] of Integer;
kt:boolean;
begin
fibo[1]:=1; fibo[2]:=1;
kt:=false;
for i:=3 to n do
begin
fibo[i]:=fibo[i-1]+fibo[i-2];
if fibo[i]=n then
begin
kt:=true;
vt:=i;
end;
end;
for i:=1 to n do write(f2,fibo[i],' ');
writeln(f2);
if kt then writeln(f2,'Co. ',vt)
else writeln(f2,'Khong');
write(f2,fibo[n]);
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
read(f1,n);
fibo(n);
Close(f1); Close(f2);
End.

-Bài 4:

Program map;
uses crt;
const fi='map.inp';
fo='map.out';
type arr=array[0..2001,0..71] of Char;
var area,tam:arr;
e,f:array[1..4] of Integer;
ch:char;
st:string;
i,j,x,y,vtdx,vtdy,vtcd,vtcdm:integer;
dem,max:longint;
f1,f2:text;
Procedure mapfinding(a,b:integer; var c:arr);
var k:integer;
begin
if (a>0) and (a<=x) and (b>0) and (b<=y) and (c[a,b]=ch) then
begin
vtcd:=a;
c[a,b]:='*';
inc(dem);
for k:=1 to 4 do mapfinding(a+e[k],b+f[k],c);
end;
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,ch);
e[1]:=-1; e[4]:=1; f[2]:=-1; f[3]:=1;
i:=0;
repeat
readln(f1,st);
inc(x);
for y:=1 to Length(st) do area[x,y]:=st[y];
until eof(f1);
tam:=area;
for i:=1 to x do
for j:=1 to y do
if tam[i,j]=ch then
begin
mapfinding(i,j,tam);
if max<dem then
begin
max:=dem;
vtdx:=i;
vtdy:=j;
vtcdm:=vtcd;
end;
dem:=0;
end;
mapfinding(vtdx,vtdy,area);
writeln(f2,max,' ',vtdx,' ',vtdy,' ',vtcdm);
for i:=vtdx to vtcdm do
begin
for j:=1 to y do write(f2,area[i,j]);
writeln(f2);
end;
Close(f1);
Close(f2);
End.

-Bài 5:

Program smart;
uses crt;
const fi='smart.inp';
fo='smart.out';
type AsVBs=record
a,v,b:string;
end;
AVBs=record
a,v,b:string;
end;
AsVB=record
a,v,b:string;
end;
AisB=record
a,b:string;
end;
Question=record
a,typea,v,b,typeb:string;
end;
var AsVBsinfo:array[0..101] of AsVBs;
AVBsinfo:array[0..101] of AVBs;
AsVBinfo:array[0..101] of AsVB;
AisBinfo:array[0..101] of AisB;
Questions:array[0..101] of Question;
i,j,k,noAsVBs,noAVBs,noAsVB,noAisB,noQuestions,vt:integer;
f1,f2:text;
st,st1,st2,st3:string;
check,check1,check2:boolean;
Procedure readinfo;
begin
repeat
readln(f1,st);
if st='#' then break;
for i:=1 to 3 do
begin
j:=1;
while (st[j]<>' ') and (st[j]<>'.') do inc(j);
case i of
1:st1:=upcase(copy(st,1,j-1));
2:st2:=upcase(copy(st,1,j-1));
3:st3:=upcase(copy(st,1,j-1));
end;
Delete(st,1,j);
end;
Delete(st,Length(st),1);
st:=upcase(st);
if st1='DOES' then
begin
inc(noQuestions);
Questions[noQuestions].a:=st2;
Questions[noQuestions].v:=st3;
Questions[noQuestions].b:=st;
end
else if st2='IS' then
begin
inc(noAisB);
AisBinfo[noAisB].a:=st1;
AisBinfo[noAisB].b:=st+'S';
end
else if (st1[Length(st1)]='S') and (st3[Length(st3)]='S') then
begin
inc(noAsVBs);
AsVBsinfo[noAsVBs].a:=st1;
AsVBsinfo[noAsVBs].v:=st2;
AsVBsinfo[noAsVBs].b:=st3;
end
else if st1[Length(st1)]='S' then
begin
inc(noAsVB);
write(st1,' ',st2,' ',st3,' ',st,' AsVB');
AsVBinfo[noAsVB].a:=st1;
AsVBinfo[noAsVB].v:=st2;
AsVBinfo[noAsVB].b:=st3;
end
else if st3[Length(st3)]='S' then
begin
inc(noAVBs);
AVBsinfo[noAVBs].a:=st1;
AVBsinfo[noAVBs].v:=st2;
AVBsinfo[noAVBs].b:=st3;
end;
until eof(f1);
end;
Begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readinfo;
for i:=1 to noQuestions do
begin
for j:=1 to noAisB do
begin
if Questions[i].a=AisBinfo[j].a then Questions[i].typea:=AisBinfo[j].b;
if Questions[i].b=AisBinfo[j].a then Questions[i].typeb:=AisBinfo[j].b;
end;
if (Questions[i].typea='') and (Questions[i].typeb='') then writeln(f2,'No.')
else
begin
check:=false;
check1:=false;
check2:=false;
if (Questions[i].typea<>'') and (Questions[i].typeb<>'') then
begin
for j:=1 to noAsVBs do
begin
if (Questions[i].typea=AsVBsinfo[j].a) and (Questions[i].typeb=AsVBsinfo[j].b) and (Questions[i].v=AsVBsinfo[j].v) then
begin
writeln(f2,'Yes.');
check:=true;
end;
end;
end;
if (Questions[i].typea<>'') and (not check) then
begin
for j:=1 to noAsVB do
begin
if (Questions[i].typea=AsVBinfo[j].a) and (Questions[i].b=AsVBinfo[j].b) and (Questions[i].v=AsVBinfo[j].v) then
begin
writeln(f2,'Yes.');
check1:=true;
end;
end;
end;
if (Questions[i].typeb<>'') and (not check) and (not check1) then
begin
for j:=1 to noAVBs do
begin
if (Questions[i].a=AVBsinfo[j].a) and (Questions[i].typeb=AVBsinfo[j].b) and (Questions[i].v=AVBsinfo[j].v) then
begin
writeln(f2,'Yes.');
check2:=true;
end;
end;
end;
if (not check) and (not check1) and (not check2) then writeln(f2,'No.');
end;
end;
Close(f1);
Close(f2);
End.

Nguyễn Lê Phước Thịnh CTV 22 tháng 8 lúc 11:44

Bài làm của bạn Minh Lê(Link trang cá nhân: https://hoc24.vn/id/2720062)(bạn được 19,9 điểm, xếp thứ 3 chung cuộc)

// Bài 1 (hedem):

var s: string; a, b: integer; fi, fo: text; procedure open_file(s: string); begin assign(fi, s + '.INP'); reset(fi); assign(fo, s + '.OUT'); rewrite(fo); end; procedure close_file; begin close(fi); close(fo); end; function decode(var s: string; base: integer): integer; var i, n, ans, x: integer; begin n := length(s); ans := 0; for i := 1 to n do begin if (s[i] >= '0') and (s[i] <= '9') then x := ord(s[i]) - 48 else x := ord(s[i]) - 55; ans := base * ans + x; end; exit(ans); end; function encode(x, base: integer): string; var c: char; ans: string; begin ans := ''; while x <> 0 do begin if x mod base <= 9 then c := chr(x mod base + 48) else c := chr(x mod base + 55); ans := c + ans; x := x div base; end; exit(ans); end; begin open_file('hedem'); readln(fi, a, b); readln(fi, s); write(fo, encode(decode(s, a), b)); close_file; end.

// Bài 2 (ntghep)

const INF = 36000000; var pr, mf: array[1..INF] of longint; k, pr_size: longint; fi, fo: text; procedure open_file(s: string); begin assign(fi, s + '.INP'); reset(fi); assign(fo, s + '.OUT'); rewrite(fo); end; procedure close_file; begin close(fi); close(fo); end; procedure build; var i, j: longint; begin pr_size := 0; for i := 2 to INF do begin if mf[i] = 0 then begin mf[i] := i; inc(pr_size); pr[pr_size] := i; end; for j := 1 to pr_size do if (pr[j] > i) or (pr[j] * i > INF) then break else mf[pr[j] * i] := pr[j]; end; end; function calc(k: longint): longint; var i, x: longint; x1, x2: string; begin for i := 1 to pr_size div 2 do begin str(pr[2*i - 1], x1); str(pr[2*i], x2); val(x1 + x2, x); if mf[x] = x then begin if k = 1 then exit(x) else dec(k); end; end; end; begin open_file('ntghep'); build; read(fi, k); write(fo, calc(k)); close_file; end.

// Bài 3 (fibonaci)

var i, n: longint; fib: array[1..30] of longint; fi, fo: text; procedure open_file(s: string); begin assign(fi, s + '.INP'); reset(fi); assign(fo, s + '.OUT'); rewrite(fo); end; procedure close_file; begin close(fi); close(fo); end; procedure build; begin fib[1] := 1; fib[2] := 1; for i := 3 to n do fib[i] := fib[i - 2] + fib[i - 1]; end; procedure print1; begin for i := 1 to n do write(fo, fib[i], ' '); writeln(fo); end; procedure print2; begin for i := 1 to n do if fib[i] = n then begin writeln(fo, 'Có. ', i); exit; end; writeln(fo, 'Không'); end; procedure print3; begin writeln(fo, fib[n]); end; begin open_file('fibonaci'); read(fi, n); build; print1; print2; print3; close_file; end.

// Bài 4 (map)

var i, j: longint; n, m: longint; s, x, y, z: longint; land: array[1..2000] of string; visited: array[1..2000, 1..70] of boolean; c: char; u, v: longint; _s, _x, _y, _z: longint; front, back: longint; queue: array[1..140000] of record first, second: longint; end; fi, fo: text; procedure open_file(s: string); begin assign(fi, s + '.INP'); reset(fi); assign(fo, s + '.OUT'); rewrite(fo); end; procedure close_file; begin close(fi); close(fo); end; procedure qpush(i, j: longint); begin inc(back); with queue[back] do begin first := i; second := j; end; end; procedure qinit(i, j: longint); begin front := 1; back := 0; qpush(i, j); visited[i, j] := true; _s := 1; _x := i; _y := j; _z := i; end; function is_valid1(i, j: longint): boolean; begin exit((i >= 1) and (i <= n) and (j >= 1) and (j <= m) and (land[i, j] = c) and (not visited[i, j])); end; procedure qupdate1(i, j: longint); begin qpush(i, j); visited[i, j] := true; inc(_s); if i > _z then _z := i; end; function is_valid2(i, j: longint): boolean; begin exit((i >= 1) and (i <= n) and (j >= 1) and (j <= m) and (land[i, j] = c)); end; procedure qupdate2(i, j: longint); begin qpush(i, j); land[i, j] := '*'; end; begin open_file('map'); readln(fi, c); n := 0; while not eof(fi) do begin inc(n); readln(fi, land[n]); end; m := length(land[1]); s := 0; for i := 1 to n do for j := 1 to m do if is_valid1(i, j) then begin qinit(i, j); while front <= back do begin u := queue[front].first; v := queue[front].second; inc(front); if is_valid1(u - 1, v) then qupdate1(u - 1, v); if is_valid1(u + 1, v) then qupdate1(u + 1, v); if is_valid1(u, v - 1) then qupdate1(u, v - 1); if is_valid1(u, v + 1) then qupdate1(u, v + 1); end; if _s > s then begin s := _s; x := _x; y := _y; z := _z; end; end; qinit(x, y); while front <= back do begin u := queue[front].first; v := queue[front].second; inc(front); if is_valid2(u - 1, v) then qupdate2(u - 1, v); if is_valid2(u + 1, v) then qupdate2(u + 1, v); if is_valid2(u, v - 1) then qupdate2(u, v - 1); if is_valid2(u, v + 1) then qupdate2(u, v + 1); end; writeln(fo, s, ' ', x, ' ', y, ' ', z); for i := x to z do begin for j := 1 to m do write(fo, land[i, j]); writeln(fo); end; close_file; end.

// Bài 5 (bxl)

const mol = 1000007; const base = 37; var i, j, n, v: longint; a, b: string; s: array[0..4] of string; d: array[0..1000006] of boolean; define: array[0..1000006] of string; f1, f2, f3: boolean; fi, fo: text; procedure open_file(s: string); begin assign(fi, s + '.INP'); reset(fi); assign(fo, s + '.OUT'); rewrite(fo); end; procedure close_file; begin close(fi); close(fo); end; function hash(s: string): longint; var i, n, d: longint; begin n := length(s); d := 0; for i := 1 to n do d := (base*d + ord(s[i]) - 97) mod mol; exit(d); end; begin open_file('bxl'); while not eof(fi) do begin readln(fi, s[0]); i := 1; s[1] := ''; n := length(s[0]); if (n = 1) then break; for j := 1 to n do begin if s[0][j] = ' ' then begin inc(i); s[i] := ''; end else if (s[0][j] >= 'A') and (s[0][j] <= 'Z') then s[i] := s[i] + chr(ord(s[0][j]) + 32) else if (s[0][j] >= 'a') and (s[0][j] <= 'z') then s[i] := s[i] + s[0][j]; end; if s[1] = 'does' then begin a := define[hash(s[2])]; b := define[hash(s[4])]; f1 := d[hash(s[2] + ' ' + s[3] + ' ' + b )]; f2 := d[hash(a + ' ' + s[3] + ' ' + s[4])]; f3 := d[hash(a + ' ' + s[3] + ' ' + b )]; if f1 or f2 or f3 then writeln(fo, 'Yes.') else writeln(fo, 'No.'); end else if s[2] = 'is' then define[hash(s[1])] := s[4] + 's' else d[hash(s[1] + ' ' + s[2] + ' ' + s[3])] := true; end; close_file; end.

// THE END

phynit Quản lý 5 tháng 9 lúc 8:43

Cảm ơn Phước Thịnh đã tổ chức cuộc thi này. Thầy sẽ nhắn tin và trao giải cho các bạn đạt giải.

Nguyễn Lê Phước Thịnh CTV 4 tháng 9 lúc 11:30

Các bạn cố gắng đợi một thời gian rồi thầy @phynit sẽ thưởng cho các bạn

Nguyễn Lê Phước Thịnh CTV 3 tháng 7 lúc 19:36

Bài 1:

uses crt;

var a:array[1..300]of integer;

n,i,t:integer;

begin

clrscr;

write('Nhap so phan tu:'); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do

if (a[i] mod 2<>0) and (i mod 2=0) then t:=t+a[i];

writeln('Tong cac phan tu le o vi tri chan la: ',t);

readln;

end.

Bài 2:

uses crt;

var a,b:integer;

{---------------------chuong-trinh-con--------------------------}

function tong(var x,y:integer):integer;

begin

tong:=x+y;

end;

{-------------------chuong-trinh-chinh----------------------}

begin

clrscr;

write('Nhap so thu nhat:'); readln(a);

write('Nhap so thu hai:'); readln(a);

writeln('Tong cua hai so la: ',tong(a,b));

readln;

end.

Nguyễn Tấn An 3 tháng 7 lúc 15:59

Bài 1: chương trình:

Program tonglevitrichan;

Uses crt;

Var a: array[1..300] of integer;

N,S,i,b,c: integer;

Begin

Clrscr;

Writeln ('So cac so nguyen trong day:');

Readln (N);

Writeln ('Nhap cac so tu ban phim:');

S:=0; b:=1;

For i:=1 to N do

begin

Writeln ('So thu',i,':');

Readln (a[i]);

end;

i:=1;

For c:=1 to N do

begin

If c mod 2=1 then b:=b+2;

i:=i+1;

if b mod 2=0 then

if i mod b=0 then

if a[i] mod 2=1 then S:=S+a[i];

end;

Writeln ('Tong can tim la:',S);

Readln

End.

Nguyễn Lê Phước Thịnh CTV 1 tháng 7 lúc 20:08

Câu 1:

uses crt;
var a,b,c,d,t:integer;
{------------------------chuong-trinh-con-tinh-tong-cua-hai-so-----------------}
function tong(var x,y:integer):integer;
begin
tong:=x+y;
end;
{------------------------chuong-trinh-chinh----------------------}
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
write('Nhap so thu tu: '); readln(d);
t:=tong(a,b)+tong(c,d);
writeln('Tong cua bon so la: ',t);
readln;
end.

Câu 2:

const fi='dulieu.dat';

assign(f1,fi); reset(f1);

Mori Ran 15 tháng 7 lúc 14:10

Tham biến là biến với giá trị luôn thay đổi

tham trị là biến với giá trị không thay đổi

Information Technology Specialist 26 tháng 6 lúc 22:03

tham biến là biến với giá trị luôn thay đổi

tham trị là biến với giá trị không thay đổi

Tran Nguyễn Đăng Dương 6 tháng 8 lúc 12:28

Dữ liệu nhập vào là cái gì bạn?

Nguyễn Lê Phước Thịnh CTV 7 tháng 7 lúc 9:43

Cái này là tính lũy thừa hay chỉ là phép cộng hai vế vậy bạn?

Nguyễn Ngọc Hà 1 tháng 7 lúc 17:09

Em hãy so sánh điểm giống và khác nhau giữa biến toàn cục và biến cục bộ.

Điểm giống nhau em không biết nha chị vì em mới học lớp 7 thôi á! =.=

* Điểm khác:

- Biến toàn cục:

+ Được khai báo ngoài hàm, có thể được khai báo trong hàm main() nhưng sử dụng chung cho tất cả các hàm có trong hàm main().

+ Giá trị của biến được sử dụng chung cho tất cả các hàm, nếu bạn truyền biến vào hàm bằng cách truyền tham chiếu thì giá trị của biến sẽ thay đổi.

+ Biến không bị hủy sau khi hàm kết thúc, biến chỉ bị hủy khi chương trình đã dừng.

+ Biến được khởi tạo có giá trị mặc định do hệ thống tự động tạo ra.

- Biến cục bộ:

+ Được khai báo trong phạm vi một hàm.

+ Giá trị của biến chỉ được sử dụng trong phạm vi hàm đó, không thể sử dụng bởi hàm khác.

+ Biến sẽ bị hủy sau khi hàm thực hiện xong công việc của mình.

+ Biến được khởi tạo có giá trị rác, bạn phải tự mình khởi tạo giá trị cho biến.

Chúc bạn học tốt!

_{#ngocha14092k7}

Nguyễn Lê Phước Thịnh CTV 7 tháng 7 lúc 10:25

Tìm UCLN,BCNN của hai số nguyên

uses crt;
var a,b:integer;
{--------------------ham-tim-UCLN-----------------------}
function ucln(var x,y:integer):integer;
var i:integer;
begin
ucln:=1;
if x<y then
begin
for i:=1 to x do
if (x mod i=0) and (y mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
if x=y then ucln:=x;
if x>y then
begin
for i:=1 to y do
if (x mod i=0) and (y mod i=0) then
begin
if ucln<i then ucln:=i;
end;
end;
end;
{---------------------ham-tim-BCNN----------------------------}
function bcnn(var x,y:integer):real;
var i:integer;
begin
bcnn:=x*y;
for i:=x*y downto 1 do
if (i mod x=0) and (i mod y=0) then
begin
if bcnn>i then bcnn:=i;
end;
end;
{---------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap so thu nhat:'); readln(a);
write('Nhap so thu hai:'); readln(b);
if (a<>0) and (b<>0) then writeln('Uoc chung lon nhat cua hai so la: ',ucln(a,b))
else writeln(a,' va ',b,' khong co uoc chung lon nhat');
writeln('Boi chung nho nhat cua hai so la: ',bcnn(a,b):4:0);
readln;
end.

Tính n! Với n nguyên

uses crt;
var n:integer;
{----------------------ham-tinh-giai-thua---------------------}
function giaithua(var x:integer):real;
var i:integer;
begin
giaithua:=1;
for i:=1 to x do
giaithua:=giaithua*i;
end;
{---------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap n='); readln(n);
writeln(n,'!=',giaithua(n):4:0);
readln;
end.

Tính a^b, với a,b là số thực

uses crt;
var a:real;
b:integer;
{----------------------ham-tinh-giai-thua---------------------}
function luythua(var x:real; y:integer):real;
var i:integer;
begin
luythua:=1;
for i:=1 to y do
luythua:=luythua*x;
end;
{---------------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if b>=0 then writeln(a:4:2,'^',b,'=',luythua(a,b):4:2)
else writeln(a:4:2,'^',b,'=1/',luythua(a,abs(b)):4:2);
readln;
end.

Tráo đổi hai số nguyên x và y

uses crt;
var x,y:integer;
{-----------------------thu-tuc-hoan-doi-hai-so-----------------------}
procedure hoandoi(var a,b:integer);
var tam:integer;
begin
tam:=a;
a:=b;
b:=tam;
end;
{-----------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
write('Nhap x='); readln(x);
write('Nhap y='); readln(y);
hoandoi(x,y);
writeln('Sau khi hoan doi: x=',x,' va y=',y);
readln;
end.

Nguyễn Lê Phước Thịnh CTV 7 tháng 7 lúc 10:40

uses crt;

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

n,i,t,j,tam,max:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do

t:=t+a[i];

writeln('Tong cua day so la: ',t);

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so duoc sap xep tang dan la: ');

for i:=1 to n do

write(a[i]:4);

writeln;

max:=a[1];

for i:=2 to n do

if max<a[i] then max:=a[i];

writeln('Gia tri lon nhat la: ',max);

readln;

end.

Nguyễn Lê Phước Thịnh CTV 7 tháng 7 lúc 11:08

Bài 1:

*Hàm

function dientich(var x:integer):real;

begin

dientich:=sqr(x);

end;

*Thủ tục:

procedure dientich(var x:integer);

var dt:real;

begin

dt:=sqr(x);

writeln('Dien tich hinh vuong la: ',dt:0:0);

end;

Bài 2:

*Thủ tục:

procedure dientich(var a,b,c:real);

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

end;

*Hàm

function dientich(var a,b,c:real):real;

var p,s:real;

begin

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

dientich:=s;

end;

Bài 3:

*Thủ tục

procedure hoandoi(var a,b:integer);

var tam:integer;

begin

tam:=a;

a:=b;

b:=tam;

end;

Nguyễn Lê Phước Thịnh 22 tháng 6 lúc 8:50

Câu 1:

uses crt;
var ten:string;
kt:integer;
begin
clrscr;
write('Nhap ho va ten cua hoc sinh:'); readln(ten);
writeln('Ki tu thu 5 la: ',ten[5]);
kt:=0;
if ten[1] in ['A'..'Z'] then kt:=1;
if kt=0 then writeln('Ki tu dau tien chua viet hoa')
else writeln('Ki tu dau tien da viet hoa');
readln;
end.

Câu 2:

uses crt;
var d,r:real;
{-------------------------chuong-trinh-con----------------------------}
function dientich(x,y:real):real;
begin
dientich:=x*y;
end;
{-------------------------chuong-trinh-chinh---------------------------}
begin
clrscr;
repeat
write('Nhap chieu dai:'); readln(d);
write('Nhap chieu rong:'); readln(r);
until (d>0) and (r>0) and (d>=r);
writeln('Dien tich cua hinh chu nhat la: ',dientich(d,r):4:2);
readln;
end.

Câu 3:

uses crt;
var st:string;
dem,d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
dem:=0;
d:=length(st);
for i:=1 to d do
if st[i] in ['0'..'9'] then inc(dem);
writeln('So ki tu chu so la: ',dem);
readln;
end.

Mori Ran 13 tháng 7 lúc 13:06

Chào Đỗ nha. Mình mới vô chương trình nên mình không chắc là câu trả lời của mình hoàn toàn đúng đâu.

Câu 1: B

Câu 2: D

Câu 3: D

Câu 4: D

Câu 5: B

Câu 6: C

Câu 7: B

Câu 8: A

( Xin lỗi Đỗ nhưng các câu cuối không thuộc trong kiến thức của mình.).

Rapton321 12 tháng 5 2019 lúc 20:44

uses crt;

var d,i,n:integer;

a:array[1..100]of integer;

begin

write('nhap do dai day so:');readln(n);

d:=0;

for i:=1 to n do begin

writeln('nhap so thu ',i,':');readln(a[i]);

if a[i] mod 2=0 then d:=d+1;

end;

writeln('trong day co ',d,' so chan');

readln

end.

Nguyễn Lê Phước Thịnh 19 tháng 6 lúc 20:55

const fi='so.equ';

fo='soam5.equ';

var f1,f2:text;

i,n:integer;

a:array[1..100]of integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eoln(f1) do

begin

inc(n);

read(f1,a[n]);

end;

for i:=1 to n do

if (a[i]<0) and (a[i] mod 5=0) then write(f2,a[i]:4);

close(f1);

close(f2);

end.

Nguyễn Lê Phước Thịnh 19 tháng 6 lúc 20:56

a)

Type mang=array[1..100]of integer;

procedure nhap(var a:mang);

var n,i:integer;

begin

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

end;

b) procedure xuat(var a:mang);

var i,n:integer;

begin

for i:=1 to n do

if a[i] mod 2=0 then write(a[i]:4);

end;