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.
Thuật toán câu 1:
Bài này dùng mảng A
Đầu tiên cho biến MAX = số đầu tiên trong dãy đó cho vòng for từ 2 đến số chữ số(ví dụ: dãy số là:7 2 8 83 6 8
trong dãy có 6 chữ số). Trong vòng for thực hiện câu lệnh if MAX<A[i] then MAX:=A[i]
Sau khi xong thì cứ hiện thị biến MAX là xong
XIN LỖI nhưng mình không làm sơ đồ được
Chương trình:
Var
A:array[1..100] of integer;
i,n,max:integer;
Begin
Write('nhap do dai cua mang la'); readln(n);
For i:=1 to n do
Begin
Write('A[',i,']='); readln(a[i]);
End;
Max:=a[1];
For i:=2 to n do
If max<a[i] then max:=a[i];
Writeln('gia tri lon nhat trong mang la',max);
Readln;
End.
thuật toán câu 2:
Như thuật toán câu 1 vẫn dùng mảng A
Đầu tiên cho vòng for lòng vòng for khác
For i:=1 to n do
For j:=i+1 to n do
Sau khi nhập vòng for j xong thì so sánh nếu a[i]>a[j]
Sau khi so sánh nếu điều kiện đúng thì thực hiện việc đổi giá trị cho 2 biến trên
Và cuối cùng là hiện thị mảng trên
Chương trình:
Var A[1..100] of integer;
n,j,i,sx:integer;
Begin
Write('nhap do dai cua mang'); readln(n);
For i:=1 to n do begin
Write('a[',i,'[=');
Readln(a[i]);
End;
For i:=1 to n do
For j:=i+1 to n do
If a[i]>a[j] then
Begin
SX:=a[i];
A[i]:=a[j];
A[j]:=SX; end;
Writeln('sap xep mang A tang dan');
For i:=1 to n do write(a[i]:4);
Readln;
End.
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
Tham khảo:
Khi chạy thử, em nhận ra rằng chương trình vẫn hoạt động vì máy tính vẫn hỏi và trả lời theo sự điều khiển của các khối lệnh. Tuy nhiên nó thực hiện không đúng kịch bản vì số lần đoán được hiển thị không đúng với số lần thực tế mà người chơi đã đoán.
Có hai loại lỗi:
1) Lỗi cú pháp xảy ra khi lệnh viết sai so với quy tắc của ngôn ngữ lập trình, làm cho chương trình không hoạt động:
2) Lỗi lôgic (hay lỗi ngữ nghĩa) xảy ra khi các câu lệnh trong chương trình tuy được viết đúng cú pháp nhưng thực hiện không đúng kịch bản như trong chương trình của trò chơi Đoán số.
Nếu là scratch thì đây nhé: https://scratch.mit.edu/projects/782086366/
sawpsxeeps tăng dần
program bai1;
var a:array[1..5] of longint;
i,z,q,n:longint;
begin
repeat
write('N= ');
readln(n);
end;
for i:=1 to n do
begin
write('a[',i,']= ');
readln(a[i]);
end;
for i:=1 to n-1 do
for q:=i+1 to n do
if a[i]>a[q] then
begin
z:=a[i];
a[i]:=a[q];
a[q]:=z;
for i:=1 to n do write(a[i],' ');
readln
end.
Sx tăng dần:
Var i,S,i,j :integer;
A:array[1..10] of integer;
Begin
For i:= 1 to 5 do Begin
Writeln('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n-1 do
For j:= i+1 to n do If A[i]>A[j] then
Begin
S:=A[i];
A[i]:=A[j];
A[j]:=S;
End;
Writeln (' day sau sx :');
For i:= 1 to 5 do Write (A[i]:5);
Readln;
end.
Sx giảm dần :
Var i,S,i,j :integer;
A:array[1..10] of integer;
Begin
For i:= 1 to 5 do Begin
Writeln('A[',i,']=');
Readln(A[i]);
end;
For i:= 1 to n-1 do
For j:= i+1 to n do If A[i]<A[j] then
Begin
S:=A[i];
A[i]:=A[j];
A[j]:=S;
End;
Writeln (' day sau sx :');
For i:= 1 to 5 do Write (A[i]:5);
Readln;
end.