Một số khái niệm về lập trình và ngôn ngữ lập trình

program bai1;

uses crt;

var n,i: integer;

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

begin

clrscr;

write('nhap so n ='); readln(n);

for i:= 1 to n do

begin

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

end;

for i:= n downto 1 do write(a[i] , ' ');

readln;

end.

uses crt;

var n,i: integer;

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

begin

clrscr;

write('nhap so n ='); readln(n);

for i:= 1 to n do

begin

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

end;

{--------------xuat-day-binh-thuong--------------}

for i:=1 to n do write(a[i]:4);

{----------------xuat-day-dao-nguoc-------------}

writeln('day so dao nguoc la: ');

for i:= n downto 1 do write(a[i] , ' ');

readln;

end.

2.

Program bai2;

uses crt;
var i,n,f1,f2: integer;
begin

clrscr;
write('Nhap n: '); readln(n);

f1:=0;

f2:=1;

for i:=1 to n do

begin

write(f1,' ');

f2:=f2+f1;

f1:=f2-f1;

end;

readln;

end.

1.

Program bai1;

uses crt;

var i,n: integer;

function kt(n: integer): boolean;

var i: integer;

begin

kt:=true;

for i:= 2 to n-1 do if (n mod i ) = 0 then

kt:=false;

end;

begin

clrscr;

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

for i:= 2 to n do

if kt(i) then write(i:3 , ' ');

readln;

end.

1.

Program bai1;

uses crt;

var i,n: integer;

begin

clrscr;

write('nhap so n ='); readln(n);

i:=1;

while i<=n do

begin

write(i:3,', ');

i:=i+2;

end;

readln;

end.

2.

Program bai2;

uses crt;

var i,n,nhonhat: integer;

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

min: real;

begin

clrscr;

write('nhap n :='); readln(n);

for i:= 1 to n do

begin

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

end;

min:=a[1];

nhonhat:=1;

for i:= 2 to n do

if a[i] < min then

begin

min:=a[i];

nhonhat:=i;

end;

writeln('phan tu nho nhat la phan tu thu ' ,nhonhat);

readln;

end.

{ https://www.facebook.com/profile.php?id=100022887573679 }

Program bai1;

uses crt;

var tu,mau: integer;

a,b,r,ucln : integer;

begin

clrscr;

write('nhap tu ='); readln(tu);

write('nhap mau ='); readln(mau);

if mau = 0 then writeln('khong phai la phan so ')

else

begin

write(tu ,' / ' , mau);

a:=tu;

b:=mau;

r:=a mod b;

while r <> 0 do

begin

a:=b;

b:=r;

r:=a mod b ;

end;

ucln:=b;

tu:=tu div ucln;

mau:= mau div ucln;

if mau <> 1 then

write('=' , tu , '/' ,mau)

else write(tu);

end;

readln;

end.

program bai_tap;

uses crt;

var a,b,c:byte;

begin

clrscr;

write('nhap do dai 3 canh cua tam giac: ');

readln(a,b,c);

if a=b=c then writeln('tam giac deu')

else writeln('k phai tam giac deu')

program bai_tap;

uses crt;

var a,b,c,d,e,f,g,s,dem :byte;

tb:real;

begin

clrscr;

{cau a}

write('nhap lan luot so hanh khach moi toa: ');

readln(a,b,c,d,e,f,g);

{cau b}

s:=a+b+c+d+e+f+g;

writeln('tong so hanh khach la: ',s);

{cau c}

tb:=s / 7;
dem:=0;

if (a < tb) then inc(dem);
if (b < tb) then inc(dem);
if (c < tb) then inc(dem);
if (d < tb) then inc(dem);
if (e < tb) then inc(dem);
if (f < tb) then inc(dem);
if (g < tb) then inc(dem);
writeln('co ',dem,' toa co hanh khach it hon so luong hanh khach tb');

readln;

end.

bạn đăng từng câu người khác mới có tâm trí để trả lời nhé

như thế này nhức mắt quá