K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
HT
bạn ơi giúp mình nhá
so sánh cấu trúc lặp xác định vs cấu trúc lặp ko xác định ;
thank you mọi người
0
5 tháng 11 2018
program ...;
uses crt;
var a,b,c:integer;
begin
clrscr;
write('Nhap a ='); readln(a);
write('Nhap b='); readln(b);
writeln('Day vua nhap la',a,',b);
c:=a;
a:=b;
b:=c;
writeln('Day hoan doi la',a,',',b);
readln;
end.
4 tháng 10 2017
Lee Shiro Scratch là một ngôn ngữ lập trình và một cộng đồng trực tuyến, nơi trẻ em có thể lập trình và chia sẻ các sản phẩm tương tác như những mẩu chuyện, trò chơi và hoạt hình với mọi người trên thế giới
4 tháng 10 2017
Các bước cài đặt Scratch 2.0 Offline Editor
Bước 1: Tải Phần mềm Adobe Air và Scratch 2.0 về máy tính.
Bước 2: Cài đặt Adobe Air để tạo môi trường để Scratch hoạt động.
Bước 3: Cài đặt Scratch 2.0.
12 tháng 2 2019
I. Làm quen với chương trình Pascal – Khai báo, sử dụng biến – Các thủ tục vào ra.
Bài tập 1.1:
Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh
là a, b (được nhập từ bàn phím).
a. Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.
c. Nhận xét: Lệnh write cho phép in ra màn hình một hoặc nhiều mục. Có thể định
dạng được số in ra bằng cách qui định khoảng dành cho phần nguyên, khoảng dành
cho phần thập phân.
Bài tập 1.2:
Viết chương trình tính chu vi, diện tích hình vuông có cạnh a (được nhập từ bàn
phím).
a. Hướng dẫn:
- Nhập cạnh vào biến canh.
- Chu vi hình vuông bằng 4*canh; Diện tích hình vuông bằng canh*canh.
b. Mã chương trình:
Program HINH_VUONG;
uses crt;
Var canh: real;
Begin
clrscr;
Write('Nhap do dai canh:');readln(canh);
Writeln('Chu vi hinh vuong la:',4*canh:10:2);
Writeln('Dien tich hinh vuong la:',canh*canh:10:2);
readln
end.
19 tháng 3 2020
Program GPTBN ;
var a,b: Real ;
Begin
Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)
else if b=0 then writeln (' Phuong trinh co vo so nghiem ')
else writeln (' phuong trinh vo nghiem ');
Readln;
End.
19 tháng 3 2020
program gptbn;
uses crt;
var a,b:real;
begin
write('Nhap he so a,b cua phuong trinh: ');readln(a,b);
if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)
else if b = 0 then writeln('Phuong trinh co vo so nghiem')
else writeln('Phuong trinh vo nghiem');
readln
end.
8 tháng 11 2017
program ba_canh_tam_giac;
uses crt;
var a,b,c: longint;
begin
clrscr;
writeln('nhap 3 do dai: '); readln(a,b,c);
if (a<(b+c)) then writeln('khong la do dai 3 canh cua tam giac') else
if (a=b) and (b=c) and (c=a) then writeln('do la tam giac deu') else
if (a=b) or (b=c) or (c=a) then writeln('la tam giac can') else
if (a*a=b*b+c*c) or (b*b=a*a+c*c) or (c*c=a*a+b*b) then writeln('la tam gia vuong');
readln
end.
Bạn tham khảo nhé!!! 
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.
Bài tham khảo từ anh Thịnh
uses crt;
var a:array[1..100]of integer;
i,n,t,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Cac so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do
t:=t+a[i];
writeln('Tong cac so vua nhap la: ',t);
if t>=2 then
begin
kt:=0;
for i:=2 to trunc(sqrt(t)) do
if t mod i=0 then
begin
kt:=1;
break;
end;
if kt=0 then writeln(t,' la so nguyen to')
else writeln(t,' khong la so nguyen to');
end
else writeln(t,' khong la so nguyen to');
readln;
end.