Viết chương trình vào bộ ba a,b,c là các số nguyên dương in ra màn hình bộ ba này lập thành tam giác gì(cân,đều, thường)
Viết chương trình vào bộ ba a,b,c là các số nguyên dương in ra màn hình bộ ba này lập thành tam giác hay không
Bài 2. Làm quen với chương trình và ngôn ngữ lập trình
1:
uses crt;
var a,b,c:real;
kt:integer;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then
begin
kt:=0;
if (a=b) and (b<>c) and (a<>c) then kt:=1;
if (b=c) and (b<>a) and (c<>a) then kt:=1;
if (a=c) and (a<>b) and (c<>b) then kt:=1;
if (a=b) and (b=c) then kt:=2;
if kt=0 then writeln('La tam giac thuong');
if kt=1 then writeln('La tam giac can');
if kt=2 then writeln('La tam giac deu');
end
else writeln('Khong la ba canh trong mot tam giac');
readln;
end.
2:
uses crt;
var a,b,c:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
until (a>0) and (b>0) and (c>0);
if (a+b>c) and (a+c>b) and (b+c>a) then writeln('Day la ba canh trong mot tam giac')
else writeln('Day khong la ba canh trong mot tam giac');
readln;
end.
Đúng 0
Bình luận (0)
Program Munn;
Uses crt;
Var h,m,n,C:real;
Begin
Write ('Nhap canh 1');
Readln (h);
Write ('Nhap canh 2');
Readln (m);
Write ('Nhap canh 3');
Readln (n);
C:=h+m+n;
Writeln ('Chu vi hinh tam giac do la',C);
Readln;
End.
Đúng 0
Bình luận (0)
Trả lời nhanh giúp mình đi ạ!
Quan trọng là cái DÙNG ĐỂ LÀM Gì đó các bạn
Đúng 0
Bình luận (0)
Bài 2. Nêu tác dụng câu lệnh sau:
a) CD D:\ LUUTRU ←l
b) RD D:\TAILIEU\TOAN ←l
Bài 3. Phân biệt lệnh nội trú và lệnh ngoại trú?
Câu 15. File có phần mở rộng là *.EXE là:
A. Tệp tin nén. B. Tệp tin ẩn. C. Tệp tin chương trình; D. Tệp tin văn bản.
Câu 10. Cách khởi động hệ điều hành MS- DOS
A. Start -> Microsoft -> MS Dos. B. Start -> Settings -> gõ Cmd.
C. Start -> Run -> gõ Cmd. D. Start -> Run -> gõ Cmd -> OK
Câu 11. Kí tự đại diện ? dùng để
|
A. đại diện cho một kí tự bất kì. |
C. đại diện cho một nhóm kí tự bất kì. |
|
B. đại diện cho hai kí tự bất kì. |
D. đại diện cho một tệp bất kì. |
Câu 12. Thư mục là nơi chứa
A. các ổ đĩa. B. các thư mục con và các tệp tin.
C. các thư mục con. D. các tệp tin.
Câu 13. Kí tự đại diện * dùng để
|
A. đại diện cho một kí tự bất kì. |
C. đại diện cho một nhóm kí tự bất kì. |
|
B. đại diện cho hai kí tự bất kì. |
D. đại diện cho một tệp bất kì. |
Cả 3 bạn A, B, C đều sai
Do đó bạn D nói bạn C sai là đúng nhất
Đúng 0
Bình luận (0)
program chuc_hoc_tot;
uses crt;
begin
write('lop 8D on ao');
end.
Đúng 2
Bình luận (0)
program bai1;
uses crt;
Begin
writeln ('Chao ban');
writeln('Rat vui duoc lam quen voi ban');
writeln('Rat han hanh');
Readln
End.
Đúng 2
Bình luận (0)
MINIGAME TIN HỌC
Xin chào các bạn học sinh của hoc24.vn, mình với bạn ctv Nguyễn Lê Phước Thịnh tổ chức cuộc thi minigame trong vòng 2 ngày để chuẩn bị cho cuộc thi tin học sấp tới của bạn Nguyễn Lê Phước Thịnh và mình. Bạn nào làm full 5 câu thì được 10GP, full 3 câu thì được 5GP còn 4 câu hoặc 2 câu thì được 1GP còn 1 câu thì không được GP nào, tối đa 5 câu là 10 điểm
Xin mạng phép mời cô Nguyễn Minh Lệ và Nguyễn Lê Phước Thịnh và Nguyễn Ngọc Lộc giúp mình
link: tinhoc.hoc24.vn
uses crt;
var a,b,c:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
if (a mod c=0) and (b mod c=0) then writeln(c,' la uoc chung cua ',a,' va ',b)
else writeln(c,' khong la uoc chung cua ',a,' va ',b);
readln;
end.
Đúng 3
Bình luận (0)
Loading...