viết chương trình 2 số a và b.tính tổng hiệu tích thương in kết quả là giá trị tuyệt đối, giá trị làm tròn , căn bậc 2 ,bình phương của 2 số bằng chương trình scatch
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var m:integer;
begin
clrscr;
write('Nhap m='); readln(m);
if m mod 2=0 then writeln(m,' la so chan')
else writeln(m,' la so le');
writeln('Binh phuong cua ',m,' la: ',sqr(m));
writeln('Can bac hai cua ',m,' la: ',sqrt(m));
writeln('Gia tri tuyet doi cua ',m,' la: ',abs(m));
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long a,b;
double tb;
int main()
{
freopen("dulieu.inp","r",stdin);
freopen("ketqua.out","w",stdout);
cin>>a>>b;
cout<<a<<" "<<b;
cout<<fixed<<setprecision(2)<<(a*1.0+b*1.0)/(2*1.0);
return 0;
}
uses crt;
const fi='dst.txt';
var f1:text;
a,b:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,a);
readln(f1,b);
writeln('Tong cua hai so la: ',a+b);
writeln('Gia tri tuyet doi hieu hai so la: ',abs(a-b));
readln;
end.
*Viết chương trình ghi hai số 5 và 15 vào tệp so.txt:
const f='so.txt';
var f1:text;
begin
assign(f1,f); rewrite(f1);
writeln(f1,'5 15');
close(f1);
end.
*Viết chương trình tính tổng, hiệu, tích, thương của x,y và in kết quả ra màn hình:
uses crt;
const fi='so.txt';
var x,y:integer;
f1:text;
begin
clrscr;
assign(f1,fi); reset(f1);
readln(f1,x,y);
writeln('Tong la: ',x+y);
writeln('Hieu la: ',x-y);
writeln('Tich la: ',x*y);
writeln('Thuong la: ',x/y:4:2);
close(f1);
readln;
end.
uses crt;
var a:array[1..100]of real;
i,n:integer;
min,t:real;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln('Gia tri nho nhat la: ',min:4:2);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+a[i];
writeln('Tong cac phan tu co chi so chan la: ',t:4:2);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long x,y;
int main()
{
cin>>x>>y;
freopen("kq.txt","w",stdout);
cout<<x+y<<endl;
cout<<x-y<<endl;
cout<<x*y<<endl;
cout<<fixed<<setprecision(2)<<(x*1.0)/(y*1.0);
return 0;
}
Câu 2:
uses crt;
var x,y:int64;
begin
clrscr;
readln(x,y);
writeln(x+y);
readln;
end.
when green flag clicked
ask [Nhập số a] and wait
ask [Nhập số b] and wait
set [a v] to (answer)
set [b v] to (answer)
// Tính tổng
set [tổng v] to ((a) + (b))
// In kết quả tổng
say (abs (tổng)) for (2) secs
// Tính hiệu
set [hiệu v] to ((a) - (b))
// In kết quả hiệu
say (abs (hiệu)) for (2) secs
// Tính tích
set [tích v] to ((a) * (b))
// In kết quả tích
say (abs (tích)) for (2) secs
// Tính thương
set [thương v] to ((a) / (b))
// In kết quả thương
say (abs (thương)) for (2) secs
// Tính căn bậc 2 của a
set [căn bậc 2 của a v] to (sqrt (abs (a)))
// In kết quả căn bậc 2 của a
say (căn bậc 2 của a) for (2) secs
// Tính căn bậc 2 của b
set [căn bậc 2 của b v] to (sqrt (abs (b)))
// In kết quả căn bậc 2 của b
say (căn bậc 2 của b)