viết chương trình nhập 1 số thực làm tròn số thực đến chữ số thứ nhất phần thập phân. (pascal)
viết chương trình pascal tính diện tích và chu vi của hình chữ nhật, làm tròn 2 chữ số thập phân. biết chiều dài và chiều rộng của hình chữ nhật là 2 số thực được nhập từ bàn phím
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(2*(a+b):4:2);
writeln(a*b:4:2);
readln;
end.
viết chương trình pascal tính diện tích và chu vi hình chữ nhật, làm tròn 2 chữ số thập phân . biết chiều dài và chiều rộng của hình chữ nhật là 2 số thực được nhập vào từ bàn phím
Program Chu_nhat; uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S:3:2);
Writeln('Chu vi hinh chu nhat la:',CV:3:2);
readln;
end.
Program chunhat;
uses crt;
var a,b,p,s:real;
begin
clrscr;
writeln('Nhap chieu dai va rong cua hinh chu nhat: ');
readln(a,b);
s:=a*b;
p:=(a+b)*2;
write('Chu vi hinh chu nhat la: ', p:1:2);
writeln;
write('Dien tich hinh chu nhat la: ', s:1:2);
readln;
end.
Kết quả:
Bài 1: Hãy viết chương trình trong Pascal thực hiện các công việc sau:
a) Nhập 2 số thực a và b vào từ bàn phím
b) In ra màn hình tổng của 2 số a,b vừa nhập, với kết quả in ra có 1 chữ số ở phần thập phân
c) Lưu chương trình với tên có dạng hoten-lop
**Lưu ý: Trong chương trình phải sử dụng các lệnh xóa màn hình và dừng màn hình kết quả
------------Mình cần gấp, xin cảm ơn------------
uses crt;
var a,b:real;
begin
clrscr;
readln(a,b);
writeln(a+b:4:1);
readln;
end.
program b1;
uses crt;
var a,b,s:real;
begin
clrscr;
writeln('Nhap hai so a va b: ');
readln(a,b);
s:=a+b;
write('Tong cua hai so a va b la: ',s:1:1);
readln;
end.
P/S: phần lưu lẫn đặt tên người dùng nào cũng đều làm được.
+ Chọn Save as ở phần File phía góc trái trên cùng rồi đặt tên.
Viết chương trình nhập từ bàn phím hai số nguyên a và b. Thực hiện tính và in ra màn hình kết quả của phép tính (chỉ lấy 2 chữ số sau phần thập phân). Giúp mình với Pascal nha mn
1. Hãy nhập từ bàn phím 1 dãy số nguyên không âm. Hãy viết chương trình in ra màn hình chỉ số i nhỏ nhất sao chi tổng các phần tư từ 1 đến i lớn hơn 100
2. Hãy viết chương trình pascal để thực hiện các nhiệm vụ sau đây:
- Nhập vào từ bàn phím 1 dãy số không quá 30 số nguyên
- Kiểm tra rồi cho biết dãy số vừa nhập có phải là dãy số không giảm hay không
1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.
Câu 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>=a[j] then kt:=1;
if kt=0 then writeln('Day la day so khong giam')
else writeln('Day khong la day so khong giam');
readln;
end.
viết chương trình nhập từ bàn phím số a bất kì a>0(là độ dài cạnh hình vuông). Tính diện tích hình vuông đó. Kết quả làm tròn đến 2 chữ số sau phần thập phân.
#include <bits/stdc++.h>
using namespace std;
double a;
int main()
{
cin>>a;
cout<<fixed<<setprecision(2)<<a*a;
return 0;
}
program hinhvuong;
uses crt;
var a,s:real;
begin
clrscr;
write('Nhap do dai canh a: ');
readln(a);
if (a>0) then
begin
s:=a*a;
write('Dien tich hinh vuong do la: ',s:1:2);
end;
readln;
end.
program tinh;
uses crt;
var S,i,n:integer;
A: real;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=10;
S:=0;
for i:10 to n do
begin
S:=S+i;
i:=i+5;
end;
S:=S+n;
A:=S/3;
write('Ket qua cua S la: ',S);
writeln;
write('Ket qua cua A la: ',A:1:1);
readln;
end.
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Bài 1:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
inc(i);
end;
writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Bài 2:
uses crt;
var n,i,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=1;
while i<=n do
begin
s:=s+i;
i:=i+2;
end;
writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);
readln;
end.
Làm tròn số 92,117 đến hàng phần mười được kết quả là:
Làm tròn số -845,654 đến hàng phần mười (đến chữ số thập phân thứ nhất) được kết quả là:
Làm tròn số 82,572 đến hàng phần mười được kết quả :
Làm tròn số -72,882 đến chữ số thập phân thứ nhất được kết quả là
Làm tròn số -7671,08 đến hàng chục được kết quả là
Làm tròn số 86427 đến hàng trăm được kết quả là:
Làm tròn số 28,1 đến hàng đơn vị được kết quả là:
Làm tròn số -28,7 đến hàng đơn vị được kết quả là
Làm tròn số 128,5 đến hàng chục được kết quả là:
Làm tròn số 28,23 đến hàng đơn vị được kết quả là:
Làm tròn số 5960,12 đến hàng trăm được kết quả là
Làm tròn số -2367,785 đến chữ số thập phân thứ hai được kết quả là:
Làm tròn số 327,7892 đến chữ số thập phân thứ hai được kết quả là:
Làm tròn số -29670 đến hàng nghìn được kết quả là:
Làm tròn số 7476,5 đến hàng đơn vị được kết quả là
Làm tròn số 4568,12 đến hàng trăm được kết quả là:
Làm tròn số -28,39 đến hàng phần mười được kết quả là:
Làm tròn số -67,193 đến chữ số thập phân thứ hai được kết quả là:
Làm tròn số -18,119 đến chữ số thập phân thứ hai được kết quả là
Làm tròn số -15427,99 đến hàng trăm được kết quả là: