Viết các câu lệnh cần thiết để mở tệp bt1.txt và ghi vào đó nội dung 'tây ninh' ai đó giúp với
K
Khách
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.
ML
11 tháng 4 2020
Program hotrotinhoc;
var d,toa1,toa2,toa3,toa4,toa5,toa6,toa7 : byte;
tb: real;
begin
toa1:=7; toa2:=17; toa3:=11; toa4:=7; toa5:=9; toa6:=7;
tb:=(toa1+toa2+toa3+toa4+toa5+toa6)/6;
writeln('So hanh khach trung binh cua doan tau nay la:',tb:2:0);
if toa1>tb then inc(d);
if toa2>tb then inc(d);
if toa3>tb then inc(d);
if toa4>tb then inc(d);
if toa5>tb then inc(d);
if toa6>tb then inc(d);
write('Co ',d,'toa co so luong hanh khach lon hon so luong hanh khach trung binh cua doan tau');
readln
end.
10 tháng 4 2020
Bài 1:
uses crt;
var m,i,j:integer;
s:longint;
begin
clrscr;
write('nhap m='); readln(m);
s:=0;
for i:=1 to m do
begin
for j:=1 to 10 do
s:=s+i*j;
end;
writeln(s);
readln;
end.
Bài 2:
uses crt;
var i:byte;
begin
clrscr;
for i:=1 to 5 do
writeln('Chao ban. Ban co khoe khong!');
readln;
end.
Bài 3:
uses crt;
var a,b,i,ucln:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
ucln:=1;
for i:=1 to a do
if (a mod i=0) and (b mod i=0) then
begin
if ucln<i then ucln:=i;
end;
writeln(ucln);
readln;
end.
Bài 4:
uses crt;
var n,i,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 2=0 then t:=t+sqr(i);
writeln(t);
readln;
end.
10 tháng 4 2020
Nhập vào màn hình 1 dãy số nguyên. In ra dãy đảo ngược
Nhập vào một xâu. In ra xâu đảo ngược của xâu đó
ML
11 tháng 4 2020
Program hotrotinhoc;
var a: array[1..500] of integer;
i,n: integer;
t: longint;
function kt(x: integer): boolean;
begin
kt:=true;
if (x mod 3=0) or (x mod 5=0) then exit;
kt:=false;
end;
procedure input;
begin
write('Nhap so phan tu :'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); read(a[i]);
end;
end;
begin
input;
t:=0;
for i:=1 to n do
if kt(a[i]) then t:=t+a[i];
write('Tong cac so chia het cho 3 hoac 5 la :',t);
readln
end.
10 tháng 4 2020
uses crt;
var n,i,dem,dem1,dem2:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('a[',i,']='); readln(a[i]);
if abs(a[i])>=300 then writeln('vui long nhap lai');
until abs(a[i])<300;
end;
{-------------------------cau-1-----------------------}
dem:=0;
for i:=1 to n do
if a[i]<0 then inc(dem);
writeln('so luong so nguyen am la: ',dem);
dem1:=0;
for i:=1 to n do
if a[i]>0 then inc(dem1);
writeln('so luong so nguyen duong la: ',dem1);
{-------------------------cau-2-----------------------}
dem2:=0;
for i:=1 to n do
if a[i] mod 3=0 then inc(dem2);
writeln('so luong so nguyen chia het cho 3 la: ',dem2);
readln;
end.
ML
11 tháng 4 2020
Nghĩa là có 3 cặp chiều rộng và chiều dài đúng không bạn. Lần sau bạn ghi đề rõ hơn nhé.
Program hotrotinhoc;
const fi:='HCN.txt';
var a,b,c,d,e,f: integer;
dt1,dt2,dt3,cv1,cv2,cv3: longint;
f1: text;
procedure ip;
begin
assign(f1,fi);
reset(f1);
readln(f1,a,b);
dt1:=a;
dt1:=dt1*b;
cv1:=2*(a+b);
readln(f1,c,d);
dt2:=c;
dt2:=dt2*d;
cv2:=2*(c+d);
readln(f1,e,f);
dt3:=e;
dt3:=dt3*f;
cv3:=2*(e+f);
close(f);
end;
begin
ip;
writeln('Dien tich : ',dt1,' Chu vi :',cv1);
writeln('Dien tich : ',dt2,' Chu vi :',cv2);
writeln('Dien tich : ',dt3,' Chu vi :',cv3);
readln
end.
9 tháng 4 2020
có lỗi sai bạn ơi
if ktch(t1)? then t:=t+1;
bạn còn sai nhiều lỗi lắm sửa lại nhé
9 tháng 4 2020
bạn chạy thử đi
Mình làm trên free pascal chạy khá tốt đấy
begin
assign(fi,'bt1.txt');rewrite(fi);
write(fi,'tay ninh');
end.
const fi='bt1.txt';
var f1:text;
begin
assign(f1,fi); rewrite(f1);
writeln(f1,'Tay Ninh');
close(f1);
end.