viết chương trình nhập 2 số x,y từ bàn phím, tính tổng, hiệu, tích, thương của 2 số và ghi kết quả vào tệp 'KQ.TXT'
Những câu hỏi liên quan
. Viết chương trình cho phép nhập từ bàn phím 3 số tự nhiên bất kì. Xử lí dữ liệu và ghi vào tệp “Ketqua.txt” tổng, tích và trung bình cộng của 3 số (mỗi kết quả in trên 1 dòng) ,pyhton
viết chương trình nhập từ bàn phím 15 số thực ghi các số đó vào tệp KQ.TXT cứ 5 số trên một dòng các số cách nhau bởi một dấu cách?
uses crt;
const fi='kq.txt'
var a:array[1..15]of real;
i,n:integer;
f1:text;
begin
clrscr;
n:=15;
for i:=1 to n do readln(a[i]);
assign(f1,fi); rewrite(f1);
for i:=1 to n do
begin
if (i mod 5=0) then writeln(f1)
else write(f1,a[i],' ');
end;
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình nhập từ bàn phím 10 số nguyên ,hãy ghi 10 số nguyên đó vào tệp KQ.Txt . Hai dòng ,5 số trên 1 dòng , mỗi sôa cách nhau 1 dấu cách
uses crt;
const fi='kq.txt'
var a:array[1..10]of integer;
i,n:integer;
f1:text;
begin
clrscr;
n:=10;
for i:=1 to n do readln(a[i]);
assign(f1,fi); rewrite(f1);
for i:=1 to n do
begin
if (n%5<>0) then write(f1,a[i]:4);
else writeln(f1);
end;
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hìnhCâu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXTgiúp em với ạ . em cảm ơn nhiều...
Đọc tiếp
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình
Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT
giúp em với ạ . em cảm ơn nhiều...
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT'
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
Đúng 1
Bình luận (0)
giúp em với 2 câu thôi ạ :
viết chương trình nhập vào xâu bất kì từ bàn phím , ghi xâu sau khi loại bỏ các dấu cách ra tệp D:\ketqua.txt
viết chương trình nhập vào từ bàn phím 4 số bất A,B,C. tìm và thông báo kết quả ra màn hình giá trị nhỏ nhất MIN của 4 số đó có sử dụng chương trình con
1:
uses crt;
const fi='ketqua.txt'
var f1:text;
st:string;
i,d:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(f1,st);
close(f1);
end.
Đúng 0
Bình luận (0)
2:
uses crt;
var a,b,c,d:integer;
{----------chuong-trinh-con-----------------------}
function min(x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
{---------------chuong-trinh-chinh--------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
write('d='); readln(d);
writeln(min(a,min(b,min(c,d))));
readln;
end.
Đúng 0
Bình luận (1)
Bài tập tệp Bài 1: Viết chương trình mở tệp dayso.TXT để đọc các số nguyên ra biến n và tính tổng các số nguyên n chia hết cho 3 hoặc 5? Bài 2: Viết chương trình nhập 50 số nguyên bất kì từ bàn phím và ghi các số nguyên lẻ đã nhập vào tập sole.TXT
giúp mình với, mình cảm ơn.1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!0), in tổng, hiệu, tích, thương phần nguyên a/b.2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.5.Viết chương trình giải phương trình: ax^2+...
Đọc tiếp
giúp mình với, mình cảm ơn.
1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!=0), in tổng, hiệu, tích, thương phần nguyên a/b.
2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.
3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.
4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.
5.Viết chương trình giải phương trình: ax^2+bx+c=0 với các hệ số a, b, c được nhập vào từ bàn phím.
Câu 3:
#include <bits/stdc++.h>
using namepsace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
giúp mình với, mình cảm ơn.1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!0), in tổng, hiệu, tích, thương phần nguyên a/b.2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.5.Viết chương trình giải phương trình: ax^2+...
Đọc tiếp
giúp mình với, mình cảm ơn.
1.Viết chương trình nhập 2 số nguyên a, b từ bàn phím (b!=0), in tổng, hiệu, tích, thương phần nguyên a/b.
2.Viết chương trình nhập năm sinh của một người từ bàn phím, sau đó in ra lời chào và tuổi của người đó.
3.Viết chương trình nhập ba số thực a, b, c từ bàn phím là số đo 3 cạnh tam giác, sau đó tính và in chu vi, diện tích tam giác đó.
4.Viết chương trình nhập vào một số nguyên, sau đó in ra màn hình số đó là số chẵn hay lẻ.
5.Viết chương trình giải phương trình: ax^2+bx+c=0 với các hệ số a, b, c được nhập vào từ bàn phím.
Câu 3:
#include <bits/stdc++.h>
using namepsace std;
double a,b,c,p,s;
int main()
{
cin>>a>>b>>c;
p=(a+b+c)/2;
s=sqrt(p*(p-a)*(p-b)*(p-c));
cout<<fixed<<setprecision(2)<<s;
return 0;
}
Đúng 0
Bình luận (0)
Viết công thức nhập vào từ bàn phím 10 số nguyên bất kì . Ghi 10 số nguyên trên vào tệp KQ.TXT và 10 số nguyên trên nằm trên 1 hàng và mỗi số cách nhau 1 dấu cách (hàng 1).và ghi số lượng số dương vào hàng 2 trong tệp ?
uses crt;
const fi='kq.txt'
var a:array[1..10]of integer;
i,n,dem:integer;
f1:text;
begin
clrscr;
n:=10;
for i:=1 to n do readln(a[i]);
assign(f1,fi); rewrite(f1);
for i:=1 to n do write(f1,a[i]:4);
writeln(f1);
dem:=0;
for i:=1 to n do if a[i]>0 then dem:=dem+1;
writeln(f1,dem);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)