giúp em làm các bt pascal này với?

Bạn này không chia làm từng bài. Ai mà hiểu nổi.!!!

Nhập tên (VD: Phung). Hiện câu ‘Chao Phung’:

Program Chao;

Var S: String;

Begin

Write('Ban ten gi? ');

Readln(s);

Write('Chao ',s);

Readln

End.

Nhập a, b. Hiện kết quả so sánh 2 số. (VD: a lớn hơn b)

Program Sosanh;

Var a,b: Integer;

Begin

Write('A= ');

Readln(a);

Write('B= ');

Readln(b);

If a>b then Write('A lon hon B..!!');

If a<b then Write('A be hon B..!!');

If a=b then Write('A bang hon B..!!');

Readln

End.

Giải phương trình bậc 1

Program ptb1;

Var a,b: Real;

Begin

Writeln('Chuong trinh giai phuong trinh A.x+b=0 ( A<>0 )');

Write('Nhap A= ');

Readln(A);

Write('Nhap B= ');

Readln(B);

Write('Phuong trinh co nghiem: x= ',-B/A:6:2);

Readln

End.

Giải phương trình bậc 2

PROGRAM PTB2;

VAR

A,B,C:INTEGER;

D,X1,X2:REAL;

BEGIN

WRITELN(' ');

WRITELN(' CHUONG TRINH GIAI PHUONG TRINH BAC HAI ');

WRITELN(' WELCOME LYLY ');

WRITELN(' ');

REPEAT

WRITE(' MOI LYLY NHAP HE SO A= ');

READLN(A);

UNTIL A<>0;

WRITE(' NHAP HE SO B= ');

READLN(B);

WRITE(' HE SO CON LAI C= ');

READLN(C);

D:=B*B-4*A*C;

IF D < 0 THEN

WRITELN('(^.^)***Phuong Trinh Vo Nghiem Rui***(^.^)')

else

if D = 0 THEN

WRITELN(' Phuong Trinh Co 2 Nghiem Bang Nhau X= ', -b/2*a:6:2)

else

begin

X1:=(-b-sqrt(D))/2*A;

X2:=(-b+sqrt(D))/2*A;

WRITELN('Nghiem Thu Nhat X1= ',X1:6:2);

WRITELN('Nghiem Thu Hai X2= ',X2:6:2);

end;

readln

end.

Hiện 15 câu ‘Chao ban’

Program Chao;

Var i: Byte;

Begin

For i:=1 to 15 do Writeln('Chao Ban..!!!');

Readln

End.

Hiện các số từ 1…100. Mỗi số một dòng.

Program Quang_Huy;

Var i: Byte;

Begin

For i:=1 to 100 do Writeln(i);

Readln

End.

Hiện các số từ 1…100. Mỗi số hiển thị với độ rộng là 5

Program Quang_Huy;

Var i: Byte;

Begin

For i:=1 to 100 do Writeln(i:5);

Readln

End.

Hiện các số từ 1…100. Hiển thị trên 10 dòng, 10 cột.

Program Bt;

Var i: Byte;

Begin

For i:=1 to 10 do Write(i:4);

Writeln;

For i:=11 to 20 do Write(i:4);

Writeln;

For i:=21 to 30 do Write(i:4);

Writeln;

For i:=31 to 40 do Write(i:4);

Writeln;

For i:=41 to 50 do Write(i:4);

Writeln;

For i:=51 to 60 do Write(i:4);

Writeln;

For i:=61 to 70 do Write(i:4);

Writeln;

For i:=71 to 80 do Write(i:4);

Writeln;

For i:=81 to 90 do Write(i:4);

Writeln;

For i:=91 to 100 do Write(i:4);

Writeln;

Readln

End.

Thank đi chứ..!!!

$*****$

Nhập tên, hiện lời chào.

uses crt;

Var S: String;

Begin

clrscr;

Write(' Ten ban la : ');

Readln(s);

Write('Chao ',s);

Readln

End.

Nhập a, b. So sánh a, b

uses crt;

Var a,b: Integer;

Begin

clrscr;

write(' Nhap 2 so nguyen : ');

readln(a, b);

If a>b then Write(a, ' lon hon ',b)

else if a<b then Write(a,' nho hon ',b);

else Write(a,' bang ',b);

Readln

End.

Giải phương trình bậc 1

uses crt;

Var a,b: Real;

Begin

clrscr;

Write('Nhap A= ');

Readln(A);

Write('Nhap B= ');

Readln(B);

if (a=0) and (b=0) then write(' Phuong trinh co vo so nghiem ')

else if (a=0) and(b<>0) then write(' Phuong trinh vo nghiem ')

else if a<>0 then write(' Phuong trinh co 1 nghiem la ',-b/a:4:2);

Readln

End.

Giải phương trình bậc 2

uses crt;

var

a, b, c , delta, x1, x2 : real;

begin

clrscr;

repeat

write(' Ban hay nhap he so a : ');

readln(a);

until a<>0;

write(' Nhap he so b : ');

readln(B);

write(' Nhap he so c : ');

readln(C);

delta:=sqr(b)-4*a*c;

if delta < 0 then writeln(' Phuong trinh vo nghiem ')

else

if D = 0 then writeln(' Phuong trinh co nghiem kep X1 = X2 = ', -b/2*a:4:2)

else

begin

X1:=(-b-sqrt(delta))/2*a;

X2:=(-b+sqrt(delta))/2*a;

writeln(' Phuong trinh co 2 nghiem : ');

writeln('X1 = ',X1:4:2);

writeln('X2 = ',X2:4:2);

end;

readln

end.

Hiện 15 câu ‘Chao ban’

uses crt;

Var i: Byte;

Begin

clrscr;

For i:=1 to 15 do Writeln('Chao Ban');

Readln

End.

Hiện các số từ 1…100. Mỗi số một dòng.

uses crt;

Var i: Byte;

Begin

clrscr;

For i:=1 to 100 do Writeln(i);

Readln

End.

Hiện các số từ 1…100. Mỗi số hiển thị với độ rộng là 5

uses crt;;

Var i: Byte;

Begin

clrscr;

For i:=1 to 100 do Writeln(i:5);

Readln

End.

Hiện các số từ 1…100. Hiển thị trên 10 dòng, 10 cột.

uses crt;

var i, j : integer;

begin

clrscr;

for i:=1 to 10 do

begin

for j:=1 to 10 do write(i*j:4);

writeln;

end;

readln;

end.

Chúc bạn học tốt !