Tạo chương trình Scratch để đưa ra ước số chung lớn nhất (ƯCLN) của 2 số nguyên dương a, b được nhập từ bàn phím (xem...

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.

Mua vip

ML

Minh Lệ

25 tháng 7 2023

Tạo chương trình Scratch để đưa ra ước số chung lớn nhất (ƯCLN) của 2 số nguyên dương a, b được nhập từ bàn phím (xem gợi ý ở Bảng 9).

Bảng 9. Thuật toán tìm ước chung lớn nhất của 2 số nguyên dương a, b

Bước 1. Nhập số nguyên dương a, b.

Bước 2. Nếu a = b thì lấy giá trị a làm ƯCLN rồi chuyển đến bước 5.

Bước 3. Nếu a > b thì thay a = a – b, ngược lại thay b = b - a.

Bước 4. Quay lại bước 2.

Bước 5. Đưa ra kết quả ƯCLN rồi kết thúc.

#Tin học lớp 8

1

D

datcoder

CTVVIP

14 tháng 10 2023

loading...

Các câu hỏi dưới đây có thể giống với câu hỏi trên

YN

Yến Nguyễn

25 tháng 4 2020

2: Tính số vòng lặp trong các thuật toán sau? Khi kết thúc giá trị của S bằng bao nhiêu? a) Thuật toán 1: Bước 1: S← 5, x←0.5 Bước 2: Nếu S <= 3.2, chuyển tới bước 4. Bước 3: S← S-x và quay lại bước 2. Bước 4: Thông báo S và kết thúc thuật toán. a) Thuật toán 1: Bước 1: S←5, x←0.5 Bước 2: Nếu S<3.2, chuyển tới bước 4. Bước 3: S←S-x và quay lại bước 2. Bước 4: Thông báo S và kết thúc...

#Tin học lớp 8

1

ML

Minh Lệ

25 tháng 4 2020

a) Thuật toán 1:

- Số vòng lặp trong thuật toán : 4

- Gía trị S =3

b) Thuật toán 2:

- Số vòng lặp trong thuật toán : 4

- Gía trị S =3

Viết chương trình in ra màn hình bảng nhân của một số từ 1 đến 9, và dừng màn hình để

Program hotrotinhoc_hoc24;

var i,j: integer;

begin

for i:=1 to 9 do

begin

writeln('Bang nhan ',i);

for j:=1 to 10 do writeln(i,'*',j,'=',i*j);

end;

readln

end.

YN

Yến Nguyễn

25 tháng 4 2020

Cô có thể giải thích cho e câu a và b được không cô, em không hiểu.

3D

31- Đỗ Ánh Nguyệt

28 tháng 1 2023

Mô tả thuật toán bằng 2 cách ( liệt kê các bước và sơ đồ khối) các thuật toán đưa ra để máy tính chạy đc:

1, tìm ước của số nguyên a

2, tìm ƯCLN và BCNN của 2 số nguyên a và b

3, ktra số nguyên a có là số nguyên tố hay ko?

4, rút gọn phân số a/b

5, ktra 3 số a,b,c có là 3 cạnh của tam giác hay ko?

#Tin học lớp 8

0

M

Mon_LAK

5 tháng 6 2021

Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B

#Tin học lớp 8

0

M

Mon_LAK

5 tháng 6 2021

Nhập vào từ bàn phím số nguyên dương A, B (1<=A,B<=10000). Xuất ra màn hình các kết quả sau đây: + Dòng 1: Ước chung lớn nhất của A+B và AB + Dòng 2: Số dư khi chia AB cho A+B

#Tin học lớp 8

1

LD

Luân Đào

10 tháng 7 2021

var a,b,i,t,s: word;

begin

repeat

writeln('Nhap A,B vao: (cach nhau boi dau Enter)');

readln(a);

read(b);

writeln('Nhap lai gia tri A,B: ');

until (a>=1) and (b>=1) and (a<=10000) and (b<10000);

s:=a+b;

t:=a*b;

if s<t then i:=s else i:=t;

while (s mod i <> 0) or (t mod i <> 0) do i:=i-1;

writeln('UCLN cua A+B va AB: ',i);

