1) Kết quả của chương trình sau là gì?:
When click
Go to x:0 y:0
Pendown
Go to x:240 y:0
2) Em hãy trình bày các bước thay đổi hình vẽ của nhân vật.
3) Hãy tạo chương trình nhập vào một số bất kì và kiểm tra xem số vừa nhập là âm hay dương.
Mỗi nhóm chọn ít nhất một hoạt động của nhân vật trong danh sách ở Bảng 1. Hãy tạo chương trình có ít nhất một phông nền và hai nhân vật để thực hiện với hoạt động mà nhóm em đã chọn. Các nhóm sẽ trình bày kết quả tạo chương trình trước lớp.
a) Em hãy cùng các bạn trong nhóm thảo luận và làm một bản mô tả theo mẫu ở bảng 2 vào vở (không được viết trực tiếp vào sách).
Tên chương trình: ... Yêu cầu: ... | |
Tên phông nền/Nhân vật | Kịch bản |
Phông nền ... | ... |
Nhân vật ... | ... |
Nhân vật ... | ... |
b) Lập bảng phân công trong nhóm và kế hoạch thực hiện.
c) Em và các bạn trong nhóm hãy cùng tạo chương trình theo bản mô tả.
Viết chương trình nhập vào một dãy số, chương trình chỉ dừng lại khi số nhập vào là số 0. In ra màn hình các kết quả sau: - In ra tổng của các số chẵn đã nhập vào? - In ra tích của các số lẻ đã nhập vào?
Giúp tui với mn ơi
uses crt;
var n,t1:integer;
s:real;
begin
clrscr;
t1:=0;
s:=1;
repeat
readln\(\left(n\right)\);
if n mod 2=0 then t1:=t1+n
else s:=s*n;
until n=0;
writeln\(\left(t1\right)\);
writeln\(\left(s:4:2\right)\);
readln;
end.
Câu 1: Hãy viết các biểu thức sau bằng các ký hiệu trong ngôn luận Pascal:
a) x+y/x-y
b,b2 - 4ac
Câu 2:
Viết chương trình: Nhập vào giá trị số nguyên bất kì từ bàn phím là chiều dài và chiều rộng của 1 hình chữ nhật.Tính chu vì và diện tích hình chữ nhật đó rồi In ra màn hình.
Câu 3: Biến là gì?Nêu cú pháp khai báo biến,cho ví dụ?
Câu 1:
a) (x+y)/(x-y)
b) sqr(b)-4*a*c;
Câu 2:
uses crt;
var a,b:integer;
begin
clrscr;
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
writeln('Chu vi la: ',(a+b)*2);
writeln('Dien tich la: ',a*b);
readln;
end.
Câu 3:
Biến là công cụ trong lập trình. Trong lập trình, biến là tên của vùng nhớ được dùng để lưu trữ dữ liệu và dữ liệu được biến lưu trữ có thể thay đổi trong khi thực hiện chương trình.
Cú pháp khai báo biến: Var <tên biến>:<kiểu dữ liệu>;
Ví dụ: var a:integer;
Em hãy mở chương trình “Điều khiển rô-bốt” đã lưu ở bài 14, rồi thực hiện các nhiệm vụ sau:
a) Thêm nhân vật bọ dừa và tạo chương trình cho bọ dừa vẽ hình chữ nhật
b) Xóa nhân vật mèo
c) Chạy chương trình và quan sát kết quả
Câu 1: Khi thực hiện câu lệnh lặp for,to, do máy tính kiểm tra một điều kiện, điều kiện cần phải kiểm tra là gì?
Câu 2: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tìm tất cả các ước của n.
Câu 3: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Đếm tất cả các ước của n.
Câu 4: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng tất cả các nước của n.
Câu 5: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tích tất cả các ước của n.
Câu 6: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Tính tổng các số chẵn trong đoạn 1 đến n.
Câu 7: Em hãy mô tả thuật toán và viết chương trình nhập vào hai số tự nhiên a và b (a <> 0; b <> 0; a <= 0)
Câu 8: Em hãy mô tả thuật toán và viết chương trình nhập vào một số tự nhiên n khác 0. Kiểm tra xem n có là số nguyên tố hay không?
làm hộ mình nha
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.
Hãy viết chương trình nhập các số khác 0 rồi tính tổng của các số đó. Chương trình kết thúc khi số được nhập đầu tiên là 0
uses crt;
var x,t,i:integer;
begin
clrscr;
t:=0;
repeat
readln(x);
t:=t+x;
until x=0;
write(t);
readln;
end.
Viết chương trình nhập vào một xâu chuẩn bất kỳ kỷ tự thường sau đó hãy xóa hết các ký tự đặc biệt có trong xâu chỉ chứa lại các ký tự từ A đến Z và từ 0 đến 9 và khoảng cách đổi đưa kết quả lên dulieu.txt Giúp em với ạ
uses crt;
const fi='dulieu.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if (st[i] in ['A'..Z']) or (st[i] in ['0'..'9']) or (st[i]=#32) then write(f1,st[i]);
close(f1);
end.
Em hãy thức hành viết chương trình nhập vào hai số x và y từ bàn phím.Hãy tính và in ra kết quả của các biểu thức:(x3+y3)-2x
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x;
cout<<x*x*x+y*y*y-2*x;
return 0;
}
Giả sử cần viết chương trình nhập một số tự nhiên vào máy tính và in ra màn hình kết quả số đã nhập chẵn hay lẻ, chẳng hạn “5 là số lẻ”, “8 là số chẵn”. Hãy mô tả các bước của thuật toán để giải quyết bài toán trên và viết chương trình Python để thực hiện thuật toán đó. Mấy bạn ơi giúp mình với mình cần gấp lắm