Bài 5: Viết chương trình tính tiền điện với tiền điện = số kwh*đơn giá, số kwh nhập từ bàn phím và đơn giá=3000. Bài 7: Viết chương trình tính chỉ số khối cơ thể BMI (Body Mass Index) theo công thức BMI=W/H² trong đó: W là cân nặng tính bằng kilôgam, H là chiều cao tính bằng mét.

lh9037685

2 năm trước

Bài 5: Viết chương trình tính tiền điện với tiền điện = số kwh*đơn giá, số kwh nhập từ bàn phím và đơn giá=3000. Bài 7: Viết chương trình tính chỉ số khối cơ thể BMI (Body Mass Index) theo công thức BMI=W/H² trong đó: W là cân nặng tính bằng kilôgam, H là chiều cao tính bằng mét. Giá trị W và H được nhập vào từ bàn phím. Nếu BMI<18.5: người gầy 18.5<BMI<25: bình thường Nếu BMI>=25: người béo Bài 8: Viết chương trình tính tiền công lao động như sau: Đơn giá mỗi giờ làm là 25000 đồng. Nếu làm ngoài giờ thì được tính gấp đôi. Với số giờ làm bình thường và số giờ làm ngoài giờ được nhập vào từ bàn phím. Giúp mìk vs ạ :'(((

Loga Sinh Học lớp 12

0 lượt thích 18 xem

1 trả lời

Thích Trả lời

Tranthiep

Đây là câu trả lời đã được xác thực

Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

Bài 5

a/ Program tiendien;

Uses crt;

var kWh,dongia:Integer;

begin

clrscr;

write('Nhap kWh ');

readln(kwh);

write('Nhap don gia ');

readln(dongia);

writeln('So tien phai tra: ',kwh*dongia);

Readln

end.

b/ Program tiendien;

Uses crt;

var kWh:Integer;

begin

clrscr;

Write('Nhap kWh ');

Readln(kwh);

Writeln('So tien phai tra: ',kwh*3000);

Readln

end.

Bài 6.

program BMI;

uses crt;

var w,h,BMI:real;

begin

clrscr();

writeln('Nhap W (Can nang) (Kg):'); readln(W);

writeln('Nhap H (Chieu cao) (m):'); readln(h);

BMI:=W/(sqr(H));

writeln('BMI cua ban la: ',BMI:6:3);

if BMI < 0 then writeln('Xem lai cac chi so nhap');

if BMI < 18.5 then Writeln('Ban la nguoi gay');

if (18.5 < BMI) and (BMI < 25) then writeln('bạn là người bình thường');

if (BMI >= 25) then write('Ban la nguoi beo');

readln

end.

Bài 7:

Program Tiencong;

uses crt;

var x,y:Integer;

tiencong:LongInt;

begin

clrscr;

write('Nhập số giờ làm bình thường :');readln(x);

write('Nhập số giờ làm ngoài giờ :');readln(y);

tiencong:=((x+2*y)*2500);

writeln('Tiền công là :',tiencong,'đồng');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

quanquan06

Bài 5:

uses crt;

var m,n:longint;

begin

clrscr;

write('Nhap so kWh su dung: ');readln(n);

write('Nhap don gia cua 1 kWh: ');readln(m);

writeln('So tien phai tra: ',n*m);

readln;

end.

Bài 7:

uses crt;

var w,h:longint;

begin

clrscr;

write('Nhap can nang: ');readln(w);

write('Nhap chieu cao: ');readln(h);

if (w/sqr(h))<18.5 then writeln('Chi so BMI: ',w/sqr(h),' la nguoi gay');

if ((w/sqr(h))>18.5) and (w/sqr(h)<25) then writeln('Chi so BMI: ',w/sqr(h),' la nguoi binh thuong')

else writeln('Chi so BMI: ',w/sqr(h),' la nguoi beo');

readln;

end.

Bài 8:

uses crt;

var m,n:longint;

begin

clrscr;

write('Nhap thoi gian lam binh: ');readln(n);

write('Nhap thoi gian lam them: ');readln(m);

writeln('Tien cong lao dong la: ',25000*(n+2*m);

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

He didn't know English.This made it difficult for him to get a good job.(Relative clause)

en to a girl talking about her hobby. Decide whether the sentend Sentences Julia is talking about her hobby. - She bought a camera on her eleventh birthday. She has time for her hobby every day. She goes to the park at the weekend to take photos of the flowers. Julia doesn't let anyone see the photos she has taken. ICO GRMMAR (4.0 POINTS) the word that has the underline part pronounced differently. (0.3 point) A. allergy 4. collecting A. itchy se the word having the different stress position. (0.2point) A. essential . mural e the best ontion for each sentence. (2.0 points) B. fragile B. force B. stomach C. program C. computer * C. charity D. gener D. comm D. matg C. occasion C. graffiti B. unusual D. calo B. monopoly D. con

Viết 1 đoạn văn ( 6-8 câu ) nêu suy nghĩ và hành động của em khi thấy một người bạn có hoàn cảnh nghèo khó

Cho n =29k,k€N. Với giá trị nào của k thì n A)là 1 số nguyên tố. B)là hợp số.c)ko là nguyên tố cũng ko là hợp số.nhờ mn giúp e với ah

cho nửa đường thẳng tâm O đường kính AB=2R. Gọi m là một điểm chuyển động trên nửa đường thẳng đó (M khác A và B). Vẽ đường tròn tâm M tiếp xúc với đường kính AB tại H. Từ A và B kẻ 2 tiếp tuyến tiếp xúc với đường tròn tâm M thứ tự tại C và D. câu a) tính AC+BD theo R b)tứ giác ABCD là hình gì ? vì sao? c)khi tia CD và tia AB cắt nhau tại k. chứng minh :AC*BD< BH*CK

điền một từ hoặc cụm từ vào chỗ trống để có phép nhân hoá: a, sóng biển.........................................cùng với những làn gió b, chú gà con..............................................đi tìm mẹ, kêu lên những tiếng chiêm chiếp đáng thương c, những hạt mưa........................................................trên mặt hồ d, ông mặt trời.......................................qua cách đồng

Rễ cây chỉ hút đc nước và muối khoáng ở dạng gì. Điều kiện bên ngoài nào ảnh hưởng đến sự hút nước và muối khoáng của cây

Nhiều lông hút của rễ cây hình thành làm tăng bề mặt tiếp xúc giữa rễ và đất giúp cho A. Rễ bám chặt vào đất cho cây đứng vững B. đất tơi xốp C. rễ hấp thụ nhiều nước và ion khoáng D. tế bào lông hút có nồng độ ion cao

Mọi người giúp em với em cảm ơn ạ

Viết chương trình giải phương trình ax2 + bx + c = 0 Với các hệ số a,b,c được nhập từ bàn phím.Bằng PASCAL nha !

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến