Bài của Win

Bài tập lần hai:
Bài 1:

{
    Day la dong chu thich
    Tam giac deu canh a:
    Chu vi C = 3 * a
    Duong cao h = a * sqrt(3) / 2
    Dien tich S = a * a * sqrt(3) / 2
}
program Bai1;
uses crt;
var
    a,c,s:real;
begin
    clrscr;
    write('Nhap vao mot canh cua tam giac deu:');
    readln(a);
    c :=  3*a;
    s := a*a*sqrt(3)/2;
    writeln('Chu vi C = 3*a = ',c:0:3);
    write('Dien tich S = a*a*sqrt(3)/2 = ',s:0:3);
    readln;
end.

Bài 8:

{
    Gia su hinh ban kinh hinh tron la R
    Dien tich hinh tron St = pi * R * R
    Suy ra canh hinh vuong la a = R * sqrt(2)
    Dien tich hinh vuong Sv = a * a = R * R * 2
    Dien tich can tim Sd = St - Sv = pi * R * R - R * R * 2 = R * R * (pi - 2)
}
program Bai8;
uses crt;
var
    r,sd:real;
begin
    clrscr;
    write('Nhap vao ban kinh cua duong tron:');
    readln(r);
    sd := r * r * (3.14159 - 2);
    write('Dien tich can tim Sd = ',sd:0:3);
    readln;
end.

Bài 9:

{
    Gia su hinh ban kinh hinh tron la R
    Dien tich hinh tron St = pi * R * R
    Suy ra canh hinh vuong la a = R * 2
    Dien tich hinh vuong Sv = a * a = R * R * 4
    Dien tich can tim Sd = Sv - St = 4 * R * R - R * R * pi = R * R * (4 - pi)
}
program Bai9;
uses crt;
var
    r,sd:real;
begin
    clrscr;
    write('Nhap vao ban kinh cua duong tron:');
    readln(r);
    sd := r * r * (4 - 3.14159);
    write('Dien tich can tim Sd = ',sd:0:5);
    readln;
end.

Bài 10:


program Bai10;
uses crt;
var
    nn,n,s:integer;
begin
    clrscr;
    write('Nhap mot so co ba chu so:');
    readln(n);
    nn := n;
    s := 0;
    repeat
        s := s + (n mod 10);
        n := n div 10;
    until n = 0;
    write('Tong cac chu so cua ',nn,' la ',s);
    readln;
end.

Bài tập lần 1:

bài 1:


program Bai1;
uses crt;
var
    a,b,c,delta,x1,x2:real;
begin
    repeat
        write('Nhap a:');readln(a);
    until(a<>0);
    write('Nhap b:');readln(b);
    write('Nhap c:');readln(c);
    delta := b*b - 4*a*c;
    if(delta<0)then
        write('phuong trinh vo nghiem.')
    else if(delta=0) then
            begin
                x1:=-b/(2*a);
                write('Phuong trinh co nghiem kep:',x1:0:5);
            end
    else
        begin
            x1:= (-b-sqrt(delta))/(2*a);
            x2:= (-b+sqrt(delta))/(2*a);
            writeln('Phuong trinh co 2 nghiem phan biet:');
            writeln('x1=',x1:0:5);
            writeln('x2=',x2:0:5);
        end;
    readln;
end.


Bài 3:


program Bai3;
uses crt;
var
    res,x,tbc:real;
    i,count:integer;
begin
    count:=0;
    writeln('Nhap nhiet do cac ngay trong tuan:');
    for i:=1 to 7 do
        begin
            write('nhiet do ngay thu ',i,':');
            readln(x);
            if(x>30) then
                begin
                    count:=count+1;
                    res:=res+x;
                end;

        end;
    if(count=0)then
        write('khong co ngay nao co nhiet do lon hon 30.')
    else
        begin
            tbc:=res/count;
            write('Nhiet do trung binh:',tbc:0:5);
        end;
    readln;
end.


Bài 5:

program Bai5;

var
    x,tong,count:integer;
    tbc:real;
    isNot:boolean;
begin
    isNot:=true;
    count:=0;
    repeat
        begin
            write('Nhap mot so:');
            readln(x);
            tong := tong + x;
            if(x<>0) then
                begin
                    isNot:=false;
                    count:=count+1;
                end;
        end;
    until(x=0);
    if(isNot) then
        write('Khong co so nguyen khac 0 duoc nhap.')
    else
        begin
            tbc:= tong/count;
            write('trung binh cong:',tbc:0:5);
        end;
    readln;
end.

Bài 6:

program Bai6;
uses crt;
var
    a,b,s1,s2,s11,s22:integer;
    res:real;
begin
    write('Nhap a:');readln(a);
    write('Nhap b:');readln(b);
    s1 := a+b;
    s2 := a-b;
    if(s2<0) then s2:=0-s2;

    s11:=s1;
    s22:=s2;

    repeat
        if(s1<>s2)then
            begin
                if(s1>s2)then s1:=s1-s2
                else s2:=s2-s1;
            end
    until(s1=s2);
    res := real((s11*s22)/s1);
    write('Boi chung nho nhat ',s11,' voi ',s22,':',res:0:0);
    readln;
end.

bài 7:

program Bai7;
uses crt;
var
    n,nn:integer;
    res:integer;
begin
    repeat
        write('Nhap n:');readln(n);
    until (n>0);
    nn:=n;
    while(n<>0)do
        begin
            res :=res + (n mod 10);
            n := n div 10;
        end;
    write('tong cac chu so cua ',nn,':',res);
    readln;
end.

Bài 8:


program Bai8;
uses crt;
var
    n,i:integer;
    x,res,temp:real;
begin
    res := 0;
    write('Nhap x:');readln(x);
    temp := x;
    res:= x;
    repeat
        write('Nhap n:');readln(n);
    until (n>0);

    for i:= 2 to n do
        begin
            temp := temp * x;
            res := res + temp;
        end;

    write('ket qua:',res:0:5);
    readln;
end.

Bài 9:

program Bai9;
uses crt;
var
    n,nn,di:integer;
    res:integer;
begin
    repeat
        write('Nhap n:');readln(n);
    until (n>0);
    nn:=n;
    while(n<>0)do
        begin
            di := n mod 10;
   if((di mod 2) = 0)then
             res :=res + (n mod 10);
            n := n div 10;
        end;
    write('tong cac chu so cua ',nn,':',res);
    readln;
end.