Viết chương trình gồm một số thủ tục để tạo ra các hình trang trí theo mẫu (chiếc vành bánh xe).
Viết chương trình gồm một hoặc nhiều thủ tục để tạo ra các hình trang trí theo mẫu dưới đây:
- Chương trình của thủ tục 1 là:
to canh
setpencolor 4
setpensize[2 2]
fd 50
repeat 4 [fd 50 rt 90]
end
to thutuc1
repeat 6[canh bk 50 rt 60]
- Chương trình thủ tục 2 là:
to thutuc2
cs setpencolor 1
REPEAT 6 [REPEAT 6 [FD 100 RT 360 /6] RT 360/6]
end
Viết chương trình gồm một hoặc nhiều thủ tục để tạo ra các hình trang trí theo mẫu dưới đây:
a) to vuong
REPEAT 4 [FD 40 RT 90]
REPEAT 4 [FD 80 RT 90]
end
to hinha
RT 45
REPEAT 4 [VUONG RT 360/4]
End
b) to tamgiac
repeat 3[fd 70 rt 360/3]
end
to hinhb
setpensize[8 8]
setpencolor 1
repeat 5 [tamgiac rt 360/5]
setpensize [2 2]
setpencolor 7
repeat 5 [tamgiac rt 360/5]
end
c) to bongtuyet
fd 100 bk 50
rt 30
fd 50 bk 50
lt 60
fd 50 bk 50
rt 30
bk 50
end
Viết thủ tục tạo hình tròn dưới đây. Sử dụng thủ tục này để viết câu lệnh tạo nên một mẫu trang trí.
To hinhtron
REPEAT 120 [FD 10 BK 10 RT 3]
End
REPEAT 6 [FD 50 hinhtron RT 60]
Viết thủ tục tạo đường tròn dưới đây. Sử dụng thủ tục này để viết thủ tục hinhhoc1 tạo nên một mẫu trang trí.
To duongtron
REPEAT 24 [FD 5 RT 15]
End
To hinhhoc1
REPEAT 24 [duongtron FD 15 RT 360/24]
end
cho mảng số nguyên A gồm n phần tử (N<=100) viết chương trình thực hiện các yêu cầu sau:
-viết thủ tục nhập dữ liệu cho mảng A
-sử dụng thủ tục để sắp xếp lại các mảng theo thứ tự không tăng
uses crt;
var a:array[1..100]of integer;
i,n,dem,t,tb:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
dem:=0;
t:=0;
for i:=1 to n do
if a[i]>0 then
begin
dem:=dem+1;
t:=t+a[i];
end;
writeln('So luong phan tu duong la: ',dem);
writeln('Tong cac phan tu duong la: ',t);
writeln('Trung binh cac phan tu duong la: ',t/dem:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a[1000],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
sort(a+1,a+n+1);
for (i=n; i>=1; i--) cout<<a[i]<<" ";
return 0;
}
Viết chương trình nhập từ bàn phím số nguyên dương N,N <=100 và dãy A gồm N số nguyên A1,A2,...An. xuất ra màng hình tổng các số nguyên trong dãy A theo yêu cầu sau
1 : viết các thủ tục nhập / xuất mảng A
2 : Viết các hàm tính tổng các số nguyên tromg dãu A, tổng số chẵn, tổng số lẻ trong dãy A
Mình chỉ viết chương trình chính thôi, còn chương trình con bạn tự viết nhé
uses crt;
var a:array[1..100]of integer;
i,n,t,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
edn;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
em hãy thực hành Mở phần mềm Logo sau đó viết lệnh cầu thủ tục trang tránh để tạo mẫu trang trí như hình bên với màu của net ve la hong đọ dày nét vẽ là [1 5] , được kết hộp bởi 5 hình tam giác có đọ dài 100 bước
em hãy thực hành Mở phần mềm Logo sau đó viết lệnh cầu thủ tục chongchong để tạo mẫu trang trí như hình bên với màu của net vẽ là hồng độ dày nét vẽ là [1 5] , được kết hộp bởi 5 hình tam giác có đo dài 100 bước
các bạn trả lời nhanh giúp mình với
1) hãy viết các lệnh để rùa vẽ được một hình lục giác đều có cạnh tương ứng 120 bước của rùa
2) viết thủ tục Lucgiac để rùa vẽ hình lục giác có cạnh tương ứng 80 bước của rùa
câu 3 sử dụng thủ tục lucgiac ở câu 2 để viết chương trình vẽ ở hình bên lưu têp là lucgiac2