Tinh tổng 1/n! trong pascal Yêu cầu của (Khách)

Theo yêu cầu của một bạn đã ghé thăm Shopkienthuc hôm nay, tôi xin viết bài này để trả lời bạn ý.
Đề:

Bài giải :

Program shopkienthuc;
Uses crt;
 Var j,n:integer;
        gt:longint;
        S:real;
Begin
Clrscr;
Write('nhap n='); readln(n);
  If (n<0) then write(#7,'khong thuc hien duoc vi', n,'<0')
Else
  begin
    gt:=1;
    S:=1;
   For j:=1 to n do
Begin
gt:=gt*j;
S:=S+1/gt;
End;
writeln('S=',S:6:2);
Readln;
End;
Readln
End.

Tại File Pas : giaibaitapyeucau.pas

Tìm tạo độ của trực tâm - (to Ahoan)

Giải theo yêu cầu của bạn Ahoan.

Hỏi: Giúp em tìm tọa độ trực tâm của tam giác ABC có A(1,2) B(-2,0) C(4,1)
Trả lời : 

Gọi H(x;y) là trực tâm của tam giác ABC
    Ta có : - AH vuông góc với BC
                - BH vuông góc với AC

     Suy ra: Vecto(AH) . Vecto(BC) = 0  và Vecto(BH) . Vecto(AC) = 0
    Suy ra: (x-1;y-2).(6;1) = 0 và ( (x+2;y).(3;1) = 0
    Suy ra : 6(x-1) + y-2 = 0 và 3(x+2) + y = 0
Giải hệ phương trình ta được : x=2/9 và y=20/3
Vậy H(2/9 ; 20/3)

Tình giai thừa trong Pascal (n!) - To Dungdung

Viết theo yêu cầu của bạn Dung dung.

program tinhgiaithu;  uses crt;   var n,i: integer;         gt: longint; begin   write('Giai thua cua n='); readln(n);     gt:=1;   if N<0 then writeln(#7,'Khong duoc vi N<0')     else    begin       if N>0 then      for i:=1 to N do gt:=gt*i;     writeln(N,'!=',gt);    end;   readln end.

Bài viết thao khảo ý kiến của giupdo
Chúc bạn học tốt