writeln('So du khi chia AB cho A+B: ', t mod s);

end.

PN

phạm ngọc hân

29 tháng 12 2022

kiểm tra tính chẵn lẻ.kiểm tra số N được nhập từ bàn phím(là số nguyên dương). in ra màn hình kết quả số đã nhập là chẵn hay lẻ, ví dụ "10 là số chẵn" "9 là số lẻ".

a, em hãy mô tả các bước của thuật toán để giải quyết bài toán trên.

b, viết chương trình Pascal để thực hiện thuật toán.

các bạn giúp tớ với, ai giúp tớ cảm ơn người đó nèe

#Tin học lớp 8

0

CC

Coby Cotton

1 tháng 5 2019

Bài tập 1: Hãy cho biết kết quả của đoạn chương trình sau: a) So:=1; While So<10 do writeln(So); So:=so+1; b) Hãy cho biết giá trị của x bằng bao nhiêu? x:=0;tong:=0; While tong<=20 do Begin writeln(tong); Tong:=tong+1; End; x:=tong; c) Hãy cho biết giá trị của i, j, k i:=1;j:=2;k:=3; While i<6 do i:=i+1;j:=j+1;k:=k+j; Bài tập 2: Hãy cho biết đoạn chương trình sau thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của A...

Bài tập 1: Hãy cho biết kết quả của đoạn chương trình sau:

a) So:=1;

While So<10 do writeln(So);

So:=so+1;

b) Hãy cho biết giá trị của x bằng bao nhiêu?

x:=0;tong:=0;

While tong<=20 do

Begin writeln(tong);

Tong:=tong+1;

End;

x:=tong;

c) Hãy cho biết giá trị của i, j, k

i:=1;j:=2;k:=3;

While i<6 do i:=i+1;j:=j+1;k:=k+j;

Bài tập 2: Hãy cho biết đoạn chương trình sau thực hiện bao nhiêu vòng lặp? Kết thúc giá trị của A bằng bao nhiêu? Viết chương trình Pascal thể hiện thuật toán đó

a) Thuật toán 1

Bước 1: A ¬ 0; n ¬ 2;

Bước 2: Nếu A ≥ 9 , chuyển bước 4

Bước 3: A ¬ A+n và quay lại bước 2

Bước 4: Thông báo A và KTTT

b) Thuật toán 2

Bước 1. S ¬ 10, x ¬ 0.5

Bước 2. Nếu S £ 5.2, chuyển tới bước 4

Bước 3. S ¬ S - x và quay lại bước 2

Bước 4. Thông báo S và kết thúc thuật toán

Bài tập 3: Hãy chỉ ra lỗi trong các câu lệnh sau đây

a) X:=10; while X:=10 do X:=X+5;

b) X:=10; while X=10 do X=X+5;

c) S:=0; n:=0; while S<=10 do n:=n+1; S:=S+n;

Bài tập 4: Các khai báo biến mảng sau đây trong Pascal đúng hay sai:

a) var X: Array[10,13] Of Integer;

b) var X: Array[5..10.5] Of Real;

c) var X: Array[3.4..4.8] Of Integer;

d) var X: Array[10..1] Of Integer;

e) var X: Array[4..10] Of Real;

Bài tập 5: Viết chương trình nhập số thực nằm trong khoảng từ 1 đến 100. Thông báo bạn đã nhập đúng. Yêu cầu nhập lại nếu số đó không nằm trong khoảng này

Bài tập 6 : Viết chương trình nhập dãy N số và in ra tổng các số chẵn, số lẻ của dãy vừa nhập?

Bài tập 7 : Viết chương trình nhập 1 dãy số nguyên. In ra phần tử lớn nhất, nhỏ nhất của dãy số và tính tổng các số lớn hơn 10 và nhỏ hơn 200?

Bài tập 8 : Viết chương trình nhập 1 dãy số nguyên, sắp xếp lại dãy số theo thứ tự tăng dần, giảm dần?

Mọi người giúp em với em cảm ơn nhìu ạ.

#Tin học lớp 8

2

ML

Minh Lệ

2 tháng 5 2019

Lời giải :

Câu 1 :

