Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
nga Ngô

hãy mô tả các điều kiện cho dưới đây trong ngôn ngữ Pascal

1, n là một số nguyên chia hết cho 3

2, m là một số nguyên ko chia hết cho 7 i là một số dương ko vượt quá 100

3, tổng 2 số bất kì trong 3 số a, b, c luôn lớn hơ n số còn lại

4, i là một số dương không vượt quá 100

5, hai sô avaf b khác 0 có cùng dấu

6, a và b là 2 số nguyên tỉ lệ thuận với nhau theo tỉ lệ 3:4

7, số a>5 và tổng của 2 sô b và c bằng 10 hoặc a =< 5 và tổng của 2 số b và c bằng -20

8, m nhận một trong các giá trị 1, 3, 5,,,,,,8

Dương Ngọc Nguyễn
22 tháng 11 2019 lúc 21:32

Luư ý đây không phải là dạng viết chương trình nên sẽ không chạy được trên pascal nhé!

1)

Var i, n: Integer;

For i:=3;

If n mod i = 0 then write('n chia het cho 3');

2)

Var m, n: integer;

i: real;

For n:= 7;

If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');

If 0 < i <= 100 then write('i la so duong khong vuot qua 100');

Khách vãng lai đã xóa
Dương Ngọc Nguyễn
22 tháng 11 2019 lúc 21:55

Luư ý đây không phải là dạng viết chương trình nên sẽ không chạy được trên pascal nhé!

1)

Var i, n: Integer;

For i:=3;

If n mod i = 0 then write('n chia het cho 3');

2)

Var m, n: integer;

i: array[0..100] of real;

For n:= 7;

If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');

If i <> 0 then write ('i la so duong khong vuot qua 100');

Khách vãng lai đã xóa
Dương Ngọc Nguyễn
27 tháng 11 2019 lúc 18:40

2)

Var m, n: integer;

i:real;

n:= 7;

If m mod 7 = 0 then write('m chia het cho 7') else write('m khong chia het cho 7');

If (i> 0) and (i <= 100) then write ('i la so duong khong vuot qua 100');

Khách vãng lai đã xóa
Dương Ngọc Nguyễn
27 tháng 11 2019 lúc 18:40

Vậy đúng chưa cô @Minh Lệ

Khách vãng lai đã xóa
Dương Ngọc Nguyễn
27 tháng 11 2019 lúc 19:08

Em tưởng chỉ viết mô tả thôi nên không viết chương trình ạ!

2)

Var m, n: integer;

I:real;

Begin

Writeln ('Nhap m: '); readln (m);

n:=7;

If m mod 7 = 0 then writeln(m,'chia het cho 7') else writeln(m,'khong chia het cho 7');

Writeln ('Nhap i: '); readln (i);

If (i> 0) and (i<=100) then write (i,'la so duong khong vuot qua 100') else write (i,'khong phai la so duong khong vuot qua 100');

End.

Khách vãng lai đã xóa
Dương Ngọc Nguyễn
27 tháng 11 2019 lúc 19:22

Câu 3:

uses crt;

Var a,b,c, x,y,z: Real;

begin

x:= a + b;

y:= b + c;

z := c + a;

Writeln ('Nhap a: '); readln (a);

Writeln ('Nhap b: '); readln (b);

Writeln ('Nhap c: '); readln (c);

If (x > c) and (y>a) and (z>b) then writeln (a,', ',b,', ',C,' la ba so thoa man yeu cau') else writeln(a,', ',b,', ',c,' khong thoa man yeu cau');

readln;

end.

Khách vãng lai đã xóa
Dương Ngọc Nguyễn
27 tháng 11 2019 lúc 19:29

Câu 5:

uses crt;

Var a,b,i: real;

begin

Writeln ('Nhap a: '); readln (a);

Writeln ('Nhap b: '); readln (b);

i:= a*b;

If i > 0 then write (a,', ',b,' la hai so khac 0 cung dau') else write (a, ', ',b,' khong thoa man yeu cau');

readln;

end.

Khách vãng lai đã xóa
Nguyễn Chơn Nhân
29 tháng 11 2019 lúc 6:39

1, if n mod 3=0 then ...

2,if (m mod 7<>0) and (i<=100) then...

3,if (a+b)>c then... else

if (a+c)>b then... else

if (c+b)>a then...

4,if (i<=100) and (i>0) then...

5,if ((a<0) and(b<0)) or ((a>0) and(b>0)) then...

6,if a/b=3/4 then...

7,if ((a>5) and (b+c=10)) or ((a<=5) and (b+c=-20))

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyen ngoc Son
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Lê Kiều Thiên An
Xem chi tiết
Nguyễn Trường Sinh
Xem chi tiết
M Ạ C H N H A
Xem chi tiết
Lê Thị Khánh Huyền
Xem chi tiết
トゥアン アイン
Xem chi tiết
Bảo Trâm
Xem chi tiết
Ngô Thị Thùy Trang
Xem chi tiết