Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
HS tự tìm hiểu giá điện và tham khảo chương trình sau
+ Bậc 1: Từ 0 – 50kWh: 1.678 đồng/kWh.
+ Bậc 2: Từ 51 – 100kWh: 1.734 đồng/kWh.
+ Bậc 3: Từ 101 – 200kWh: 2.014 đồng/kWh.
1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.
Câu 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>=a[j] then kt:=1;
if kt=0 then writeln('Day la day so khong giam')
else writeln('Day khong la day so khong giam');
readln;
end.
Bài 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>a[i+1] then kt:=1;
if kt=0 then write('Day so khong giam')
else writeln('Day so lon xon');
readln;
end.
program TinhSanLuongLua;
var
num_households, i: integer;
xom3_harvest, xom6_harvest: array[1…100] of real;
xom3_total, xom6_total, xom3_avg, xom6_avg: real;
begin
// Nhập vào số lượng hộ gia đình ở xóm 3 và xóm 6
write('Nhap so luong ho gia dinh o xom 3 va xom 6: ');
readln(num_households);
// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 3
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 3:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom3_harvest[i]);
end;
// Nhập vào sản lượng thu hoạch lúa của từng hộ gia đình ở xóm 6
writeln('Nhap san luong thu hoach lua cua tung ho gia dinh o xom 6:');
for i := 1 to num_households do
begin
write('San luong thu hoach lua cua ho gia dinh ', i, ': ');
readln(xom6_harvest[i]);
end;
// Tính tổng sản lượng thu hoạch lúa của từng xóm
xom3_total := 0;
xom6_total := 0;
for i := 1 to num_households do
begin
xom3_total := xom3_total + xom3_harvest[i];
xom6_total := xom6_total + xom6_harvest[i];
end;
// Tính sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
xom3_avg := xom3_total / num_households;
xom6_avg := xom6_total / num_households;
// In ra màn hình sản lượng thu hoạch lúa trung bình của mỗi hộ gia đình ở từng xóm
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 3 la: ', xom3_avg:0:2);
writeln('San luong thu hoach lua trung binh cua moi ho gia dinh o xom 6 la: ', xom6_avg:0:2);
Bạn tham khảo
program TinhSanLuongLua;
const
SoHoGiaDinh = 5;
var SanLuongXom3: array[1..SoHoGiaDinh] of Integer;
SanLuongXom6: array[1..SoHoGiaDinh] of Integer;
i: Integer;
begin
writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 3:');
for i := 1 to SoHoGiaDinh do
begin
write('Ho gia dinh ', i, ': ');
readln(SanLuongXom3[i]);
end;
writeln('Nhap vao san luong thu hoach lua cua moi ho gia dinh o xom 6:');
for i := 1 to SoHoGiaDinh do
begin
write('Ho gia dinh ', i, ': ');
readln(SanLuongXom6[i]);
end;
writeln('Chenh lech san luong thu hoach lua cua moi ho gia dinh o xom 3:');
for i := 1 to SoHoGiaDinh do
begin
writeln('Ho gia dinh ', i, ': ', SanLuongXom3[i] - SanLuongXom6[i]);
end;
readln;
end.
Program phi_dichvu;
const n = 12;
Var a, b, c: array[1..n] of integer;
i, tong1, tong2, tong3, tong, max, k: integer;
begin
{a. Nhập cước phí điện thoại, điện tiêu dùng và Internet(đừng ghi nhé, chỉ là để làm dấu chỗ làm thôi)}
for i:=1 to n do
begin
writeln('Nhap cac khoan chi dich vu thang thu ', i);
write('Tien dien thoai: '); readln(a[i]);
write('Tien dien tieu dung: '); readln(b[i]);
write('Tien Internet: '); readln(c[i]);
end;
writeln;
{b. Tính tổng số tiền phải trả trong năm}
tong1:=0; tong2:=0; tong3:=0;
for i:=1 to n do
begin tong1:=tong1+a[i];
tong2:=tong2+b[i];
tong3:=tong3+c[i];
end;
tong:=tong1+tong2+tong3;
writeln('Tong so tien chi dinh ki trong nam qua: ', tong);
writeln:
{c.tìm dịch vụ có tổng chi cao nhất}
max:=tong1; k:=1;
if max<tong2 then k:=2;
if max< tong3 then k:=3;
if k=1 then writeln('Tiền chi cho điện thoại cao nhất.')
else if k=2 then writeln ('Tiền chi cho điện cao nhất.')
else writeln('Tien chi cho Internet cao nhat.');
writeln;
{d. Tính trung bình khoản chi dịch vụ mỗi tháng}
writeln('Chi dich vu trung binh hang thang la: ', tong div n);
readln;
end.