Chương trình con và lập trình có cấu trúc

var a,b:text;
s:integer;

begin
assign(a,'number.txt');
assign(b,'KQ.txt');
reset(a);
rewrite(b);
while not eof(a) do
begin
read(a,s);
if s mod 3 =0 then
writeln(b,'s=',s,s:3);
end;
close(a);
close(b);
readln
end.

function NT(n: integer): boolean;
var i: integer;
begin
NT:=true;
for i:=2 to n-1 do
if n mod i = 0 then NT:=false;
end;
var i: integer;
begin
write('Cac so sieu nguyen to cap do 2: ');
for i:=100 to 10000 do
if (NT(i) and NT(i div 10) and NT(i div 100)) then write(i:6);
readln
end.

uses crt;
const finp='nhap.txt';
fout='xuat.txt';
type mang=array[1..10000] of longint;
var f:text;
n:longint;
a:mang;

{-----------------------------------------------------}
procedure doc;
var i:longint;
begin
assign(f,finp);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;

{-----------------------------------------------------------------}
procedure ghi;
begin
assign(f,fout);
rewrite(f);
end;

{--------------------------------------------------------------}
function scp(x:longint):boolean;
begin
if sqr(round(sqrt(x)))=x then scp:=true
else scp:=false;
end;

{-------------------------------------------------------------}
procedure xuly;
var i,k:longint;
b:mang;
begin
for i:=1 to n do write(f,a[i],' ');
writeln(f);
k:=0;
for i:=1 to n do
if i mod 2<>0 then
begin
inc(k);
b[k]:=a[i]+a[i+1];
end;
for i:=1 to k do write(f,b[i],' ');
writeln(f);
for i:=1 to k do
if (b[i]>0) and (scp(b[i])) then write(f,b[i],' ');
end;

{--------------------------------------------------------}
begin
doc;
ghi;
xuly;
close(f);
end.

\(\dfrac{14}{7}hay\dfrac{17}{7}?\)

k thấy rõ bạn ơi

Program Doi_Sang_Chu_Hoa;
Var S , SH: String; i : Byte;
Begin
Write('Nhap vao mot chuoi chu thuong : '); Readln(S);
SH := ''; {tạo xâu rỗng SH}
For i := 1 to Length(S) do SH[i] := UpCase(S[i];
Write('Chuoi da doi sang chu hoa: ',SH);
Readln;
End.

bạn dùng hàm UpCase(kí tự) để đổi từ chữ thường sang chữ hoa

Program Chuoi_In_Hoa;
Uses Crt;
Var i:integer;st:string;

Begin
Clrscr;
Writeln(‘DOI CHUOI SANG CHUOI HOA’);
Write(‘Nhap ho ten:’);readln(st); st[1]:=upcase(st[1]);
For i:=1 to length(St) do
If st[i]=’ ‘ then st[i+1]:=upcase(st[i+1]); Writeln(‘Ho ten sau khi doi lan 1 la: ‘,st);
For i:=1 to length(St) do st[i]:=upcase(st[i]);
Writeln(‘Ho ten sau khi doi lan 2 la: ‘,st);

Readln;

End.

program helo;

ues crt;

var s:string;i:longint

begin

clrscr;

write('s:=');readln(s);

for i:=1 to length(s) do s[i]:=upcase(s[i]);

writeln('s sau khi duoc doi sang chu hoa la');

readln;

end.