Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Tiên Tiên
Xem chi tiết
Nguyen Hung
2 tháng 5 2021 lúc 20:06

Uses crt;

Var dai,rong:integer;

     Procedure Nhap(Var dai:integer;rong:integer);

     Begin

     Write('Chieu dai: ');readln(dai);

     Write('Chieu rong: ');readln(rong);

     End;

     Procedure Ve(var dai:integer;rong:integer);

     var i,j:integer;

     Begin

     for i:= 1 to dai do write('*');writeln;

     For i:= 1 to rong-2 do 

        Begin

        Write('*');

        for j:=1 to dai-2 do write(' ');

        writeln('*');

        end;

     for i:= 1 to dai do write('*');

 

     End;

Begin

clrscr;

Nhap(dai,rong);

Ve(dai,rong);

readln;

End.          

Bùi Anh Tuấn
2 tháng 5 2021 lúc 20:16

Nguyễn Lê Phước Thịnh
2 tháng 5 2021 lúc 22:25

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con--------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{----------------------chuong-trinh-chinh----------------------}

begin

clrscr;

write('Dai='); readln(a);

write('Rong='); readln(b);

ve(a,b);

readln;

end.

Đinh Thị Thu Giang
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 3 2021 lúc 20:44

uses crt;

var a,b,i,j:integer;

    st:string;

begin

clrscr;

repeat

write('Ban muon ve khong:'); readln(st);

if st='Yes' then

   begin

      write('Nhap chieu dai:'); readln(a);

      write('Nhap chieu rong:'); readln(b);

      for i:=1 to a do

        begin

           for j:=1 to b do

             write('*');

           writeln;

        end;

   end

else break;

until st='No'

readln;

end.

Biển Tomm
Xem chi tiết
Biển Tomm
8 tháng 1 2022 lúc 15:35

cứu mình với

 

Biển Tomm
8 tháng 1 2022 lúc 16:54

chỉ mình với ạ

Biển Tomm
8 tháng 1 2022 lúc 19:44

ai biết làm chỉ mình với ạ

 

Tâm Thanh
Xem chi tiết
Bùi Anh Tuấn
27 tháng 12 2020 lúc 20:27

Tam giác vuông

Bùi Anh Tuấn
27 tháng 12 2020 lúc 20:27

Tam giác cân

Nguyễn Lê Phước Thịnh
27 tháng 12 2020 lúc 20:18

Tam giác dạng gì vậy bạn? Cân, đều hay là thường

 

Khhgubbhh
Xem chi tiết
Nguyễn Lê Phước Thịnh
20 tháng 2 2022 lúc 22:51

#include <bits/stdc++.h>

using namespace std;

int i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cout<<"*";

return 0;

}

Hạo Trần
Xem chi tiết
Kỳ Duyên Võ
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 2 2022 lúc 15:47

#include <bits/stdc++.h>

using namespace std;

double a,b;

int main()

{

cin>>a>>b;

cout<<"Chu vi la: "<<fixed<<setprecision(2)<<(a+b)*2<<endl;

cout<<"Dien tich la: "<<fixed<<setprecision(2)<<a*b;

return 0;

}

Hoàng Thu Huyền
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:17

uses crt;

var a,b:integer;

{---------------ve-hinh-chu-nhat---------------------}

procedure ve(x,y:integer);

var i,j:integer;

begin

for i:=1 to x do 

  begin

for j:=1 to y do 

  write('*');

writeln;

end;

end;

{------------------chuong-trinh-chinh---------------}

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

ve(a,b);

writeln;

ve(2*a,2*b);

writeln;

ve(3*a,3*b);

readln;

end;

Hạo Trần
Xem chi tiết
Ngọc Hồng
Xem chi tiết
Nguyễn Lê Phước Thịnh
17 tháng 3 2022 lúc 14:48

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

freopen("sn.inp","r",stdin);

freopen("cn.out","w",stdout);

cin>>a>>b;

cout<<a*b;

return 0;

}