viết chương trình: -nhập vào 1 dãy số nguyên bất kì -hiển thị dãy số vừa nhập - yêu cầu kết hợp lệnh if và for test chương trình: i:=1,k:=3
viết chương trình: -nhập vào 1 dãy số nguyên bất kì -hiển thị dãy số vừa nhập - yêu cầu kết hợp lệnh if và for test chương trình: i:=1,k:=3 for j:=1 to 10 do k:=k+j*2; i:-i+k If k mod i:=0 then k:=k*i else k:=k/i; => k=? giúp mình vớii ạ
Lời giải 1 :
1. 2 yêu cầu đầu:
uses crt;
var i,n:longint; a:array[1..1000000]of longint;
begin
clrscr;
write('Nhap so luong phan tu: ');readln(n);
for i:=1 to n do
begin
write('Nhap phan tu thu ',i,': ');readln(a[i]);
end;
for i:=1 to n do write(a[i],' ');
readln;
end.
2. yêu cầu cuối:
K=0 nhé bạn.
Đề không nhầm thì phải có begin, end. Mà k là số thực thì phép mod không thực hiện được. Ở trên là mình sửa chỗ k:=k/i thành k:=k div i rồi khai báo kiểu longint mới chạy được.
Thảo luận
Lời giải 2 :
*Viết chương trình
uses crt;
var i,n:integer;
a:array[1..1000] of integer;
begin
clrscr;
write('Nhap n=');readln(n);
writeln('Nhap day so');
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
writeln('Day so vua nhap');
for i:=1 to n do
writeln('a[',i,']=',a[i]);
readln;
end.
*Test chương trình
k = 0;
*đánh lỗi khá nhiều :v
Có thể bạn quan tâm
Bạn có biết?
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưTâm sự 8
Lớp 8 - Năm thứ ba ở cấp trung học cơ sở, học tập bắt đầu nặng dần, sang năm lại là năm cuối cấp áp lực lớn dần nhưng các em vẫn phải chú ý sức khỏe nhé!
Nguồn : ADMIN :))Xem thêm tại https://loigiaisgk.com/cau-hoi or https://giaibtsgk.com/cau-hoi
Copyright © 2021 HOCTAPSGK