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

uses crt;

var t:real;

a:array [1..4] of real;

i:byte;

begin

clrscr;

for i:=1 to 4 do

begin

write('Nhap so thu ',i,': ');

readln(a[i]);

if a[i]<0 t:=t+a[i];

end;

write ('Tong cac so thuc am la: ',t:4:2);

readln

end.

Nếu lấy nguyên phần thập phân thì bạn viết ra màn hình giá trị của t là được rồi.

tính tổng các số âm nha

program bt1;

var a:integer;

begin

writeln('Nhap gia tri cua a'); readln(a)

if (a mod 2) = 0 then write(a,' la so chan') else write(a,' la so le');

readln;

end.

program dz;

uses crt;

var a,b,c:integer;

begin

clrscr;

write('moi nhap a=');

readln(a);

write('moi nhap b=');

readln(b);

write('moi nhap c=');

readln(c);

writeln('tong ba so bang',a+b+c):

write('tich ba so bang',a*b*c);

readln;

end.

chúc bạn học tốt

Program tong;

Uses crt;

Var: a, b, c: integer;

Begin

Clrscr;

Readln(a,b,c);

Writeln(' Tong cua 3 so a, b, c la ', a+b+c);

Writeln(' Tich cua 3 so a,b,c la ', a*b*c);

Readln;

End.

P/c: Mình làm hơi vắn tắt, mong bạn thông cảm. Chúc bạn học tốt!!!

Bài 1.Nhập vào một số n từ bàn phím (n là số nguyên)

a)Viết thuật toán để kiểm tra n là số chẵn hay số lẻ

b)Viết chương trình Pascal

bài làm:

a, b1 nhập số n

b2 , n mod 2 = 0 thì chuyển xuống b4

b3 n mod 2= 1 thì chuyển xuống b5

b4 n là số chẵn

b5 n là số lẻ

b,

program Chan_le;

uses Crt;

var n: integer;

begin

clrscr;

write(´Nhap n=`);

readln(n);

if n mod 2 = 0 then writeln(´n la so chan`) else

writeln(´n la so le`);

readln;

end.

Program bai_tap;

Uses crt;

var a,b,c: real;

Begin

clrscr;

Write ('nhap do dai canh a =') ; Readln(a);

Write('nhap do dai canh b=') ; Readln(b);

Write('nhap do dai canh c=') ; Readln(c);

If (a=b) and (b=c) and (a=c) then writeln ('day la tam giac can');

Else writeln (' day khong phai la tam giac can');

Readln;

End.

Chúc bạn hc tốt =))

bọn chưa học tin học , kì II lận

-hoạt động của câu lệnh dạng thiếu là chương trình sẽ kiểm tra,nếu điều kiện đúng ,chương trình sẽ thực hiện , nếu điều kiện sai sẽ bỏ qua và kết thúc

-hoạt động của câu lệnh dạng đủ là chương trình sẽ kiểm tra điều kiện , nếu đúng thì chương trình thực hiện câu lệnh 1 , ngược lại chương trình sẽ thực hiện câu lệnh 2

- 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 1>
else <câu lệnh 2>

Bài 1:

Program Kiem_tra_chan_le;

Uses Crt;

begin

clrscr;

real(a);

If a mod 2 = 0 then write ('Do la so chan');

If a mod 2 = 1 then write ('Do la so le');

readln

end.

Bài 2:

Program Kiem_tra_am_duong;

Uses Crt;

begin

clrscr;

real(b);

If a > 0 then write ('Do la so duong');

If a < 0 then write ('Do la so am');

readln

end.