program window

Uses crt;

Var a,C,S: real;

Begin

clrscr;

Write(' Nhap gia tri cua a: '); readln(a);

C:=a*4;

S:=a*a;

Writeln(' Chu vi la:',C:6:2);

Writeln(' Dien tich la:',S:6:2);

Readln

End.

#include<iostream>

using namespace std;

int main() {

int n;

cout << "Độ dài một cạnh hình vuông : "; cin >> n;

cout << "Chu vi hình vuông là : " << n * 4;

cout << "Diện tích hình vuông là : " << n * n;

return 0;

}

uses crt;

const fi='canh_ht.int'

var f1:text;

a,b,h,c,d:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,a,b,c,d,h);

writeln(a+b+c+d);

writeln(1/2*h*(a+b):4:2);

close(f1);

readln;

end.

#include <iostream>

#include <iomanip>

int main() {

     int r;

     std::cin >> r;

     double pi = 3.14;

     double perimeter = 2 * pi * r;

     double area = pi * r * r;

     std::cout << std::fixed << std::setprecision(2);

     std::cout << "p= " << perimeter << std::endl;

     std::cout << "s= " << area << std::endl;

     return 0;

}

#include <iostream>
#include <iomanip>
using namespace std;

int main() {
    int r;
    const float Pi = 3.14;

    cout << "Nhap ban kinh hinh tron: ";
    cin >> r;

    float chu_vi = 2 * Pi * r;
    float dien_tich = Pi * r * r;

    cout << fixed << setprecision(2);
    cout << "p= " << chu_vi << endl;
    cout << "s= " << dien_tich << endl;

    return 0;
}

uses crt;

const fi='hcn.dat'

fo='chuvi.out'

var f1,f2:text;

a,b:array[1..100]of integer;

n,i,j:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do

begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do

writeln(a[i]*b[i]);

for i:=1 to n do 

  writeln(f2,2*(a[i]+b[i]));

close(f1);

close(f2);

readln;

end.

CÂU 1:

program hinhchunhat;

var a,b,S,C: real;

begin

Write('Nhapdodaicanhthuchata=');readln(a);

Write('Nhapdodaicanhthuhaib=');readln(b);

S:= a*b;

C:=(a+b)*2;

Writeln('Dientichhinhchunhatla:',S);

Writeln('Chuvihinhchunhatla:',C);

readln

end.

CHÚC BẠN HỌC TỐT!

CÂU 2:(lưu ý: câu này thì mik viết chương trình với bán kính hình tròn là sớ thực được nhập từ bàn phím còn số dương thì bn tự tìm hiểu nhe. nếu tìm hiểu đc thì bn chỉ cần thay phần khai báo var thôi nhe.)

program hinhtron;

var r:real;

const pi=3.14;

begin

clrscr;

Write('Nhapbankinh:');readln(r);

Writeln('Chuvihinhtronla:',2*pi*r);

Writeln('Dientichhinhtronla:',pi*r*r);

readln

end.

CHÚC BẠN HỌC TỐT (x2)

B1:Biết chiều dài và chiều rộng của hình chữ nhật.

B2:Lấy chiều dài nhân rộng.

B3:Viết đáp số.

B4:Viết chương trình và kết thúc thuật toán.

#include <bits/stdc++.h>

using namespace std;

double xa,ya,xb,yb,xc,yc,ab,ac,bc;

int main()

{

cin>>xa>>ya>>xb>>yb>>xc>>yc;

ab=(sqrt((xa-xb)*(xa-xb)+(ya-yb)*(ya-yb)));

ac=(sqrt((xa-xc)*(xa-xc)+(ya-yc)*(ya-yc)));

bc=(sqrt((xb-xc)*(xb-xc)+(yb-yc)*(yb-yc)));

p=(ab+bc+ac)/2;

s=sqrt(p*(p-ab)*(p-ac)*(p-bc));

cout<<"Dien tich la:"<<fixed<<setprecision(2)<<s<<endl;

cout<<"Duong cao ung voi dinh A la:"<<fixed<<setprecision(2)<<2*s/bc<<endl;

cout<<"Duong cao ung voi dinh B la:"<<fixed<<setprecision(2)<<2*s/ac<<endl;

cout<<"Duong cao ung voi dinh C la:"<<fixed<<setprecision(2)<<2*s/ab<<endl;

return 0;

}