input : cho tệp xauin.doc chứa các kí tự cả số và chữ output: đưa kết quả ra tệp xauout.txt là số lượng của từng chữ cái có trong tệp , mỗi kết quả trên một hàng

ericaerica1312

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 24 xem

1 trả lời

Thích Trả lời

ctvloga134

program bai_giai;
uses crt;
var f,g:text;
s:string;
i,j:byte;
tg:char;
begin
Assign(f,'xauin.doc'); reset(f);
Assign(g,'xauout.txt'); rewrite(g);
readln(f,s);
for i:=1 to length(s)-1 do
for j:=i+1 to length(s) do
if s[i]>s[j] then
begin
tg:=s[i]; s[i]:=s[j]; s[j]:=tg;
end;
j:=1;
for i:=2 to length(s) do
if s[i]=s[i-1] then j:=j+1
else
begin
writeln(g,s[i-1],' : ',j);
j:=1;
end;
writeln(g,s[length(s)],' : ',j);
close(F); close(g);
end.

Vote (0) Phản hồi (0) 2 năm trước

quacthao2802

uses crt;
var f,f1:text; s:string; d,i:longint;
begin
clrscr;
assign(f,'xauin.doc');reset(f);
assign(f1,'xauout.txt');rewrite(f1);
while not(eof(f)) do
begin
readln(f,s); d:=0;
for i:=1 to length(s) do
if upcase(s[i]) in ['A'..'Z'] then inc(d);
writeln(f1,d);
end;
close(f1);
close(f);
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

lớp 3A có 40 bạn, cô giào chia lớp thành các nhóm học tập, mỗi nhóm có 3 nữ 2nam .hỏi cô giáo đã chia lớp thành bn nhóm

1. Hỗn hợp X gồm 3 este đơn chức, tạo thành từ cùng một ancol Y với 3 axit cacboxylic (phân tử chỉ có nhóm -COOH); trong đó, có hai axit no là đồng đẳng kế tiếp nhau và một axit không no (có đồng phân hình học,chứa một liên kết đôi C=C trong phân tử). Thủy phân hoàn toàn 5,88gam X bằng dung dịch NaOH, thu được hỗn hợp muối và m gam ancol Y. Cho m gam Y vào bình đựng Na dư, sau phản ứng thu được 896 ml khí (đktc)và khối lượng bình tăng 2,48gam. Mặt khác, nếu đốt cháy hoàn toàn 5,88gam X thì thu được CO2 và 3,96 gam H2O. Phần trăm khối lượng của este không no trong X là ?

The Europe or Europe. Và giải thích giúp mình :(

tính nhanh 125 × (-23)+23 ×225

Anh chị ơi cho em hỏi là từ 1 tế bào nguyên phân thành 2 tế bào mới nhưng tại sao cuối cùng tế bào vẫn bị chết hoặc cơ thể chúng ta lại vẫn có hiện tượng lão hóa và chết đi ạ.

mọi người làm giúp em nha em đang đang gấp

Giúp hết hộ mềnh =)) mềnh cảm ơn :))

một mảnh vườn hình chữ nhật có chiều rộng 23m , chiều dài gấp đôi chiều rộng . tính chu vi của mảnh vườn hình chữ nhật đó ?

Chỉ toy cách vẽ tóc đi, để tui full Vẽ 3 bộ tóc

Ai giải thích cho mình công thức P1=P2 và hợp nhau bằng góc alpha thì P=2P1.cos alpha/2 ( từ công thức p1 khác p2 và hợp nhau bằng góc alpha thì P²= P1²+P2²+ 2P1P2.cos alpha suy ra)

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến