Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 đề về nhà 1

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: đề về nhà 1   17/1/2017, 10:21

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề về nhà 1   17/1/2017, 18:10

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.


Được sửa bởi nhathuyvanlang ngày 18/1/2017, 09:27; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề về nhà 1   17/1/2017, 18:24

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.

Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề về nhà 1   17/1/2017, 18:31

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề về nhà 1   17/1/2017, 18:51

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề về nhà 1   

Về Đầu Trang Go down
 
đề về nhà 1
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Thảo luận :: đưa bài-
Chuyển đến