a) So=1 (vô hạn lần)

b) In ra màn hình dãy số từ 1 đến 20

Câu 2 :

a) Vòng lặp chạy 3 vòng , A=12

Program hotrotinhoc;

var n,A: integer;

begin

n:=2; A:=0;

while A<9 do

begin

n:=n+1;

A:=A+n;

end;

write('A=',A);

readln

end.

b) Bạn xem lại đề nha

Câu 3 : ( ) = lỗi sai

a) X:=10; while X(:)=10 do X:=X+5;

b) X:=10; while X=10 do X(thiếu dấu :)=X+5;

c) S:=0; n:=0; while S<=10 do (thiếu begin) n:=n+1; S:=S+n; (thiếu end;)

Câu 4 :

a) var X: Array[10,13] Of Integer; (S)

b) var X: Array[5..10.5] Of Real; (S)

c) var X: Array[3.4..4.8] Of Integer; (S)

d) var X: Array[10..1] Of Integer; (S)

e) var X: Array[4..10] Of Real; (Đ)

Câu 5 :

program hotrotinhoc ;

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

i,n : integer ;

begin

write('Nhap do dai cua day :'); readln(n);

writeln('Nhap gia tri cua cac phan tu');

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:= 1 to n do

while (1>=a[i]) or (a[i]>=100) do

begin

write('Nhap lai a[',i,']='); readln(a[i]);

end;

readln

end.

Bài 6 : Bạn tham khảo ở mục câu hỏi tương tự

Bài 7 :

Program hotrotinhoc;

var a: array[1..32000] of integer ;

i,n,min,max,tong : integer ;

begin

write('Nhap do dai cua day :'); readln(n);

for i:= 1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

max:=a[1]; min:=a[1];

for i:= 2 to n do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i];

end;

write('so lon nhat la :',max);

write('So be nhat la:',min);

tong:=0;

for i:= 11 to 199 do tong:=tong+a[i];

write('Tong la :',tong);

readln

end.

ML

Minh Lệ

2 tháng 5 2019

Câu 8 :

Tăng dần : Câu hỏi của my tra - Tin học lớp 8 | Học trực tuyến

Giảm dần : Câu hỏi của nguyễn minh nguyệt - Tin học lớp 8 | Học trực tuyến

NH

Nguyen Hoai Nam

25 tháng 12 2022

Em hãy xác định INPUT, OUTPUT và mô tả thuật toán của bài toán nhập vào 2 số nguyên dương a, b và in ra kết quả số a nếu a lớn hơn b và ngược lại in kết quả b. (Ví dụ : nhập 20, 9 in ra 20 ngược lại nhập 9,20 in ra 20).

#Tin học lớp 8

0

AN

an Nguyễn

1 tháng 7 2020

Cho thuật toán :

Bước 1:t:=1, i:=1

Bước 2:i:=i+1

Bước 3: nếu i>5 thì chuyển tới bước 5

Bước 4: t:=t*i , quay lại bước 2

Bước 5: Thông báo t và kết thúc thuật toán.

a) Khi kết thúc giá trị của t bằng bao nhiêu?

b) Viết chương trình Pascal thể hiện thuật toán này?

#Tin học lớp 8

1

ML

Minh Lệ

2 tháng 7 2020

a) T=120

b)

Program HOC24;

var i,t: integer;

begin

i:=1; t:=1;

while i<=5 do

begin

t:=t*i;

i:=i+1;

end;

write(t);

readln

end.

HM

help me

21 tháng 3 2023

Câu 1. Cho thuật toán sau: Bước 1: T: =0; j: =1; Bước 2: Nếu T≤ 20 thì chuyển qua B3, ngược lại T > 20 thì chuyển B4;Bước 3: j: =J+2; T: =T+J; và quay lại B2 Bước 4: In ra kết quả và kết thúc thuật toán. a) Hãy cho biết, khi thực hiện thuật toán trên, máy tính sẽ thực hiện bao nhiêu vòng lặp và giá trị của T và j là bao nhiêu b) Viết chương trình sử dụng câu lệnh lặp chưa biết trước thể hiện...

#Tin học lớp 8

0