Tin học Bài tập pascal

[zazazaz9]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

đây dạng của đề thi học kỳ sắp tới, mong mọi người giúp đỡ

1. viết chương nhập vào 5 số nguyên và in ra màn hình số lớn nhất trong 5 số nguyên
2. viết chương trình tính tổng S=1+2²+3²+...+n² với n nhập từ bàn phím
3. viết chương trình nhập vào 3 cạnh a, b, c và kiểm tra xem 3 cạnh đó tạo tam giác cân, vuông,đều hay không?
4. viết chương trình in ra bảng cửu chương như sau:
2x1=2 3x1=3 4x1=4 ... 9x1=9
2x2=4 3x2=6 4x2=8 9x2=18
...
2x9=18 3x9=27 4x9=36 9x9=81
5. lập trình để giải bài toán cổ:
vừa gà vừa chó
bó lại cho tròn
ba mươi sáu con
một trăm chân chẵn
hỏi có bao nhiêu con mỗi loại

cảm ơn mọi người!

Chú ý post bài đúng box nhé bạn!
Chuyển!

Thân! Tan~

 

[quanghero100]

Bài 2:

uses crt;
var n,i,s:longint;
begin
 clrscr;
   write('nhap n='); readln(n);
   s:=0;
    for i:=1 to n do
     s:=s+sqr(i);
   writeln('ket qua la: ',s);
 readln;
end.

 

[quanghero100]

Bài 3:

uses crt;
var a,b,c:integer;
begin
 clrscr;
  writeln('nhap do dai cac canh ');
  readln(a); readln(b); readln(c);
  if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
   begin
    writeln(a,'; ',b,'; ',c,' la do dai cua mot tam giac');
     if (a=b) and (b=c) then write('tam giac do la tam giac deu')
      else if (a=b) or (b=c) or (c=a) then write('tam giac do la tam giac can')
 else if ((sqr(a)+sqr(b))=sqr(c)) or  ((sqr(a)+sqr(c))=sqr(b)) or  ((sqr(b)+sqr(c))=sqr(a)) then
             write('tam giac do la tam giac vuong')
        else write('tam giac do la tam giac thuong')
   end
  else write(a,'; ',b,'; ',c,' khong phai la do dai cua mot tam giac');
 readln;
end.

 

[quanghero100]

Bài 4:

uses crt;
var a:array[1..10,1..10] of integer;
    i,j:integer;
begin
 clrscr;
  writeln('bang cuu chuong');
  for i:=1 to 9 do
   begin
    for j:=2 to 9 do
     write(j,'x',i,'=',i*j:2,'  ');
     writeln;
    end;
  readln;
end.

 

[quanghero100]

Bài 5:

uses crt;
var i:integer;
begin
 clrscr;
 for i:=1 to 36 do
  if i*2+(36-i)*4=100 then
   write('co ',i,' con ga va ',36-i,' con cho');
 readln;
end.

 

[quanghero100]

Bai 1:

uses crt;
var a:array[1..5] of integer;
    i,max:integer;
begin
 clrscr;
 writeln('moi ban nhap vao 5 so nguyen: ');
  for i:=1 to 5 do
   readln(a[i]);
  max:=a[1];
  for i:=2 to 5 do
   if max<a[i] then max:=a[i];
  write(max,' la so lon nhat');
 readln;
end.