Vẽ 4 Hình vuông kích thước thay đổi 8,10,20,a .a nhập từ bàn phím.
((Mọi người giúp em với ạ))
Những câu hỏi liên quan
viết chương trình vẽ hình chữ nhật với các kích thước được nhập vào từ bàn phím. Chương trình cho phép người đọc dùng vẽ nhiều hình chữ nhật cho đến khi người dùng không muốn vẽ nữa. Mn giúp em với ạ. Em cảm ơn ạ!!
Xem chi tiết
uses crt;
var a,b,i,j:integer;
st:string;
begin
clrscr;
repeat
write('Ban muon ve khong:'); readln(st);
if st='Yes' then
begin
write('Nhap chieu dai:'); readln(a);
write('Nhap chieu rong:'); readln(b);
for i:=1 to a do
begin
for j:=1 to b do
write('*');
writeln;
end;
end
else break;
until st='No'
readln;
end.
Đúng 1
Bình luận (0)
viết chương trình tính chu vi, diên tích hình vuông với cạnh a được nhập vào từ bàn phím.❤✿
mn giúp em với ạ T4 em thi rồi!!!
clrscr;
write('nhap canh a: ');readln(a);
P:=a*4;
S:=a*a;
writeln('Chu vi hinh vuong canh a la: ',P);
writeln('Dien tich hinh vuong canh a la: ',S);
Đúng 0
Bình luận (2)
uses crt;
var a,cv,dt:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
until a>0;
cv:=a*4;
dt:=sqr(a);
writeln('Chu vi la: ',cv:4:2);
writeln('Dien tich la: ',dt:4:2);
readln;
end.
Đúng 0
Bình luận (0)
Viết trương trình nhập số nguyên a,b,c vào từ bàn phím , in ra màn hình các số chẵn trong 3 số a,b,c Mọi người giúp với ạ cần gấp
a) viết chương trình tính chu vi, diện tích hình chữ nhật, hình tròn, hình vuông,hình tròn, hình vuông,hình tam giác.
b) viết chương trình tính giá trị biểu thức A=x2+x+1(với x nhập từ bàn phím )
mọi người giúp mik với thứ 3 là thi r mong mọi người giúp đỡ mik câu này:))
Mọi người giúp em với ạ mai em kiểm tra cuối kì em cảm ơn trước ạ: Viết chương trình pascal tính tổng của n số nguyên với n được nhập từ bàn phím mong mọi người giải giùm
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình: Tìm nghiệm x của phương trình ax2 + bx + c = 0 với a, b, c nhập từ bàn phím (các trường hợp 2 nghiệm, nghiệm kép, vô nghiệm)
--------------------------
Mọi người giúp em với ạ, em cảm ơn
import math
a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))
d = b**2 - 4*a*c
if d > 0:
x1 = (-b + math.sqrt(d)) / (2*a)
x2 = (-b - math.sqrt(d)) / (2*a)
print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
x = -b / (2*a)
print("Phương trình có nghiệm kép: x =", x)
else:
print("Phương trình không có nghiệm thực."
Đúng 2
Bình luận (1)
Viết CT tính diện tích xung quanh và thể tích hình hộp chữ nhật (các kích thước được nhập vào từ bàn phím) cần gấp ạ
Xem chi tiết
Var sxq,v,d,r,c:real;
Begin
Write('Chieu dai = ');readln(d);
Write('Chieu rong = ');readln(r);
Write('Chieu cao = ');readln(c);
sxq:=2*(d+r)*c;
v:=d*r*c;
Writeln('Dien tich xung quanh la ',sxq:10:2);
Write('The tich la ',v:10:2);
Readln
End.
Đúng 1
Bình luận (0)
Viết chương trình tính:- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).- Tích các số từ 5 đến 30.- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.Mình đang cần gấp
Đọc tiếp
Viết chương trình tính:
- Tổng n số tự nhiên đầu tiên với n nhập từ bàn phím bằng câu lệnh với số lần lặp biết trước. (for… do).
- Tích các số từ 5 đến 30.
- Chu vi, diện tích hình chữ nhật, hình tròn, hình thang với các kích thước được nhập từ bàn phím.
Mình đang cần gấp
Tổng n số tự nhiên đầu tiên:
Var i,n,s:integer;
Begin
Write('n = ');
for i:=1 to n do
s:=s+i;
Write('Tong la ',s);
Readln
End.
Đúng 0
Bình luận (0)
Tích các số từ 5 đến 30
Var i,p:longint;
Begin
p:=1;
For i:=5 to 30 do
P:=p*i;
Write('Tich la ',p);
Readln
End.
Đúng 0
Bình luận (0)
Chu vi, diện tích hình chữ nhật:
var a,b,p,s:real;
begin
write('Chieu dai hcn = ');readln(a);
write('Chieu rong hcn = ');readln(b);
p:=(a+b)*2;
s:=a*b;
writeln('Chu vi hcn la ',p:10:2);
write('Dien tich hcn la ',s:10:2);
readln
end.
------------------------------------------------------------
Chu vi, diện tích hình tròn:
var r,c,s:real;
begin
write('Ban kinh = ');readln(r);
c:=2*3.14*r;
s:=3.14*r*r;
writeln('Chu vi hinh tron la ',c:10:2);
write('Dien tich hinh tron la ',s:10:2);
readln
end.
---------------------------------------------------
Chu vi, diện tích hình thang:
var dl,dn,cb1,cb2,h,p,s:real;
begin
write('Day lon = ');readln(dl);
write('Day be = ');readln(db);
write('Chieu cao = ');readln(h);
write('Canh ben thu nhat = ');readln(cb1);
write('Canh ben thu hai = ');readln(cb2);
p:=dl+db+cb1+cb2;
s:=(dl+db)*h/2;
writeln('Chu vi hinh thang la ',p:10:2);
write('Dien tich hinh thang la ',s:10:2);
readln
end.
Đúng 0
Bình luận (0)
giúp em với 2 câu thôi ạ :
viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt
viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con
1:
uses crt;
const fi='ketqua.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]=#32 then delete(st,i,1);
writeln(f1,st);
close(f1);
end.
Đúng 0
Bình luận (0)
2:
uses crt;
var a,b,c,d:integer;
{----------chuong-trinh-con-----------------------}
function min(x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
{---------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(min(a,min(b,min(c,d))));
readln;
end.
Đúng 0
Bình luận (1)