đề về nhà 1

Bài 1 (4 điểm) Lưu với tên bai1.pas
Hãy viết chương trình tính số tiền điện của các hộ dân sử dụng điện. Giá tiền điện phải trả được tính như sau:
+ Từ 50 kWh đầu tiên, phải trả 1230 đồng,
+ Từ 51 kWh đến 100 kWh, mỗi số phải trả 1279 đồng,
+ Từ 101 kWh đến 200 kWh, mỗi số phải trả 1394 đồng,
+ Từ 201 kWh đến 300 kWh, mỗi số phải trả 1720 đồng,
+ Từ 301 kWh đến 400 kWh, mỗi số phải trả 1945 đồng,
+ Từ 401 kWh trở lên, phải trả 2028 đồng.
Số tiền điện mà mỗi hộ dân phải trả ở hóa đơn là tổng số tiền điện mà hộ dân đó đã sử dụng cộng với 10% thuế VAT.
Bài 2 (4 điểm) Lưu với tên bai2.pas
Viết chương trình đọc số a bằng tiếng việt, với số a là số nguyên (a<1000) và a được nhập vào từ bàn phím.
Chú ý: để phân biệt cách ghi mốt với một
mốt       mo’t
một       mot
Ví dụ:  a=551 Ví dụ:  a=501
nam tram nam muoi mo’t nam tram le mot
Bài 3: (4 điểm) Lưu với tên bai3.pas
  Cho 1 dãy số gồm n phần tử n<15. Nhập từ bàn phím số phần tử và giá trị từng phần tử. Thực hiện các chương trình sau:
a) Tính tổng các phần tử lẽ của dãy
b) Tính tổng các phần tử chẵn của dãy
c) Sắp xếp các phần tử trong dãy theo chiều giảm dần.
Bài 4 : (4 điểm) Lưu với tên bai4.pas
Viết chương trình nhập vào một xâu ký tự từ bàn phím. Tìm và in ra từ có độ dày lớn nhất trong xâu vừa nhập vào. (nếu 2 từ bằng nhau thì in ra 2 từ)
Gợi ý: tách từng từ để so sánh.
Ví dụ: Nhap vao xau ki tu: nguyen van hung
Tu co do day lon nhat la: nguyen
Bài 5 : (4 điểm) Lưu với tên bai5.pas
Cho chuỗi văn bản T có chiều dài bất kỳ (tối đa 255 ký tự). Viết chương trình thực hiện
a) Xóa bỏ các khoảng trắng thừa đầu, giữa, cuối chuỗi.
b) In hoa các chữ cái đầu tiên của chữ trong chuỗi.

Bài 1:

Code:

uses crt;
var n,i:longint;tien:real;
begin
clrscr;
write('nhap so luong dien da dung:');readln(n);
for i:=1 to n do
    begin
        if i<50 then tien:=tien+1230;
         if (51<i) and (i<100) then tien:=tien+1279;
         if (101<i) and (i<200) then tien:=tien+1394;
         if (201<i) and (i<300) then tien:=tien+1720;
         if (301<i) and (i<400) then tien:=tien+1945;
         if i<401 then tien:=tien+2028;
    end;
tien:=tien*110/100;
writeln('so tien la:',tien:6:3);
readln;
end.

Bài 2:

Code:

uses crt;
var a,tram,chuc,dv:integer;
begin
clrscr;
write('nhap so can doc:');readln(a);
writeln;
tram:=a div 100;
chuc:=a div 10 mod 10;
dv:=a mod 10;
case tram of
    1:write('mot tram ');
    2:write('hai tram ');
    3:write('ba tram ');
    4:write('bon tram ');
    5:write('nam tram ');
    6:write('sau tram ');
    7:write('bay tram ');
    8:write('tam tram ');
    9:write('chin tram ');
end;
case chuc of
    0:if dv<>0 then write('le ');
    1: write('muoi ');
    2:write('hai muoi ');
    3:write('ba muoi ');
    4:write('bon muoi ');
    5:write('nam muoi ');
    6:write('sau muoi ');
    7:write('bay muoi ');
    8:write('tam muoi ');
    9:write('chin muoi ');
end;
case dv of
    1:if (chuc=0) or (chuc=1) then write('mot') else write('mo`t');
    2:write('hai');
    3:write('ba');
    4:write('bon');
    5:write('nam');
    6:write('sau');
    7:write('bay');
    8:write('tam');
    9:write('chin');
end;
readln;
end.

Bài 3:

Code:

uses crt;
var a[1..15] of integer;
   n,j,tongL,tongC,i:integer;
procedure dc(var a,b:integer);
var t:integer;
begin
t:=a;a:=b;b:=t;
end;
{------------------------}
begin
clrscr;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
   begin
        write('a[',i,']:');readln(a[i]);
   end;
for i:=1 to n do if a[i]mod 2=0 then tongC:=tongC+a[i] else tongL:=tongL+a[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then dc(a[i],a[j]);
writeln('tong cac phan tu le la:',tongL);
writeln('tong cac phan tu chan la:',tongC);
writeln('mang sau khi sap xep:');
for i:=1 to n do write(a[i]:3);
readln;
end.

Bài 4:

Code:

uses crt;
var st:string;
    so:array[1..100] of integer;
    a,b,c,i,n,j,k,max:integer;
begin
clrscr;
write('nhap chuoi:');readln(st);
insert(#32,st,length(st)+1);
for i:=1 to length(st) do if st[i]<>#32 then
    begin
        if st[i]<>#32 then n:=n+1;
        if st[i+1]=#32 then
            begin
                k:=k+1;
                so[k]:=n;
                n:=0;
            end;
    end;
for i:=1 to k do
if so[i]>max then max:=so[i];
for i:=1 to length(st) do
if st[i]<>#32 then
  begin
        n:=n+1;
        if st[i+1]=#32 then
          begin
                if n=max then for j:=i-n to i do write(st[j]);
                if n=max then write('    ');
                n:=0;
          end;
  end;
readln;
end.