1) Hãy ghép các từ khoá dưới đây thành một chương trình hoàn chỉnh. Program Cv_chu_nhat; End. Begin Uses crt; Writeln(‘nhap do dai cho canh a la’) CV:

Bởi

1) Hãy ghép các từ khoá dưới đây thành một chương trình hoàn chỉnh.
Program Cv_chu_nhat;
End.
Begin
Uses crt;
Writeln(‘nhap do dai cho canh a la’)
CV:real CV:=(a+b)*2
Var a,b: integer
Readln(a)
Readln(b)
Writeln(‘nhap do dau cho canh b’)
Writeln(‘chu vi hinh chu nhat’, CV)
2) chương trình tính và đưa ra màn hình giá trị biểu thức :s = 1 + 2 + 3 + 4 + 5 + 6 + 3 + 8 + 9 + 10

0 bình luận về “1) Hãy ghép các từ khoá dưới đây thành một chương trình hoàn chỉnh. Program Cv_chu_nhat; End. Begin Uses crt; Writeln(‘nhap do dai cho canh a la’) CV:”

  1. Câu 1:

         Propram Cv_chu_nhat;

         Uses crt;

         Var a, b : integer;

                 CV : real;

    Begin

        Clrscr;

        Write ( ‘Nhap do dai cho canh a la:’ );

        Readln (a);

        Write ( ‘Nhap do dai cho canh b la:’ );

        Readln (b);

        CV : = ( a + b ) * 2;

        Writeln ( ‘Chu vi hinh chu nhat:’,CV );

        Readln

    End.

    * Xin lỗi bạn nha! Mình không biết làm câu 2. hihi! Làm bạn thất vọng rồi.

              

    Bình luận

  2. Bài1

    Program Cv_chu_nhat;

    Uses crt;

    Var a,b: integer;

    CV:real; 

    Begin

      Writeln(‘nhap do dai cho canh a la’);

      Readln(a);

      Writeln(‘nhap do dau cho canh b’);

      Readln(b);

      CV:=(a+b)*2;

      Writeln(‘chu vi hinh chu nhat’, CV);

      Readln;

    End.

    Bài 2

    Program tinh;

    Uses crt;

    Var s:Integer;

    Begin 

      Clrscr;

      s:=1+2+3+4+5+6+7+8+9+10;

      Writeln(‘Gia tri bieu thuc s la :’,s);

      Readln;

    End.

    Bình luận

Viết một bình luận