Câu 1:viết chương trình sử dụng câu lệnh lặp for...do để tính tổng của 5 số thực x1,x2,...x5 và các số thực được nhập từ bàn phím. Câu 2: viết chương trình sử dụng câu lệnh lặp while....do để tính tổng của 5 số thực x1,x2.....x5 và các số thực được nhập từ bàn phím

hang91hh

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 37 xem

1 trả lời

Thích Trả lời

thuytrangbinhduong2k3

Câu 1 :

Program BT_1;
Var i: longint;
t : real;
a : array [1..100] of real;
Begin
t := 0;
For i := 1 to 5 do
Begin
Write ('A[',i,']= ');Readln(a[i]);
t := t + a[i];
end;
Write ('TOng cua 5 so thuc do la : ',t : 2:4);
end.

Câu 2 :

Program BT_2;
Var i: longint;
t : real;
a : array [1..100] of real;
Begin
t := 0;
while i <> 5 do
Begin
i := i + 1;
Write ('A[',i,']= ');Readln(a[i]);
t := t + a[i];
end;
Write ('Tong cua 5 so thuc do la : ',t : 2:4);
end.

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

119935219771337

Câu 1:

program Cau_1;

uses crt;

var i: byte;

x,T: real;

Begin

clrscr;

for i:=1 to 5 do

begin

write('Nhap so thuc thu ',i,': '); readln(x);

T:=T+x;

end;

write('T = ',T:2:2);

readln

End.

Câu 2:

program Cau_2;

uses crt;

var i: byte;

x,T: real;

Begin

clrscr;

i:=1;

while i<=5 do

begin

write('Nhap so thuc thu ',i,': '); readln(x);

T:=T+x;

i:=i+1;

end;

write('T = ',T:2:2);

readln

End.

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

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

Giải hộ mình với ạ Mai mình ktra

Không cần làm câu 3 ạ ! Mình cảm ơn nhiều

Tìm x , biết : 1) 1/4 + 3/4.x = 1/2 2) x/5 +x/10=2/5 3)x-2/3 = 5/7 4) 2.x - 1 / 6 = x-3/2 5) ( 75% . x - 2/3 ) = 1/6

Từ những cuộc vận động "Ủng hộ đồng bào bị lũ lụt", "Giúp đỡ nạn nhân chất độc da cam", "Ủng hộ nhân dân Nhật Bản" ... và những chương trình truyền hình "Trái tim cho em", "Thắp sáng ước mơ". Em hãy phát biểu cảm nghĩ của mình bằng bài văn ngắn với nội dung: Sự sẻ chia và tình yêu thương là điều quý giá nhất trên đời. Giúp mình zới nha

Phân tích đoạn văn thứ 2 của bài Viếng Lăng Bác

giúp tui với thanks làm từ câu 3 đến hết nhé

trên cùng một nửa mặt phẳng bờ chứa tia ox vẽ hai tia oy và oz sao cho xoy=50 xoz=100 a) tính số đo góc yOz b ) chứng tỏ tia Oy là tia phân giác của góc xOz c) vẽ tia Om và tia On lần lượt là tia phân giác của góc xOy và góc yOz . Tính số đo góc mOn ? cũng muộn rùi nhưng vẫn mong mọi người lm giúp ạ ! Chỉ cần làm phần c thui ạ . 50 đ đó nên mong mọi người làm cẩn thận dùm với ạ !

Các bạn giải nhanh giùm mình cần gấp

2. Nếu đặt vào 2 đầu cuộn dây sơ cấp của máy biến thế 1 hiệu điện thế 1 chiều ko đổi thì hiệu điện thế của 2 đầu cuộn dây thứ cấp bằng bao nhiêu? vì sao?

1 ) tom is telling me about the author .Her novel is one of the best sellers 2) Mrs dark is very happy .She won the first prize of the spelling contest 3) "Happy weekend" Ayou are the same. B Same you are C the same to you. DSorry Giúp em vs ạh

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