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.

BÀI THỰC HÀNHTuần 25 (Tiết 1)Bài 1: Cho mãng gồm n phần tử là số thực.a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.{Chương trình}Program Tuan25_Bai1;Uses crt;VarA: array[1…..100] of real;Max, min : realI, n, Vtmax, Vtmin = integer;BeginWriteln(‘nhap n:’); readln(n);For i: 1 to n do;BeginWrite(‘[‘,I,’]=’); readln(A[i]);End.i:=1;{Tìm...
Đọc tiếp

BÀI THỰC HÀNH

Tuần 25 (Tiết 1)

Bài 1: Cho mãng gồm n phần tử là số thực.

a.Tìm hai phần tử liên tiếp nhau có tổng bằng n.

b. Tính khoảng cáhc giữa hai vị trí của phần tửlớn nhất và bé nhất đầu tiên trên A.

{Chương trình}

Program Tuan25_Bai1;

Uses crt;

Var

A: array[1…..100] of real;

Max, min : real

I, n, Vtmax, Vtmin = integer;

Begin

Writeln(‘nhap n:’); readln(n);

For i: 1 to n do;

Begin

Write(‘[‘,I,’]=’); readln(A[i]);

End.

i:=1;

{Tìm hai phần tử liên tiếp nhau có tổng bằng n}

While (A[i] + A[i+1]) <> n) and (i<= n-1) do i:=i+1

If i>=n then write (‘hai phan tu co chi so la:’,i,’ va’,i+1);

{Tính khoảng cáhc giữa hai vị trí của phần tử lớn nhất và bé nhất đầu tiên trên A}

Max=A[1];

Min:A[1];

For i:1 to n do

If max < A[i] then

Begin

Vtmax:= i; Max:=A[i];

End

If min > A[i] then

Begin

Vtmin: i; Min=A[i];

End

Writeln (‘khoangr cach giua 2 phan tu max vaf min la:’,abs(Vtmax – Vtmin));

Readln;

End

1
2 tháng 3 2022

???!!!

2 tháng 3 2022

S:=0; i:=0;

While i<5 do

begin

S:=S+i;

i:=i+1;

end;

Giải thích:

Mô tả lặp trong vòng lặp while..do :

-Vòng 1: i ban đầu bằng 0. Kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh s=s+i <=> s=0+0=0 ; i=i+1 <=> i=0+1=1.

Vòng 2: i=1 , kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=0+1=1; i=i+1 <=> i=1+1=2.

Vòng 3: i=2, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=1+2=3; i=i+1 <=> i=2+1=3.

Vòng 4: i=3, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=3+3=6; i=i+1 <=> i=3+1=4.

Vòng 5: i=4, kiểm tra điều kiện i<5 ---> ĐK đúng thực hiện câu lệnh : s=s+i <=> s=6+4=10; i=i+1 <=> i=4+1=5.

i=5, kiểm tra điều kiện i<5 ---> ĐK sai ---> kết thúc

Vậy giá trị s sau khi thực hiện đoạn chương trình đó là : 10

2 tháng 3 2022

@@@@@@

S nó bằng 

15 ạ

HT

2 tháng 3 2022

Có Vid thì họ mở khoá hình ảnh nhé

2 tháng 3 2022

có vip mới được

2 tháng 3 2022

n:=0;

for i:= 1 to 10 do n:=n+i;

Giải thích : n:=n+i nghĩa là giá trị ban đầu cộng lần lượt với i ( dãy số từ 1 đến 10) n sẽ thay đổi giá trị sau mỗi lần cộng

Hoạt động của câu lệnh :

Vòng 1 : n:=n+i; <=> n=0+1=1;

Vòng 2: n:=n+i <=> n=1+2=3 ;

Vòng 3 : n:=n+i <=> n=3+3=6;

Vòng 4: n:=n+i <=> n=6+4=10;

Vòng 5 : n:=n+i <=> n=10+5=15;

Vòng 6 : n:=n+i <=> n=15+6=21;

Vòng 7: n:=n+i <=> n=21+7=28;

Vòng 8 : n:=n+i <=> n=28+8=36;

Vòng 9 : n:=n+i <=> n=36+9=45;

Vòng 10 : n:=n+i <=> n=45+10=55;

Vậy đoạn chương trình trên có giá trị n=55

2 tháng 3 2022

TL: 

n = 55 nhé 

@@@@@@@@@@@@ 

k cho mk 

HT

2 tháng 3 2022

@@@@

a) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy

HT

tham khảo ''

a) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì giá trị đầu lớn hơn giá trị cuối

b) Sai vì sau câu lệnh i:=1+1 thiếu dấu chấm phẩy

nha

hok tốt nha

ok nha

1 tháng 3 2022

Kết bạn zới mình nhé

1 tháng 3 2022

cái j zậy bạn

1 tháng 3 2022

là phóng to màn hình nhé

1 tháng 3 2022

là tăng và giảm trang nha

1 tháng 3 2022

gan nha 

 học tot

2 tháng 3 2022

viết câu lệnh đa cấp có 8 cạnh

1 tháng 3 2022

Tại gi cao cấu hình rất cao cần đồ xịn nhoé :>