Lập chương trình để tính số mol photpho và oxi khi biết khối lượng của chúng tương ứng là mP và mO gam.
Lập chương trình để tính số mol photpho và oxi khi biết khối lượng của chúng tương ứng là mP và mO gam.
program bai1;
var mP,mO:longint;
lc:char;mol:real
begin
write('Ban muon tinh so mol cua P hay O ');
readln(lc);
if lc='P' then
begin
write('So mol cua P la ');readln(mP);
mol:=mP/M(PTK của P tự tính nha);
write('So mol la ',mol:4:2);
end;
mol của O tương tự
readln
end.
Bài kt 1 tiết ai biết câu nào không bày em vs ạ. Em xin cả mơn trước ạ
1. Viết chương trình đếm số dòng tệp tin văn bản có tên là VANBAN.txt
2. Viết chương trình đọc và in ra màn hình nội dung tệp văn bản với tên VANBAN.txt (nội dung văn bản đã đc tạo ra từ trước nội dung gồm nhiều dòng)
3. Viết công thức từ trang 1 xâu nhập vào từ bàn phím
uses crt;
var i,n,dem:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n>0;
writeln('Cac so chan va chia het cho 4 trong khoang tu 5 toi ',n,' la: ');
for i:=5 to n do
if (i mod 2=0) and (i mod 7=0) then write(i:4);
writeln;
writeln('Cac so chia het cho 7 trong khoang tu 5 toi ',n,' la: ');
dem:=0;
for i:=5 to n do
if i mod 7=0 then
begin
write(i:4);
inc(dem);
end;
writeln;
writeln('Co ',dem,' so chia het cho 7 trong khoang tu 5 toi ',n);
readln;
end.
Bài 1 viết chư ơng trình pascal nhập vào 2 số nguyên m và n đưa ra màn hình tổng số chia hết cho 3 và 5 từ m đến N
uses crt;
var m,n,t,i:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
until m<n;
t:=0;
for i:=m to n do
if (i mod 3=0) and (i mod 5=0) then t:=t+i;
writeln('Tong cac so chia het cho 3 va 5 trong khoang tu ',m,' toi ',n,' la: ',t);
readln;
end.
var a,b: real;
begin
write('Nhap a,b: '); readln(a,b);
if a < b then writeln(a:5:2) else if a > b then writeln(b:5:2) else writeln('Khong co');
end.
uses crt;
var a,b:real;
begin
clrscr;
repeat
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
until a<>b;
if a<b then writeln('So nho nhat la: ',a:4:2)
else writeln('So nho nhat la: ',b:4:2);
readln;
end.
uses crt;
var i,t,kt,j:integer;
begin
clrscr;
t:=0;
for i:=999 downto 100 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln('Tong cac so nguyen to trong day la: ',t);
readln;
end.
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
Giúp mình hãy khai báo biến để lưu trữ 2 số thực
có thể bạn khai báo array thì có thể chứa 2 số thực á
Viết chương trình nhập vào một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn
#include <bits/stdc++.h>
using namespace std;
int main() {
double x, y;
cin >> x;
if(x<0) {cout << "Khong co y thoa man bieu thuc tren";}
if(x>=0)
{y=cbrt(x)+sqrt(x)+1;
cout << y << endl;}
return 0;
}
Chúc bn học tốt!
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
uses crt;
begin
writeln('Xin chao cac ban');
writeln('Moi ban den voi Pascal');
readln;
end.