Chương trình con và mảng.

Bài 1: cho tệp D:\Dulieu.txt chứa các họ tên của nhiều học sinh. In ra màn hình các họ tên này sau khi chuyển chữ đầu lên hoa. Biết rằng mỗi họ tên viết trên một dòng.
Bài 2: Cho tệp D:\dl.txt chứa nhiều câu thơ. Đếm xem trong mỗi dòng có mấy kí tự "a". In mỗi giá trị trên một dòng.
Bài 3: cho tệp D:\Dulieu.txt chứa các số nguyên dương, mỗi số một dòng, in ra màn hình các số chẵn, viết cách nhau một dấu cách. Có mấy số thỏa mãn
Bài 4: cho tệp D:\Dulieu.txt chứa các số nguyên dương, mỗi số cách nhau một dấu cách tương ứng là cạnh hình vuông. Viết chương trình tính và in ra màn hình Chu vi, Diện tích của hình vuông. Mỗi cặp giá trị ghi trên một dòng, cách nhau một dấu "-"

Theo dõi Vi phạm

Tin học 11 Bài 17 Trắc nghiệm Tin học 11 Bài 17 Giải bài tập Tin học 11 Bài 17

Trả lời (14)

bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm

YOMEDIA

Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng

bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm
bài 1:

var f:text;

s:string;

begin

assgin(f,d:\dulieu.txt);rewet(f);

while not eof(f1) do

begin

readln(f,s);

upcase(s[1]);

writeln(s);

end;

end;

bài 2:

var f:text;

s:string;

d,i:integer;

begin

assign(f,d:\dl.txt);reset(f);

d:=0;

while not eof(f) do

begin

readln(f,s);

for i:=1 to s do

if s[i]='a' then inc(d);

end;

bởi thái Thoa 03/05/2018

Like (0) Báo cáo sai phạm