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.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
- Máy thực hiện gồm vô hạn vòng lặp
- Khi kết thúc vòng lặp giá trị của S không xác định
- Chương trình :
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<=10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
a)
- Máy thực hiện gồm 10 vòng lặp
- Khi kết thúc vòng lặp giá trị của S=5
- Chương trình :
Program hotrotinhoc;
var x,s:real;
begin
s:=10; x:=0.5;
while s>=5.2 do s:=s-x;
write(s:1:0);
readln
end.
b)
-không thực hiện lặp do điều kiện thoát lặp là s>=10 mà ban đầu s=10
-kết thúc,s=10
chương trình:
Program hotrotinhoc;
var n,s:byte;
begin
s:=10; n:=0;
while s<10 do
begin
n:=n+3;
s:=s-n;
end;
write(s);
readln
end.
T <-- 20; i <-- 0;
| i | ĐK(i<20) | Vòng lặp | T |
| 5 | Đ | 1 | 25 |
| 10 | Đ | 2 | 35 |
| 15 | Đ | 3 | 50 |
| 20 | S | Kết thúc |
Vậy T = 50, i = 20
program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;
Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);
Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;
Writeln('So lon nhat trong 4 so do la: ',Max);
readln;
End.
Tìm GTLN : =SUM(XA:YB) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.
tổng của 100 số đt:
var i,b:integer;
begin
b:=0;
for i:=1 to 100 do
b:=b+i;
writeln('Tong cua 100 so dt:', b);
readln;
end.
tổng của 100 số đt:
var i,b:integer;
begin
b:=0;
for i:=1 to 100 do
b:=b+i;
writeln('Tong cua 100 so dt:', b);
readln;
end.
- Bước 1: Ở bước này giá trị của x sẽ bằng x cộng với y: x= x+y.
- Bước 2: Tiếp đến giá trị của y bằng giá trị của x – y: y= x (bước 1)-y= x+y-y= x.
- Bước 3: Cuối cùng giá trị của x bằng x-y: x=x(bước1)-y(bước 2)= x+y-x=y.
Vậy kết quả của thuật toán là x=y và y=x
- Bước 1: Ở bước này giá trị của x sẽ bằng x cộng với y: x= x+y.
- Bước 2: Tiếp đến giá trị của y bằng giá trị của x – y: y= x (bước 1)-y= x+y-y= x.
- Bước 3: Cuối cùng giá trị của x bằng x-y: x=x(bước1)-y(bước 2)= x+y-x=y.
Vậy kết quả của thuật toán là x=y và y=x
Input: số phần tử của dãy A, dãy a1,a2...an.
Output:số phần tử chẵn, lẻ.
thuật toán:
B1: demchan <--0; demle <--0; i<--1;
B2: nếu a[i] mod 2=0 then demchan <-- demchan+1. ngược lại demle <--demle+1;
B3: i <--i+1;
B4: nếu i<=n thì quay lại bước 2;
B5: thông báo giá trị demchan và demle và kết thúc thuật toán.
chúc bạn học tốt
1: Hoán đổi giá trị hai biến x và y
Chúng ta sẽ gán biến trung gian tam cho x, xong rồi gán biến trung gian tam đó cho y; rồi sau đó gán y ngược lại cho x, và xuất kết quả ra-đó chính là x và y sau khi hoán đổi cho nhau.
2: Tìm giá trị lớn nhất của dãy A
Chúng ta sẽ gán biến ln cho a[1], sau đó sẽ quét qua các phần tử trong mảng xem thử có phần tử nào lớn hơn ln thì gán ln cho phần tử đó. Sau cùng xuất ln ra, ta được số lớn nhất cần tìm.