Viết thuật toán cho các bài toán sau: 1: tính thương của 2 số a ,b (b mẫu số) 2: tính tổng các số từ 1 đến n (n thuộc N) S=1+2+3+-..+n 3: tìm

0 bình luận về “Viết thuật toán cho các bài toán sau: 1: tính thương của 2 số a ,b (b mẫu số) 2: tính tổng các số từ 1 đến n (n thuộc N) S=1+2+3+-..+n 3: tìm”

1. Bài 1:

   Program Bai1;
   uses crt;
   var a,b:integer;

   BEGIN
       Write(‘Nhap a: ‘); readln(a);
       Write(‘Nhap b: ‘); readln(b);
       Write(‘Ket Qua: ‘,a/b:1:5);
       readln;
   END.

   Bài 2:

   Program Bai1;
   uses crt;
   var n,sum:integer;

   BEGIN
       sum:=0;
       Write(‘Nhap N: ‘); readln(n);
       for i:= 1 to n do sum := sum+i;
       Write(‘Ket Qua: ‘,sum);
       readln;
   END.

   Bài 3:

   Program Bai3;
   Uses crt;
   Var a,b,c,d,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);
   If a=0 then
      If b=0 then
          If c=0 then
   Writeln(‘Phuong trinh co vo so nghiem’)
          Else
   Writeln(‘Phuong trinh vo nghiem’)
      Else
   Writeln(‘Phuong trinh co mot nghiem: x=’,-c/b:4:2)
   Else
   Begin
   d:=b*b-4*a*c;
   If d=0 then
   Writeln(‘Phuong trinh co nghiem kep: x=’,-b/(2*a):4:2)
   Else
   If d<0 then
   Writeln(‘Phuong trinh vo nghiem’)
   Else
   Begin
   x1:= (-b+sqrt(d))/(2*a);
   x2:= (-b-sqrt(d))/(2*a);
   Write(‘Phuong trinh co hai nghiem: ‘);
   Writeln(‘ x1=’,x1:4:2,’ va x2=’,x2:4:2);
   End;
   End;
   Readln;
   End.

   Bình luận