Question

1. Cho dãy gồm N số nguyên A1, A2, ... An. Sắp xếp dãy đã cho theo chiều không giảm. In kết quả lên màn hình

2. Chp tệp chucai.inp gồn nhiều dòng, mỗi dòng là 1 xâu S có độ dài không quá 100. Hãy cho biết có bao nhiêu chữ cái xuất hiện trong xâu S, ghi kết quả lên tệp chucai.equ gồm nhiều dòng, mỗi dòng là 1 số nguyên là số chữ cái trong xâu tương ứng được đọc từ tệp cứa chucai.inp ( yêu cầu : Viết chương trình đọc tệp chucai.inp. Đếm số lượng chữ cái trong xâu và ghi kết quả lên tệp chucai.equ)

Answer 1

Bài 1:

uses crt;

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

n,i,j,tam:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

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 sau khi sap xep la: ');

for i:=1 to n do

write(a[i]:4);

readln;

end.

Bài 2:

const fi='chucai.inp';
fo='chucai.equ';
var f1,f2:text;
s:array[1..255]of string;
dem,dem1,i,j:integer;
x:shortstring;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,s[dem]);
end;
for i:=1 to dem do
begin
dem1:=0;
x:=s[i];
for j:=1 to length(x) do
if (x[j] in ['a'..'z']) or (x[j]in ['A'..'Z']) then inc(dem1);
writeln(f2,dem1);
end;
close(f1);
close(f2);
end.