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.
Tham khảo:
Thuật toán giải phương trình ax + b = 0
- Bằng liệt kê tuần tự
Bước 1: Nhập hai số thực a, b
Bước 2. Nếu a = 0
Bước 2.1. Nếu b ≠0 thì thông báo phương trình vô định, rồi kết thúc;
Bước 2.2. Nếu b = 0 thì gán x
Bước 3: x
Bước 4. Đưa ra nghiệm x, rồi kết thúc.
- Sơ đồ khối:
Đề xuất các test tiêu chuẩn
Để xét tất cả các trường hợp có thể xảy ra, ta sử dụng ba bộ test như sau:
i) a = 0, b = 1 (kiểm tra trường hợp phương trình vô định);
ii) a = 0,b = 0 (kiểm tra trường hợp nghiệm x=0);
iii) a = 3, b = 6 (kiểm tra trường hợp nghiêm , y = -b/a).
Mô tả thuật toán
Bước 1. Đặt nhân vật Mèo đứng bên trái căn phòng
Bước 2. Nhân vật Mèo kêu: “Grừ, Grừ… lạnh quá!”
Bước 3. Nhân vật Mèo kêu: “Lò sưởi ở đâu nhỉ?”
Bước 4. Nhân vật Mèo chạy một đoạn (10 bước)
Bước 5. Nhân vật Mèo kêu: “Không có cái nào!”
Trong chương trình này, ta sử dụng các biến quangduong và thoigian để lưu trữ giá trị quãng đường và thời gian. Bằng cách sử dụng khối ask and wait và set, người dùng sẽ được hỏi để nhập giá trị quãng đường và thời gian. Sau đó, chương trình sử dụng khối set và toán tử / để tính toán giá trị vận tốc và lưu vào biến speed. Cuối cùng, chương trình sử dụng khối say để hiển thị giá trị vận tốc lên màn hình.
Để chạy chương trình, ta có thể nhấn vào biểu tượng mũi tên xanh để bắt đầu chương trình. Sau đó, nhập giá trị của quãng đường và thời gian theo yêu cầu của chương trình và chờ đợi cho kết quả. Khi chương trình tính toán xong, giá trị vận tốc sẽ được hiển thị lên màn hình.
P/s: ở đây mình chỉ viết chương trình thôi, còn thuật toán bạn có thể suy ra từ chương trình nhé:
Câu 2:
uses crt;
var n,i:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
Câu 3:
uses crt;
var n,i,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
writeln('So uoc cua ',n,' la: ',dem);
readln;
end.
Câu 4:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+i;
writeln('Tong cac uoc cua ',n,' la: ',t);
readln;
end.
Câu 5:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
if n mod i=0 then s:=s*i;
writeln('Tich cac uoc cua ',n,' la: ',s:4:2);
readln;
end.
Câu 6:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+i;
writeln('Tong cac so chan trong khoang tu 1 den ',n,' la: ',t);
readln;
end.
Câu 8:
uses crt;
var n,i,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
kt:=0;
for i:=2 to trunc(sqrt(n)) do
if n mod i=0 then kt:=1;
if (kt=0) and (n>1) then writeln(n,' la so nguyen to')
else writeln(n,' khong la so nguyen to');
readln;
end.
Tham khảo: