Tin học Pascal, viết chương trình tính

[socola01]

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

Anh chị nào biết thì giúp em với, bọn em sắp thi học kỳ oy, mấy bài này có trong đề cương nhưng cô giáo ko chữa nên em đành phải cầu cứu đến diễn đàn, anh chị giúp em với nhé. THANKS

Bài 1 Viết chương trình tính và đưa ra màn hình vận tốc v khi chạm đất của một vật rơi từ độ cao h biết rằng [TEX]v= sqrt{2gh}[/TEX] Trong đó g là gia tốc rơi tự do và g = 9.8 m/s^2
h là độ cao nhập từ bàn phím

Bài 2 Viết chương trình tính Z với x, y nhập từ bàn phím theo công thức

Z= [TEX]\left{\begin{x^2 + y^2} \\{x + y}\\{0.5} [/TEX] nếu [TEX]\left{\begin{x^2 + y^2 \leq 1} \\{x^2 + y^2 > 1} va {y {\geq x}}\\{x^2 + y^2 > 1 va y < x} [/TEX]

Bài 3: Viết chương trình tính diện tích hình tròn [TEX]S= pi * R^2[/TEX], biết pi là hằng số và bằng 3,14. R nhập từ bàn phím

Bài 4: Viết chương trình tính Y với n nhập từ bàn phím theo biểu thức

[TEX]Y =\sum_{n=1}^{50}{\frac{n}{n+1}[/TEX]

 

[quanghero100]

mấy bài nỳ được đấy nhưng bận ôn tập mai thi ròi nên không thể giúp được tiếc thật

 

[ochuotqb]

Thôi cố gắng giúp chị vài bài :
Bài 1:

var h,v:real;
const g=9.8;
    begin
          write('Nhap h: ');
             readln(h);
       v:=sqrt(2*g*h);
    write('Van toc khi cham dat: ',v:4:2);
 readln
end.

Bài 2:

var r,s:real;
   const pi=3.14;
 begin
             write('Nhap r: ');
                 readln(r);
         s:=sqr(r)*pi;
  write('Dien tich hinh trong: ',s:4:2);
readln
end.

p/s: Bài 1,3 Chưa học đến. Còn 2 bài kia thì chị thử text xem

 

[matnatinhyeu_1995]

Bài 4

program bai4;
uses crt;
var x,y,z,t:real;
begin
        clrscr;
        writeln('Nhap x,y ');readln(x,y);
        t:=x*x+y*y;
        if t<=1 then z:=t;
        if (t>1) and (y>=x) then z:=x+y;
        if (t>1) and ( y<x) then z:=0.5;
        writeln(vay z=',z:8:2);
        Readln
end.

 

[socola01]

thế còn bài cuối cùng thì sao ak, ai bit làm thì giúp mình với :-SS

 

[matnatinhyeu_1995]

thế còn bài cuối cùng thì sao ak, ai bit làm thì giúp mình với :-SS