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ú pháp
If < điều kiện> then < câu lệnh>;
Cách hoạt động: nếu điều kiện đúng thì sẽ thực hiện câu lệnh còn nếu điều kiện sai thì sẽ không thực hiện được và sẽ dừng chương tình
Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Var
a:array[1..9,1..9] of Integer ;
i,j:byte ;
BEGIN
Clrscr ;
For i := 1 to 9 do
For j := 1 to 9 do
A[i,j] := i*j ;
For i := 1 to 9 do
Begin
For j := 1 to 9 do Write(a[i,j]:5);
Writeln ;
Writeln ;
End ;
Readln ;
END.
b:
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln(s);
readln;
end.
c:
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do s:=s+i;
writeln(s);
readln;
end.
d:
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=0 to n do s:=s+2*i+1;
writeln(s);
readln;
end.
Câu 1:
uses crt;
begin
clrscr;
writeln(2*(1/5+2*2*2));
readln;
end.
Câu 2: n số tự nhiên liên tiếp bắt đầu từ mấy vậy bạn?
Câu 3:
uses crt;
var i,s:longint;
begin
clrscr;
s:=0; i:=1;
while i<=1000 do
begin
s:=s+i;
inc(i);
end;
writeln(s);
readln;
end.
Câu 2:
-Bước 1: s←0; i←1;
-Bước 2: s←s+i;
-Bước 3: i←i+1;
-Bước 4: Nếu i<=100 thì quay lại bước 2
-Bước 5: Xuất s
-Bước 6: Kết thúc
Câu 3:
Dạng thiếu: if <điều kiện> then <câu lệnh>;
Dạng đủ: if <điều kiện> then <câu lệnh>
else <câu lệnh>;
Câu 4:
uses crt;
var m,n:integer;
begin
clrscr;
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')
else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')
else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')
else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');
readln;
end.
Câu 5:
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) and (a+b>c) and (a+c>b) and (b+c>a);
if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')
else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')
else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')
else if (a=b) and (b=c) then writeln('Tam giac deu')
else writeln('Day khong phai la tam giac deu hay tam giac can');
readln;
end.
program TinhTong;
var
i, S: integer;
begin
S := 0;
for i := 1 to 10 do
S := S + i;
writeln('Tong cac so tu 1 den 10 la: ', S);
readln;
end.
Câu lệnh điều kiện dạng dạng thiếu:
* Cú pháp :
If (điều kiện) then ( câu lệnh);
* Hoạt động của câu lệnh : Khi gặp câu lệnh điều kiện này, chương trình sẽ kiểm tra điều kiện, nếu kiều kiện được thỏa mản chương trình sẽ thực hiện câu lệnh ,ngược lại câu lệnh bị bỏ qua.
Câu lệnh điều kiện dạng dạng đủ:
*cú pháp :
If (điều kiện) then ( câu lệnh 1) alse (câu lệnh 2);
* hoạt động của câu lệnh: Chương trình sẽ kiểm tra điều kiện, nếu điều kiện được thỏa mãn , chương trình sẽ thực hiện câu lệnh 1, ngược lại, câu lệnh 2 sẽ được thực hiện.
Vd:
câu lệnh điều kiện dạng thiếu :
Nếu trời mưa (điều kiện) thì lớp em sẽ nghỉ tiết thể dục. ( Câu lệnh)
câu lệnh điều kiện dạng đủ:
Nếu a >b ( điều kiện) thì in ra màn hình số a (câu lệnh 1), ngược lại thì in ra màn hình số b. ( câu lệnh 2)