Bài 3 Chương trình tổng các bình phương cac số nguyên chẳn từ 1 đến 50
program Bai3;
uses crt;
var
S,i : Integer;
begin
clrscr;
Writeln(’——————–Truong THPT Thai Phien—————-’);
Writeln(’—————On tap mo tin hoc 11- hoc ki 1————–’);
Writeln(’Chuong trinh tinh tong cac binh phuong so chan tu 1 den 50′);
Writeln(’————————’);
S:=0;
for i:=1to 50 do
if(i mod 2=0) then
begin
S:=S+i*i;
end;
Writeln(’Tong so la :’,S);
readln;
end.
Bài 4:Chương trình tìm số lớn nhất trong 3 số.
program Baitap5;
uses crt;
var
a,b,c,max : integer;
begin
clrscr; writeln(’—————————————’);
writeln(’——–Tim so lon nhat trong 3 so—–’); writeln(’—————————————’);
writeln(’Nhap vao 3 so ‘);
Readln(a,b,c);
max:=a;
If max<b then max:=b;
if max<c then max:=c;
writeln(’So lon nhat la: ‘,max);
readln;
end.
Bài 5: Chương trình nhập vào ba cạnh tam giác kiểm tra xem có phải tam giác không?
program Baitap5;
uses crt;
var
a,b,c :real;
begin
clrscr; writeln(’—————————————’);
writeln(’——–Bai kiem tra tam giac—–’); writeln(’—————————————’);
writeln(’Nhap vao chieu dai ba canh: ‘);
Readln(a,b,c); if(a+b>c)and(a+c>b)and(b+c>a)and(a>0)and(b>0)and(c>0)then
writeln(’Thoa man: Day la Tam Giac’);
else
writeln(’Thoa man: Day la khong phai la Tam Giac’);
end.
Bài 6Nhập vào chiều dài và chiều rộng HCN –> tính chu vi, đường chéo và diện tích.
program Baitap6;
uses crt;
var
a,b,CV,S,d :real;
begin
clrscr;
writeln(’—————————————’);
writeln(’——–Bai hinh chu nhat—–’);
writeln(’—————————————’);
writeln(’Nhap vao chieu dai: ‘);
Readln(a);
writeln(’Nhap vao chieu rong: ‘);
Readln(b);
CV:=(a+b)*2;
d:=sqrt(sqr(a)+sqr(b));
S:=a*b;
writeln(’Chu vi la: ‘,CV:1:2);
writeln(’Duong cheo la: ‘,d:1:2);
writeln(’Dien tich la: ‘,S:1:2);
writeln(’Dien tich lon nhat khi chieu dai bang chieu rong ‘);
readln;
end.
Bài 5: Kiểm tra tọa độ C
program VD1;
uses crt;
var x,y : real;
begin
clrscr;
Writeln(’–Kiem tra toa do C thuoc goc phan tu thu may?–’);
writeln(’Nhap vao toa do cua diem C’);
readln(x,y);
if(x>0)and(y>0) then
begin
writeln(’Diem C thuoc goc phan tu thu nhat’);
readln;
end;
if(x>0)and(y>0) then
begin
writeln(’Diem C thuoc goc phan tu thu hai’);
readln;
end;
if(x<0)and(y<0) then
begin
writeln(’Diem C thuoc goc phan tu thu tu’);
readln;
end;
end.

"Sưu tầm"