viết cho mình 1 chương trình thực tế có sử dụng biến mảng mình cần gấp nha lưu ý ko lấy các bài có trong sách nha vd: tính tiền điện,tính thunhaapj trung bình

phamvanminh

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 22 xem

1 trả lời

Thích Trả lời

tranbaothinh

đây, tìm bcnn luôn, rất ư là thực tế:

program tim_bcnn;

uses crt;
var x, y, i, n, ucln, bcnn: longint;
a: array[1..100] of integer;
function h_ucln(x,y:integer):integer;
begin
while x<>y do
if x>y then
x:=x-y
else
y:=y-x;
h_ucln:=x;
end;
begin
clrscr;
repeat
write('Nhap N (N>=2): ');
readln(n);
until(n>=2);
for i:=1 to n do
begin
write('Phan tu thu ',i,' = ');
readln(a[i]);
end;
ucln:=h_ucln(a[1],a[2]);
bcnn:=(a[1]*a[2]) div ucln;
for i:=3 to n do
begin
ucln:=h_ucln(bcnn,a[i]);
bcnn:=(bcnn*a[i]) div ucln;
end;
writeln('bcnn la: ',bcnn);
readln;
end.

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

hiepa2badinh

- Chương trình tính nhiệt độ của n ngày

uses crt;

var a : array[1..165] of real;

i, n : integer; s : real;

begin

clrscr;

write('Nhap so ngay : '); readln(n);

s := 0;

for i := 1 to n do

begin

write('Nhap nhiet do ngay thu ', i ,' : ');

readln(a[i]); s := s + a[i];

end;

writeln('Nhiet do trung binh ', n ,' ngay la ', s / n : 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

Vẽ đậu mầm vui Nl: lần đầu tiên thấy tranh mik đc vote quá 10 sao và đc 10 tim ; v ; Vui quá chừng

viết đoạn văn giải thích 8 đến 10 câu nói về sự kiên trì và cố gắng của con người trong cuộc sống

Cho tam giác ABC vuông cân taị A, D là 1 điểm bất kì trên BC. Vẽ hai tia Bx và Cy vuông góc với BC và chứa điểm A. Qua A vẽ một đường thẳng vuông góc với AD cắt Bx tại M và cắt Cy tại N. Chứng minh: a) AM=Ad b) A là trung điểm của MN c) Tam giác DMN vuông cân Làm nhanh giúp mình Cần gấp tối nay

Với Mùa xuân nho nhỏ,Thanh Hải đã gửi tới cho mỗi chúng ta bức thông điệp vè lẽ sống cống hiến cho cuộc đời. Vậy phải phân tích khổ mấy hả các bạn???

Từ các số (0;1;2;3;4;5;6) có thể lập được bao nhiêu số tự nhiên khác nhau với những chữ số khác nhau. Chọn ngẫu nhiên một số trên tính xác suất số được chọn là số chẵn có bốn chữ số khác nhau.

-Ngô Quyền kéo quân ra Bắc nhằm mục đích gì -Vì sao Kiều Công Tiễn cho người cầu cứu nhà Nam Hán -kế hoạch đánh giặc của Ngô Quyền chủ động và độc đáo ở điểm nào -Vì sao lại nói : trận chiến trên sông Bạch Đằng năm 938 là 1 chiến thắng vĩ đại của dân tộc ta

Mng giúp mik nhé! Vẽ sơ đồ nguyên lý mạch điện gồm 1 nguồn điện, 2 bóng đèn và 3 công tắc điện K1, K2, K3 thỏa mãn yêu cầu sau: - K1 đóng, bóng đèn 1 sáng bình thường. - K2 đóng, bóng đèn 2 sáng bình thường. - K3 đóng, bóng đèn 1 và bóng đèn 2 sáng yếu. Mong mng giúp đoàng hoàng, mik ko muốn phí điểm để nhận đc câu tlời ko phù hợp. Cảm ơn ạ!

Oxi hóa hoàn toàn 2,7g kim loại A. Sau Pứ thu được 5,1g kim loại oxit đó bt A hóa trị III, k.loại A là gì

Tại sao vào mùa đông ta thường thấy con người và các loài động vật khi thở như có khói bay ra

nêu biện pháp đấu tranh bảo vệ xây dựng chính quyền CM sau CM T8

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