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
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:
By Julia
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à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.