Viết chương trình Pascal !!!!!!!!!!!!!!!!!

H

hangnt94

[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.

BT1: Viết chương trình nhập tên , năm sinh của người sử dụng, sau đó in ra màn hình tên, tuổi của người đó.


BT2: Nhận 1 số tự nhiên không lớn hơn 10000 và xác định:
- n có bao nhiêu chữ số
- tổng các chữ số của n
- chứ số đầu tiên bên trái của n


BT3: Viết chương trình Giải phương trình bậc 2 ( viết giải và biện luận phương trình bậc 2


BT4: Tubor Pascal cũng đã cung cấp các hàm sin, có. Tuy nhiên với múc đích luyện tập ta sẽ viết chương trình để tính sin, có của một góc ( theo radian). Các công thức chuỗi như sau:
sinX = X - X^3 /3! + X^5/5! - ...+ (-1)^n x X^(2n+1) / (2n+1)! + ...
cos X = 1 - X^2/2! + X^4/4! - ...+(-1)^n x X^2n/2n! +...



CÁC BẠN ƠI GIÚP MÌNH LÀM BÀI TẬP NÀY NHA MÌNH ĐAG CẦN GẤP
 
M

mikelhpdatke

BT1: Viết chương trình nhập tên , năm sinh của người sử dụng, sau đó in ra màn hình tên, tuổi của người đó.


BT2: Nhận 1 số tự nhiên không lớn hơn 10000 và xác định:
- n có bao nhiêu chữ số
- tổng các chữ số của n
- chứ số đầu tiên bên trái của n


BT3: Viết chương trình Giải phương trình bậc 2 ( viết giải và biện luận phương trình bậc 2


BT4: Tubor Pascal cũng đã cung cấp các hàm sin, có. Tuy nhiên với múc đích luyện tập ta sẽ viết chương trình để tính sin, có của một góc ( theo radian). Các công thức chuỗi như sau:
sinX = X - X^3 /3! + X^5/5! - ...+ (-1)^n x X^(2n+1) / (2n+1)! + ...
cos X = 1 - X^2/2! + X^4/4! - ...+(-1)^n x X^2n/2n! +...


Bài 1:
Mã:
Var s,t:String;
BEGIN
Write('Nhap ten:');readln(s);
Write('Nhap nam sinh:');readln(t);

Writeln;
Writeln;
Write(ten,' ',2013-t);
readln
End.

Bài 2:

Mã:
Var n,i,j,dem, socs,tongcs,csd:Integer;

Procedure Start(n:Integer);
Var d:Integer;
Begin
      d:=0;
 if n<10 then csd:=n;
       Repeat
           tongcs:=tongcs+n mod 10;
           If n div 10=1 then csd:=n div 10;
           n:=n div 10;
           inc(d);
       Until n=0;
       socs:=d;
End;


BEGIN
readln(n);
Start(n);
Write(socs,' ',tongcs,' ',csd);
readln
End.



Bài 3 và bài 4 chú ý một chút là làm được
 
H

hangnt94

Bài 1:
Mã:
Var s,t:String;
BEGIN
Write('Nhap ten:');readln(s);
Write('Nhap nam sinh:');readln(t);

Writeln;
Writeln;
Write(ten,' ',2013-t);
readln
End.

Bài 2:

Mã:
Var n,i,j,dem, socs,tongcs,csd:Integer;

Procedure Start(n:Integer);
Var d:Integer;
Begin
      d:=0;
 if n<10 then csd:=n;
       Repeat
           tongcs:=tongcs+n mod 10;
           If n div 10=1 then csd:=n div 10;
           n:=n div 10;
           inc(d);
       Until n=0;
       socs:=d;
End;


BEGIN
readln(n);
Start(n);
Write(socs,' ',tongcs,' ',csd);
readln
End.



Bài 3 và bài 4 chú ý một chút là làm được

Bạn có thể giúp mình bài 3 và bài 4 được không mình đã ngồi thử viết nhưng không được ak
 
M

megamanxza

Bài 3:

Mã:
Uses crt;
Var a,b,c:Integer;
Delta,x,x1,x2:Real;
Begin
Write('Nhap he so a= ');
Readln(a);
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 Delta=0 Then
Begin
X:=-b/2*a;
Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2);
End
Else
Begin
X1:=-b-Sqrt(Delta)/2*a;
X2:=-b+Sqrt(Delta)/2*a;
Writeln('Nghiem thu nhat = ',X1:6:2);
Writeln('Nghiem thu hai = ',X2:6:2);
End;
Readln
End.

Còn bài 4 em không biết vì em mới lớp 7, chưa học hàm SIN, COS!
Nhấn thanks và Đúng cho em nha!



Lần sau post chú ý cho vào tag code nhé!
 
Last edited by a moderator:
H

hangnt94

Bài 3:

Mã:
Uses crt;
Var a,b,c:Integer;
Delta,x,x1,x2:Real;
Begin
Write('Nhap he so a= ');
Readln(a);
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 Delta=0 Then
Begin
X:=-b/2*a;
Writeln('+Phuong trinh co 2 nghiem bang nhau X1=X2= ',X:6:2);
End
Else
Begin
X1:=-b-Sqrt(Delta)/2*a;
X2:=-b+Sqrt(Delta)/2*a;
Writeln('Nghiem thu nhat = ',X1:6:2);
Writeln('Nghiem thu hai = ',X2:6:2);
End;
Readln
End.

Còn bài 4 em không biết vì em mới lớp 7, chưa học hàm SIN, COS!
Nhấn thanks và Đúng cho em nha!



Ừ cám ơn em nha
Còn câu cuối khó quá
Chị chỉ nhấn được thanks thui không có nút đúng à
 
Top Bottom