Chương trình con và lập trình có cấu trúc - Hỏi đáp

const fi='data.inp';
fo='result.txt';
var f1,f2:text;
a:array[0..100]of integer;
dem,i,t:integer;
tbc:real;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1) do
begin
inc(dem);
readln(f1,a[dem]);
end;
{---------------------------------xu-ly--------------------------------}
t:=0;
for i:=1 to dem do
t:=t+a[i];
tbc:=t/dem;
writeln(f2,tbc:4:2);
close(f1);
close(f2);
end.

uses crt;
var n,m,i,ln:integer;
a:array[1..2]of integer;
begin
clrscr;
write('n='); readln(n);
write('m='); readln(m);
if n<>m then
begin
a[1]:=n;
a[2]:=m;
ln:=0;
for i:=1 to 2 do
if ln<a[i] then ln:=a[i];
writeln('so lon nhat trong 2 so la: ',ln);
end
else writeln('vui long nhap lai');
readln;
end.

uses crt;
var i,a,b,c,ucln,bcnn,bcnn1,n:longint;
k:array[1..3]of integer;
{--------------------chuong-trinh-con-tim-ucln----------------------}
function uc(x,y:integer):integer;
begin
while x<>y do
begin
if x>y then x:=x-y
else y:=y-x;
end;
uc:=x;
end;
{-------------------chuong-trinh-chinh----------------------------}
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
write('c='); readln(c);
n:=3;
k[1]:=a;
k[2]:=b;
k[3]:=c;
ucln:=uc(k[1],k[2]);
bcnn:=(k[1]*k[2]) div ucln;
for i:=3 to n do
begin
ucln:=uc(bcnn,k[i]);
bcnn:=(bcnn*k[i]) div ucln;
end;
writeln(bcnn);
readln;
end.

#include <iostream>
#include <fstream>

using namespace std;

long int x[4],n,a[5001],kt[5001],ktvt[5001],MAXtong,dem=0;

int TRY(int i)
{
for(int j=x[i-1]+1;j<=n;j++)
if(kt[a[j]]==0)
{
x[i]=j;
kt[a[j]]=1;
if(i==3)
{

if(a[x[3]]==(float)(a[x[2]]+a[x[1]])/2||a[x[2]]==(float)(a[x[3]]+a[x[1]])/2||a[x[1]]==(float)(a[x[2]]+a[x[3]])/2)
{
dem++;
if(a[x[1]]+a[x[2]]+a[x[3]]>MAXtong)
{
MAXtong=a[x[1]]+a[x[2]]+a[x[3]];
}
}

}
else
TRY(i+1);
kt[a[j]]=0;
}
}
int main()
{
ifstream f("boba.inp");
f>>n;
for(int i=1;i<=n;i++)
{
f>>a[i];
}
x[0]=0;
MAXtong=-1000000000;
fill_n(kt,1001,0);
TRY(1);
cout<<dem<<endl;
if(dem>0)
{
cout<<MAXtong;
}
return 0;
}

Mình mới đạt tới trình độ quy hoạch động nên bạn thông cảm

Xin lỗi bạn, mình không hỗ trợ C. mình chỉ biết pascal thôi

const fi='tamhop.inp';
fo='tamhop.out';
var f1,f2:text;
a:array[1..100]of integer;
n,i,j,k,dem,max,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
{--------------------------------xu-ly--------------------------------}
dem:=0; max:=0;
for i:=1 to n-2 do
begin
for j:=i+1 to n-1 do
begin
for k:=j+1 to n do
begin
if (a[i]=(a[j]+a[k])/2) or (a[j]=(a[i]+a[k])/2) or (a[k]=(a[i]+a[j])/2) then
begin
inc(dem);
t:=a[i]+a[j]+a[k];
if max<=t then max:=t;
end;
end;
end;
end;
writeln(f2,dem);
writeln(f2,max);
close(f1);
close(f2);
end.

nó có lẽ như thế này

XOR trong pascal là một phép toán logic

''một trong các số từ A1 đến Ai-1''

uses crt;
var n,a,b,q:integer;
begin
clrscr;
write('n='); readln(n);
for a:=1 to n do
for b:=a to n do
if trunc(sqrt(sqr(a)+sqr(b)))=sqrt(sqr(a)+sqr(b)) then writeln(a,' ',b);
readln;
end.

program hotrotinhoc;

var vt,i,n,min: integer;

a: array[1..32000] of integer;

begin

write('n='); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

min:=32000;

for i:=1 to n do

if a[i] < min then

begin

min:=a[i];

vt:=i;

end;

writeln('Phan tu nho nhat :',min);

write('Vi tri : ',vt);

readln

end.

program hotrotinhoc;

var n,i: integer;

s,st: string;

t: longint;

begin

readln(n);

for i:=1 to n do

begin

str(i,s);

st:=st+s+'+';

t:=t+i;

if t>=n then break;

end;

for i:=1 to length(st)-1 do write(st[i]);

readln

end.

uses crt;
var a,b,c,d:array[1..100]of integer;
n,i,dem,dem1,dem2:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{------------------------------xu-ly------------------------------}
dem:=0;
dem1:=0;
dem2:=0;
for i:=1 to n do
if a[i]<0 then
begin
inc(dem);
b[dem]:=a[i];
end
else if a[i]=0 then
begin
inc(dem1);
c[dem1]:=a[i];
end
else begin
inc(dem2);
d[dem2]:=a[i];
end;
for i:=1 to dem do
write(b[i]:4);
for i:=1 to dem1 do
write(c[i]:4);
for i:=1 to dem2 do
write(d[i]:4);
readln;
end.

uses crt;
var n,i:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chinh phuong nho hon hoac bang ',n,' la: ');
for i:=0 to n do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
readln;
end.

uses crt;

var n,i,kt,j,t:integer;

begin

clrscr;

write('n='); readln(n);

t:=0;

writeln('cac so nguyen to nho hon hoac bang ',n,' la: ');

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then begin

write(i:4);

t:=t+i;

end;

end;

writeln;

writeln('tong cac so nguyen to nho hon hoac bang ',n,' la: ',t);

readln;

end.

program tinhp;

uses crt;

var x,n,i: integer;

s: real;

begin

clrscr;

write('Nhap n:'); readln(n);

write('Nhap x:'); readln(x);

s:=sqrt(x);

for i:=1 to n do

s:= sqrt (x+s);

writeln('tong s=',s:6:2);

readln;

end.

Bạn tham khảo : Câu hỏi của Nguyen Hong Nhung - Tin học lớp 8 | Học trực tuyến

uses crt;
var n:integer;
{-----------------------------------------------------}
procedure nhap(var x:integer);
var a:array[1..100]of integer;
i:integer;
begin
write('nhap chieu dai cua day='); readln(x);
for i:=1 to x do
begin
write('a[',i,']='); readln(a[i]);
end;
end;
{-----------------------thu-tuc-tinh-tong-----------------}
procedure tong(var m:integer);
var b:array[1..100]of integer;
j,t:integer;
begin
t:=0;
for j:=1 to m do
t:=t+b[j];
writeln('tong la: ',t);
end;
{------------------------chuong-trinh-chinh---------------------}
begin
clrscr;
nhap(n);
tong(n);
readln;
end.