Bài 1 : Viết chương trình thực hiện công việc sau :
- Tạo ra một tập tin có tên Baitap.txt được lưu tại ổ đĩa C:\
Bài 2 : Viết chương trình thực hiện công việc sau :
- Tạo ra một tập tin có tên CaDao.txt được lưu tại ổ đĩa C:\
- Tập tin CaDao.txt phải có 4 câu sau:
Cong cha nhu nui thai son.
Nghia me nhu nuoc trong nguon chay ra.
Mot long tho me kinh cha
Cho tron chu hieu moi la dao con
Bai 3: Viết chương trình thực hiện công việc sau :
Tạo ra một tập tin có tên và đường dẫn bất kì do người dùng nhập vào từ bàn phím.
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 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.
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
uses crt;
var a:array[1..50]of integer;
i,n:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
readln;
end.
#include <bits/stdc++.h>
using namespace std;
long long i,a[100],n;
int main()
{
freopen("songuyen.txt","r",stdin);
n=20;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
uses crt;
var thu:integer;
begin
clrscr;
repeat
write('Nhap thu:'); readln(thu);
until (2<=thu) and (thu<=8);
case thu of
2: writeln('Monday');
3: writeln('Tuesday');
4: writeln('Wednesday');
5: writeln('Thursday');
6: writeln('Friday');
7: writeln('Saturday');
8: writeln('Sunday');
end;
readln;
end.
Bài 3:
Program HOC24;
const fi='Nhapvao.txt';
var f: text;
begin
assign(f,fi);
reset(f);
close(f);
end.
Bài 2:
Program HOC24;
const fo='CaDao.txt';
var f: text;
begin
assign(f,fo);
rewrite(f);
writeln(f,'Cong cha nhu nui thai son');
writeln(f,'Nghia me nhu nuoc trong nguon chay ra.');
writeln(f,'Mot long tho me kinh cha');
write(f,'Cho tron chu hieu moi la dao con');
close(f);
end.