Nguyen An's Profile

Sự đông máu liên quan đến hoạt động của tiểu cầu

tiểu cầu

Giống: đều là đại lượng lưu trữ dữ liệu, cần khai báo mới có thể sử dụng được

Biến: được khai báo bằng var, có thể thay đổi giá trị trong khi thực hiện chương trình

Hằng: được khai báo bằng const, có giá trị mặc định trong suốt chương trình

Program h;

uses crt;

var a,b,s:integer;

begin 

clrscr;

write('Nhap so a: '); readln(a);

write('Nhap so b: '); readln(b):

s:=a+b;

write('TONG A VA B LA: ',s);

readln

end.

INPUT: b la chieu dai hinh chu nhat, 2a la chieu rong hinh chu nhat va a la ban kinh hinh ban nguyet

OUTPUT: Dien tich hinh A

Thuat toan:

b1: s1=0; s2=0; s=0;

b2: Tinh dien tich hinh chu nhat: s1=(2a*b)*2;

b3: Tinh dien tich hinh ban nguyet: s2=(a*a*3.14)/2;

b4: DIen tich hinh A: s=s1+s2;

b5: Thong bao ket qua s va ket thuc

a) Xác định số học sinh họ Nguyễn trong lớp

INPUT: Danh sách học sinh trong lớp

OUTPUT: Số học sinh mang họ Nguyễn trong lớp

b) Tổng cua dãy số tự nhiên n

INPUT: Dãy tự nhiên n số 0+1-2...50

OUTPUT: Kết quả của dãy số đó

INPUT: hai so a,b

OUTPUT: Ket qua so sanh hai so a va b

Thuat toan:
b1: Nhap hai so a va b

b2: Neu a>b --> in thong bao a lon hon b --> chuyen toi b5

b3: Neu a<b --> in thong bao a be hon b --> chuyen toi b5

b4: Neu a=b --> in thong bao a bang b --> chuyen toi b5

b5: Ket thuc

Program nguyento;

uses crt;

var i,n,j,d:longint;

begin 

clrscr;

write('Nhap so n '); readln(n);

for i:=1 to n do

begin 

for j:=1 to i do if i mod j=0 then d:=d+1;

if d=2 then write(i:5);

d:=0;

end;

readln

end.

Program thanthiet;

uses crt;

var a,b,sa,sb,i:Longint; 

begin 

clrscr;

write('Nhap a '); readln(A);

write('Nhap b '); readln(b);

for i:=1 to a do if a mod i=0 then sa:=sa+i;

for i:=1 to b do if b mod i=0 then sb:=sb+i;

if sa=sb then write('La so than thiet') else write('Khong la so than thiet '); 

readln

end.