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 "-"
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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (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/2018Like (0) Báo cáo sai phạm
Video HD đặt và trả lời câu hỏi - Tích lũy điểm thưởng
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
A. Nhất định phải có phần khai báo.
B. Không cần có phần khai báo.
C. Chỉ khai báo khi dùng hàm toán học.
D. Chỉ khai báo khi chương trình có sử dụng đến thư viện chương trình con nào đó.
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. PI:=3.14
B. PI:3.14
C. PI=3.14
D. PI 3.14
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt, kết thúc bằng dấu “;”.
B. Python quy định các câu lệnh nên được viết trên một dòng.
C. Python quy định các câu lệnh nên được viết trên một dòng, kết thúc bằng dấu “;”
D. Python quy định mỗi câu lệnh nên được viết trên một dòng riêng biệt.
20/11/2022 | 1 Trả lời
-
A. Tất cả các biến dùng trong chương trình đều phải đặt tên cho chương trình dịch biết để lưu trữ và xử lí.
B. Tất cả các biến dùng trong chương trình không cần phải đặt tên.
C. Python có quy định chặt chẽ phải có phần khai báo và phần thân chương trình như Pascal.
D. Python yêu cầu sử dụng dấu “;” khi kết thúc câu lệnh.
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
21/11/2022 | 1 Trả lời
-
A. x=5
B. x =0.2
C. x:5
D. x==5
21/11/2022 | 1 Trả lời
-
20/11/2022 | 1 Trả lời
-
a=10
print(a)
Biến a thuộc dữ liệu kiểu dữ liệu nào?
21/11/2022 | 1 Trả lời
-
b=3.5
print(b)
20/11/2022 | 1 Trả lời
-
kt=False
print(kt)
20/11/2022 | 1 Trả lời