tin học 8

[longhama6a2]

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

Viết pt giải phương trình bậc 1(ax+b=0) pascal 8 lm nhanh nha mình sẽ thanks
2/Viết chương trình tính tổng N số tự nhiên đầu tiên?
3/Viết chương trình tính N!(Với N!=1*2*3...*n)
lm nhanh dùm mấy bạn

 

[khai221050]

1/ program giai_phuong_trinh_by_TP;
uses crt;
var b,c: integer;
begin
clrscr;
writeln('Chuong Trinh Giai PT bac 1: bx+c=0');
writeln('Nhap b va c'); readln(b,c);
If (b=0) and (c<>o) then writeln('Phuong trinh vo nghiem');
If (b=0) and (c=0) then writeln('Phuong trinh co vo so nghiem');
If (b<>0) and(c<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a);
writeln('Vay nghiem cua phuong trinh la',x);
readln;
end.
2/ uses crt;
var i,n:integer;
begin
clrscr;
begin
n:=1
for i:=1 to n do n=n+i;
writeln('Ket qua:',n);
readln
end.
3. Giống như bài 2, chỉ có điều thay n:=n+i bằng n:=n*i