Bài 1:

uses crt;
var a,b:array[1..99]of integer;
i,n,dem,dem1,d:integer;
st:string;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{---------------------------------xu-ly----------------------------------}
dem:=0;
dem1:=0;
for i:=1 to n do
if a[i]>0 then
begin
str(a[i],st);
d:=length(st);
if d=3 then
begin
inc(dem);
inc(dem1);
b[dem1]:=a[i];
end;
end;
writeln('co ',dem,' so duong co 3 chu so trong day');
writeln('cac so do la: ');
for i:=1 to dem1 do
write(b[i]:4);
readln;
end.

Bài 2:

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

uses crt;

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

n,i,t,max:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{------------------------------------cau-1-------------------------------}

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

if a[i]<0 then t:=t+a[i];

writeln('tong cac so nguyen am la: ',t);

{---------------------------------cau-2-------------------------------}

max:=a[1];

for i:=1 to n do

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

writeln('gia tri lon nhat cua day la: ',max);

writeln('vi tri la: ');

for i:=1 to n do

if max=a[i] then write(i:4);

readln;

end.

a)

program Tong_5a;

uses crt;

var y: real;

n: byte;

Begin

clrscr

y:=0;

for n :=1 to 50 do

y:=y + n / ( n +1 ) ;

writeln('Tong y la: y:0:18);

readln;

End.

Nếu biến y khai báo theo kiểu extended thì chương trình tính tổng y sẽ là như sau:

($e+, N+}

program Tong_5a;

uses crt;

var y:real;

n:byte;

Begin

clrscr;

y:= 0;

for n:= 1 to 50 do

y:= y + n/(n+1);

writeln('Tong y la:', y:0:18);

readln;

End.

b)

program Tong_5b;

uses crt;

var n:longint;

e, sh:real;

Begin

clrscr;

sh:=1/2;

n:= 2;

e:= 2 + sh;

while sh>= 2*1E-16 do

begin

inc(n);

sh:=sh*(1/n);

e:= e + sh;

end;

writeln('Gia tri e(n)la: ',e:10:6);

readln;

End.

Câu lệnh rẽ nhánh như sau:

a)

If (sqr(x)+sqr(y))<=1 Then z:=sqr(x)+sqr(y)

else if y>=x then z:=x+y

else z:=0.5;

b)

If sqr(x-a)+sqr(y-b)<=sqr(r) Then z:=abs(x)+abs(y)

Else z:=x+y;

Có thể thay thế đoạn chương trình chứa câu lệnh for-đo (dạng lặp tiến) for <biến đếm>:= <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

bằng đoạn chương trình chứa câu lệnh while-do như sau:

i:= <giá trị đầu>;

while <i< = <giá trị cuối> do

begin

<câu lệnh>;

<tăng i một đơn vị>,

end;

Như vậy, chương trình tính Tong_la viết bằng lệnh for-do

program Tong__la;

uses crt;

var S:real,

a, N: integer;

begin

clrscr;

write('Hay nhap gia tri a vao!'); readln(a);

S:= 1.0/a;

for N:=1 to 100 do

S: = S+1.0/ (a+N);

writeln('Tong S la:', S:8:4);

readln;

End.

được viết lại bằng lệnh while-do như sau:

Program Tong_la;

uses crt;

var S:real;

a, N: integer;

Begin

clrscr;

write('Hay nhap gia tri a vao!'); readln(a);

S:= 1.0/a;

N:= 1;

while N<=100 do

begin

S:= s + 1.0/(a+N);

N:= N + 1;

end;

writeln('Tong s la:', S:8:4);

readln;

End.

Câu lệnh ghép là một câu lệnh được hợp thành từ nhiều câu lệnh thành phần (đơn hoặc kép). Câu lệnh ghép nhằm thực hiện thao tác gồm nhiều thao tác thành phần. Mỗi thao tác thành phần tương ứng với một câu lệnh đơn hoặc câu lệnh ghép khác. Về mặt ngôn ngữ lập trình, câu lệnh ghép là một trong các yếu tố để tạo khả năng chương trình có cấu trúc.

Câu lệnh ghép trong Pascal.

Begin

<các câu lệnh>

End;

Hai dạng cầu lệnh if-then như sau:

a) Dạng thiếu

If<điều kiện> then <câu lệnh>;

if <điều kiện> then <câu lệnh 1 >else <câu lệnh 2 > ;

trong đó:

Điều kiện biểu thức quan hệ hoặc lôgic.

Câu lệnh, câu lệnh 1, câu lệnh 2 là một câu lệnh của Pascal.

Giống nhau: đều cùng là câu lệnh rẽ nhánh và khi gặp một điều kiện nào đó thì chọn lựa thực hiện thao tác thích hợp.

Khác nhau: Trong câu lệnh if-then dạng thiếu, nếu điều kiện không đúng thì thoát khỏi cấu trúc rẽ nhánh, thực hiện câu lệnh tiếp theo của chương trình, còn trong câu if-then dạng đủ, nếu điều kiện không đúng thì thực hiện công việc 2, sau đó mói thoát khỏi cấu trúc rẽ nhánh, thực hiện câu lệnh tiếp theo cùa chương trình.

Program ct1;

Uses crt;

Var h:real;

Begin Writeln(‘Nhap vao do cao h ’);

Readln(h);

Writeln(‘Van toc khi cham dat la ’,sqrt(2*9.8*h));

End.

Program ct1;

Uses crt;

Var h:real;

Begin

Writeln(‘Nhap vao do cao h ’);

Readln(h);

Writeln(‘Van toc khi cham dat la ’,sqrt(2*9.8*h));

End.

Nhận thấy 2 phần gạch chéo trong ô vuông tương đương với 2 phần bỏ trống. Như vậy nếu diện tích phần bị gạch chéo đúng bằng ½ diện tích hình tròn bán kính là a.

Program ct1;

Uses crt;

Var a:real;

Begin Writeln(‘Nhap vao so a’);

Readln(a);

Writeln(‘dien tich phan gach cheo la ’,(a*a*3.14)/2:0:4);

Readkey();

End.

Qua hình vẽ . ta nhận thấy rằng diện tích phần gạch chéo bằng 1/2 diện tích hình tròn tâm

O(0:0), Bán kính R a. Ta lại biết rằng, diện tích hình tròn được tính theo công thức: S = R*R*/Pi; Pi≈3,1416. Khi đó, chương trình tính diện tích phần gạch là như sau:

Program dien_tich_phan_gach;

Uses crt;

Var a: real; Conts pi = 3,1416,

Begin

Clrscr,

Write('Nhap ban kinh duong tron a (a>0): ')

Readln(a) ,

write('Dien tich phan gach cheo la: ',a*a*pi/2:20:4);

Readln End .

Khi chạy chương trình, nếu a = 2 thì diện tích phần gạch là 6.2832;

nếu a = 3 thì diện tích phần gạch là 14.1372;

nếu a = 5 thì diện tích phần gạch là 3 1.8086

Kết quả chương trình như hình dưới đây: