BÀI 6: CÂU LỆNH ĐIỀU KIỆN

Tiêu đề: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Sat Jan 07, 2017 2:24 pm

Bài tập 1: Viết chương trình in ra số lớn hơn trong hai số (được nhập từ bàn phím).
HƯỚNG DẪN :

Nhập hai số vào hai biến a, b.
Nếu a > b thì in a. Nếu a <= b thì in b.
Hoặc: Nếu a > b thì in a. Ngược lại thì in b.

Bài tập 2: Viết chương trình in ra số lớn nhất trong bốn số nhập từ bàn phím.
HD :

Nếu a>b và a>c và a>d thì a là số lớn nhất.
Tương tự như thế xét các trường hợp còn lại để tìm số lớn nhất.

Bài tập 3 : Viết chương trình xét xem một tam giác có là tam giác đều hay không khi biết ba cạnh của tam giác
HD :

Nhập ba cạnh của tam giác vào ba biến a,b,c.
Nếu a = b và b = c thì tam giác là tam giác đều và ngược lại tam giác không là tam giác đều.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Thu Jan 19, 2017 10:09 am

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 9:54 am

program bt1;
uses crt;
var a,b : integer;
begin
clrscr;
readln(a,b);
if ( a<b) then writeln (b)
else writeln (a);
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:00 am

nguyễn tuấn kiệt lớp 8a10
program bt1;
uses crt;
var a,b : integer;
begin
clrscr;
readln(a,b);
if ( a<b) then writeln (b)
else writeln (a);
readln
end.

bt2
program bt2;
ues crt;
var a,b,c,d:integer;
begin
clrscr;
readln(a,b,c,d);
if (a>b)(a>c)(a>d) then writeln('a la so lon nhat');
readln
end.

bt3
program bt3;
ues crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if(a=b)and(b=c) then writeln('tam giac deu')
else writeln('tam giác không deu');
readln;
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:03 am

program bt1;
uses crt;
var a,b:integer;
begin
clrscr;
writeln('nhap so a,b');
readln(a,b);
if(a>b) then writeln(a)
else writeln(b);
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:04 am

Trần gia huy; lớp 8a10
bt1
program bt1;
ues crt;
var a,.b:intger;
begin
clrscr;
readln(a,b);
if(a>b) then writeln(a)
else writeln(b);
readln;
end.

bt2
program bt2;
ues crt;
var a,b,c,d:integer;
begin
clrscr;
readln(a,b,c,d);
if (a>b)(a>c)(a>d) then writeln('a la so lon nhat');
readln
end.

bt3
program bt3;
ues crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if(a=b)and(b=c) then writeln('tam giac deu')
else writeln('tam giác không deu');
readln;
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:27 am

program bt2;
uses crt;
var a,b,c,d : integer;
begin
clrscr;
readln (a,b,c,d);
if (a>b) and (a>c) and (a>d) then writeln (a);
readln
end.

bt3
program bt3;
uses crt;
var a,b,c : integer;
begin
clrscr;
readln(a,b,c);
if(a=b) and (b=c) then writeln (' tam giac deu' )
else writeln (' tam giac khong deu');
readln;
end

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:29 am

trần huỳnh ngọc như ý ; lơpa 8a10
bt1
program bt1 ;
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
if (a>b) then writeln ( a)
else writeln (b);
readln ;
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:31 am

Nguyễn Lê Thanh Nhã lớp 8a10
Bài tập 1
program bt1;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
if a>b then writeln (a)
else writeln (b);
readln
end.
Baì tập 2
program bt2;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
writeln('Nhap vao c');
readln(c);
writeln('Nhap vao d');
readln(d);
if (a>b,a>c,a>d) then writeln (a)
else writeln (b);
else writeln (c);
else writeln (d);
readln
end.
Bài tập 3
Program bt3;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Nhap vao a');
readln(a);
writeln('Nhap vao b');
readln(b);
writeln('Nhap vao c');
readln(c);
if (a = b,b = c) then writeln('tam giac do la tam giac deu')
else writeln('tam giac do khong phai la tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:33 am

ngô minh hào lớp 8a10
Bài tập 1
program bt1;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
if a>b then writeln (a)
else writeln (b);
readln
end.
Baì tập 2
program bt2;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
writeln('Nhap vao c');
readln(c);
writeln('Nhap vao d');
readln(d);
if (a>b,a>c,a>d) then writeln (a)
else writeln (b);
else writeln (c);
else writeln (d);
readln
end.
Bài tập 3
Program bt3;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Nhap vao a');
readln(a);
writeln('Nhap vao b');
readln(b);
writeln('Nhap vao c');
readln(c);
if (a = b,b = c) then writeln('tam giac do la tam giac deu')
else writeln('tam giac do khong phai la tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:33 am

Đặng thị mỹ duyên ;lớp 8a10
bt1
program bt1;
uses crt;
var a,b:integer;
begin
clrscr;
readln (a,b);
if (a>b)then writeln (a)
else writeln (b);
readln;
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:34 am

program bt2;
uses crt;
var a,b,c,d: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
writeln('Nhap vao c');
readln(c);
writeln('Nhap vao d');
readln(d);
if (a>b,a>c,a>d) then writeln (a)
else writeln (b);
else writeln (c);
else writeln (d);
readln
end.

program bt3;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Nhap vao a');readln(a);
writeln('Nhap vao b');readln(b);
writeln('Nhap vao c');readln(c);
if (a = b,b = c) then writeln('tam giac do la tam giac deu')
else writeln('tam giac do khong phai la tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:34 am

Huỳnh Thanh Xuân; lớp 8a10
bt1
program bt1;
uses crt;
var a,b:integer;
begin
clrscr;
readln (a,b);
if (a>b) then writeln(a)
else writeln (b);
readln;
end.
bt2
program bt2;
uses crt;
var a,b,c,d: integer;
begin
clrscr;
readln (a,b,c,d);
ìf (a>b)(a>c)(a>d) then writeln (' a la so lon nhat');
readln;
end.
bt3
program bt3;
uses crt;
var a,b,c: integer;
begin
clrscr;
readln (a,b,c);
if (a=b) and (b=c) then writeln ('tam giac deu')
else writeln ('tam giac khong deu');
readln;
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 10:36 am

nguyễn hoàng phúc lớp 8a10
Bài tập 1
program bt1;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
if a>b then writeln (a)
else writeln (b);
readln
end.
Baì tập 2
program bt2;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
writeln('Nhap vao c');
readln(c);
writeln('Nhap vao d');
readln(d);
if (a>b,a>c,a>d) then writeln (a)
else writeln (b);
else writeln (c);
else writeln (d);
readln
end.
Bài tập 3
Program bt3;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Nhap vao a');
readln(a);
writeln('Nhap vao b');
readln(b);
writeln('Nhap vao c');
readln(c);
if (a = b,b = c) then writeln('tam giac do la tam giac deu')
else writeln('tam giac do khong phai la tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 7:01 pm

Tranminhphuong 8a10
b1
program b1;
var a,b:integer;
begin
writeln(' nhap a,b');readln(a,b);
if a>b then writeln (' a lon nhat ') else writeln ('b lon nhat');
end.
b2
program b2;
var a,b,c,d:integer;
begin
writeln ('nhap a,b,c,d');readln (a,b,c,d);
if a>b and a>c and a>d then write('a lon nhat ');
if b>a and b>c and b>d then writeln (' b lon nhat');
if c>a and c>b and c>d then writeln('c lon nhat');
if d>a and d>b and d>c then writeln ('d lon nhat');
end.
bai tap 3
program bt3;
var a,b,c:integer;
begin
writeln(' nhap a,b,c');readln(a,b,c);
if a=b=c then writeln ('tam giac do la tam giac deu')
else writeln('tam giac do khong phai tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Wed Feb 08, 2017 8:35 pm

tranthihongyen8a10
bai1
program bt1;
ues crt;
var a,b:integer;
begin
clrscr;
writeln('nhap a'); readln(a);
writeln('nhap b'); readln(b);
if a>b then writeln('a lon hon b')
else writeln('b lon hon a');
end.

bai 2
program bt2;
ues crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('nhap a'); readln(a);
writeln('nhap b'); readln(b);
writeln('nhap c'); readln(c);
writeln('nhap d'); readln(d);
if a>b and a>c and a>d then writeln('a la so lon nhat');
if b>c and b>a and b>d then writeln('b la so lon nhat');
if c>b and c>a and c>d then writeln('c la so lon nhat');
if d>b and d>a and d>c then writeln ('d la so lon nhat');
readln
end.

bai tap 3
program bt3;
ues crt;
var a,b,c:integer;
begin
clrscr;
writeln('nhap a'); readln(a);
writeln('nhap b'); readln(b);
writeln('nhap c'); readln(c);
if a=b and b=c then writeln('tam giac la tam giac deu')
else writeln('tam giac khong la tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Thu Feb 09, 2017 10:09 am

program bt1;
uses crt;
var a,b:integer;
begin
clrscr;
writeln('nhap so a,b');
readln(a,b);
if(a>b) then writeln(a)
else writeln(b);
readln
end.

program bt2;
uses crt;
var a,b,c,d: integer;
begin
clrscr;
writeln('Nhap vao a');
readln (a);
writeln('Nhap vao b');
readln (b);
writeln('Nhap vao c');
readln(c);
writeln('Nhap vao d');
readln(d);
if (a>b,a>c,a>d) then writeln (a)
else writeln (b);
else writeln (c);
else writeln (d);
readln
end.

program bt3;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln('Nhap vao a');readln(a);
writeln('Nhap vao b');readln(b);
writeln('Nhap vao c');readln(c);
if (a = b,b = c) then writeln('tam giac do la tam giac deu')
else writeln('tam giac do khong phai la tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Thu Feb 09, 2017 6:12 pm

1
program b1;
var a,b:integer;
begin
writeln(' nhap a,b');readln(a,b);
if a>b then writeln (a) else writeln (b);
end.
2
program b2;
var a,b,c,d:integer;
begin
writeln ('nhap a,b,c,d');readln (a,b,c,d);
if a>b and a>c and a>d then write(a);
if b>a and b>c and b>d then writeln (b);
if c>a and c>b and c>d then writeln(c);
if d>a and d>b and d>c then writeln (d);
end.
bai tap 3
program bt3;
var a,b,c:integer;
begin
writeln(' nhap a,b,c');readln(a,b,c);
if a=b=c then writeln ('tam giac do la tam giac deu')
else writeln('tam giac do khong phai tam giac deu');
readln
end.

Tiêu đề: Re: BÀI 6: CÂU LỆNH ĐIỀU KIỆN Sun Feb 12, 2017 3:16 pm

nguyentanuhy.8a9
bài tập1
program bt1;
uses crt;
var a,b:integer;
begin
clrscr
read(nhap so a,b)
if(a>b) then writeln(a)
else writeln(b)
end.
bài tập 2
program bt2;
ues crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('nhap a'); readln(a);
writeln('nhap b'); readln(b);
writeln('nhap c'); readln(c);
writeln('nhap d'); readln(d);
if a>b and a>c and a>d then writeln('a la so lon nhat');
if b>c and b>a and b>d then writeln('b la so lon nhat');
if c>b and c>a and c>d then writeln('c la so lon nhat');
if d>b and d>a and d>c then writeln ('d la so lon nhat');
readln
end.
bài tập 3
program bt3;
uses crt;
var a,b,c:integer;
begin
clrscr;
writeln (nhap a); readln(a);
writeln('nhap b'); readln(b);
writeln('nhap c'); readln(c);
if a=b and b=c then writeln('tam giac la tam giac deu')
else writeln('tam giac khong la tam giac deu');
readln
end.

» BÀI 7: CÂU LỆNH LẶP