K
Khách

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.

Xong đề có yêu cầu gì thêm không bạn?

4 tháng 3 2022

à có sử dụng biến mảng nha

Bạn An đạt giải cao trong kỳ thi Học sinh giỏi Lớp 9. Bố mẹ An thưởng cho An một bộ máy vi tính mới. Để mua bộ máy vi tính hoàn chỉnh cần có đủ 4 thành phần: CPU, màn hình, bàn phím và chuột. Bạn An có thể chọn cho mình nhiều bộ phận từ các nhà sản xuất khác nhau. Ngoài chất lượng sản phẩm thì giá cả là vấn đề bạn An quan tâm.Yêu cầu: Em hãy lập trình để tìm giúp bạn An 2 bộ máy vi tính có giá rẻ nhất...
Đọc tiếp

Bạn An đạt giải cao trong kỳ thi Học sinh giỏi Lớp 9. Bố mẹ An thưởng cho An một bộ máy vi tính mới. Để mua bộ máy vi tính hoàn chỉnh cần có đủ 4 thành phần: CPU, màn hình, bàn phím và chuột. Bạn An có thể chọn cho mình nhiều bộ phận từ các nhà sản xuất khác nhau. Ngoài chất lượng sản phẩm thì giá cả là vấn đề bạn An quan tâm.

Yêu cầu: Em hãy lập trình để tìm giúp bạn An 2 bộ máy vi tính có giá rẻ nhất và đắt nhất để bạn tham khảo.

Dữ liệu vào: đọc từ file VITINH.INP gồm:

- Dòng 1 bắt đầu bằng một số N (1 ≤ N ≤ 103) là số các CPU mà bạn có thể lựa chọn, theo sau là N số nguyên dương không vượt quá 1000 là giá của các CPU;

- 3 dòng tiếp theo ghi giá của màn hình, bàn phím và chuột theo định dạng tương tự dòng 1.

Dữ liệu ra: ghi ra file VITINH.OUT gồm 2 số nguyên trên một dòng cách nhau bởi dấu cách, số thứ nhất là giá rẻ nhất, số thứ hai là giá đắt nhất tìm được.

0
3 tháng 3 2022

Bạn gõ lại cho rõ đề nhé, nếu điều kiện của vòng lặp while do là s=6 thì nó không thực hiện vì ban đầu đề là s=4

3 tháng 3 2022

Program HOC24;

var a: real;

i,n: integer;

begin

write('N= '); readln(n);

a:=0;

for i:=1 to n do if i mod 2=1 then a:=a+1/i;

write('A=',A:6:2);

readln

end.

#include <bits/stdc++.h>

using namespace std;

double s;

int n,m,i;

int main()

{

cin>>n>>m;

s=1;

for (i=n; i<=m; i++)

s=s*(1/(i*1.0));

cout<<fixed<<setprecision(2)<<s;

return 0;

}

4. Câu hỏi bài tập:4.1/ Tìm hiểu câu lệnh lặp dưới đây và cho biết khi kết thúc câulệnh giá trị của biến S và biến n bằng bao nhiêu?S:=0; n:=0;While S<=10 doBeginn:=n+1;S:=S+n;End;Trả lời:Giá trị của biến S sau khi thực hiện=...............Giá trị của biến n sau khi thực hiện=...............4.2/ Gạch dưới chỗ sai của các câu lệnh sau và viết lại câu lệnh đúng:a) While X:= 10 do X:=...
Đọc tiếp

4. Câu hỏi bài tập:
4.1/ Tìm hiểu câu lệnh lặp dưới đây và cho biết khi kết thúc câu
lệnh giá trị của biến S và biến n bằng bao nhiêu?
S:=0; n:=0;
While S<=10 do
Begin
n:=n+1;
S:=S+n;
End;

Trả lời:
Giá trị của biến S sau khi thực hiện
=...............
Giá trị của biến n sau khi thực hiện
=...............

4.2/ Gạch dưới chỗ sai của các câu lệnh sau và viết lại câu lệnh đúng:
a) While X:= 10 do X:= X+1;→............................................................
b) While X > 5 for X:= X-1→ .............................................................
c) While X< 10 do X = 5 ;→.................................................................
d) While X <> 0 ; do X:=X-1;→...........................................................

Sửa lại chương trình
Var a : integer;
Begin
a:=5;
While a<6 do begin

writeln(‘A’);
a := a + 1 ;
end;

end.

5. Bài tập thực hành:
Bài 1: Viết chương trình : “BAI8B1” tính tổng của các số tự nhiên liên
tiếp cho đến khi tổng lớn hơn 1000 thì dừng. Cho biết tổng tìm được và
con số cuối cùng được cộng vào:

Hướng dẫn Chương trình

1. Khai báo tên chương trình
2. Khai báo thư viện
3. Khai báo biến: S,n : số nguyên
4. Bắt đầu chương trình
5. Xóa màn hình
6. Gán S 0;n 1;
7. Trong khi S<=1000 thực hiện:
bắt đầu
SS+n
n n+ 1
kết thúc
8. In ra tổng S
9. In ra số n cuối cùng được cộng
10. Tạm dừng chương trình
11. Kết thúc chương trình

1....................................................................
2....................................................................
3....................................................................
4....................................................................
5....................................................................
6....................................................................
7....................................................................

......................................................................

......................................................................

......................................................................

......................................................................
8....................................................................
9....................................................................
10..................................................................
11..................................................................

1

Bạn tách ra đibạn

3 tháng 3 2022

Tham khảo:

program tinhtong;

uses crt;

var n,i:integer;

       s:real;

begin

clrscr;

write(‘Nhap n: ‘);  readln(n);

s:=0;

for i:=1 to n do

 s:=s+1/i;

write(‘Tong la: ‘,s);

readln

end.

3 tháng 3 2022

Câu 1:

a,Var i,n,S:longint;

Begin

Read(S);

S:=0;

For i:=1 to n do S:=S+i;

Write(A);

Readln;

End.

b, Var S,n:longint;

Begin

S:=0; n:=0

While S<=1000 do

Begin n:=n+1; S:=S+n end;

Writeln('So n nho nhat de tong > 1000 là ' , n);

Writeln('tong dau tien > 1000 ' , S)

End.

7 tháng 3 2022

Này là c++ đúng không ạ