Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài)

Được sửa bởi Admin ngày Wed Jun 15, 2022 10:38 pm; sửa lần 1.

Các em học sinh chăm chỉ code nhé! Cool

Tổng số bài gửi : 151 Join date : 03/06/2022

program test;
uses crt;
var a,b : Integer;
begin
write('nhap a,b =');
readln(a,b);
writeln('dien tich = ', a*b);
end.

Tổng số bài gửi : 121 Join date : 08/06/2022

program ngay1;
uses crt;
var a,b,c :integer;
begin
clrscr;
writeln('nhap so nguyen a,b');
readln(a,b);
writeln('dien tich hinh chu nhat:',a*b);
readln;
end.

Var c,a,b:longint;
Begin
readln(a,b);
c:=a+b;
write(c);
End.

Tổng số bài gửi : 113 Join date : 08/06/2022

var c,a,b:longint;
Begin
readln(a,b);
c:=a+b;
write(c);
End.

Tổng số bài gửi : 121 Join date : 08/06/2022

bai 2

Code:: program bai2;
uses crt;
var a,a1,a2:integer;
begin
clrscr;
writeln('nhap so a:');
readln(a);
a1:=a div 10;
a2:=a mod 10;
writeln('tong so nguyen duong:',a1+a2);
readln;
end.

Tổng số bài gửi : 151 Join date : 03/06/2022

bài 2

Code:: program bai2;
uses crt;
var
a ,a1,a2: Integer;
begin
write('nhap a =');readln(a);
a1:= a div 10;
a2:= a mod 10;
writeln('tong chu so bang = ',a1+a2);
end.

Tổng số bài gửi : 37 Join date : 25/05/2022

Code:: uses math;
const fi='ncount.inp';
fo='ncount.out';
var n,t:longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
while n<>0 do
begin
t:=t+n mod 10;
n:=n div 10;
end;
write(t);
close(input);
close(output);
end.

Tổng số bài gửi : 47 Join date : 08/06/2022

Code:: var n,t:int64;
f:text;
begin
assign(f,'ncount.inp');reset(f);
readln(f,n);
close(f);
assign(f,'ncount.out');rewrite(f);
while n>0 do
begin
t:=t+ n mod 10;
n:=n div 10;
end;
write(f,t);
close(f);
end.

Tổng số bài gửi : 37 Join date : 25/05/2022

Code:: const fi='dcount.inp';
fo='dcount.out';
var n,t,i,a:longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
for i:=1 to n do
begin a:=i;
while a<>0 do
begin
inc(t);
a:=a div 10;
end; end; write(t);
close(input);
close(output);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var c,a,b:longint;
begin;
readln(a,b,c);
c:=a*b*c;
write(c);
end.

Tổng số bài gửi : 37 Join date : 25/05/2022

Code:: const fi='xchange.inp';
fo='xchange.out';
var n,t:longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
t:=n div 50;
n:=n mod 50;
t:=t+n div 20;
n:=n mod 20;
t:=t+n div 10;
n:=n mod 10;
if n=0 then write(t) else write(-1);
close(input);
close(output);
end.

Tổng số bài gửi : 37 Join date : 25/05/2022

Code:: uses math;
const fi='xmax.inp';
fo='xmax.out';
var n,t,res:int64;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
while n<>0 do
begin
t:=n mod 10;
n:=n div 10;
res:=max(res,t);
end;
write(res);
close(input);
close(output);
end.

Tổng số bài gửi : 37 Join date : 25/05/2022

Code:: const fi='sdiv.inp';
fo='sdiv.out';
var n,i,k,t:longint;
a:array [0..10] of longint;
begin
assign(input,fi); reset(input);
assign(output,fo); rewrite(output);
readln(n);
for i:=1 to trunc(sqrt(n)) do
if n mod i= 0 then
begin
t:=t+i;
if i <> n div i then
t:=t+n div i;
end; write(t);
close(input);
close(output);
end.

Tổng số bài gửi : 151 Join date : 03/06/2022

bài 3

Code:: program bai3;
uses crt;
var
n,s,k: Longint;
function tongs(u : longint ): Longint;
var
s: Integer;
begin
s :=0;
while (u > 0) do
   begin
      s := s + (u mod 10) ;
      u := u div 10;
   end;
exit(s);
end;
begin
readln(n);
writeln(tongs(n));
end.

Var c,a,b:longint;
Begin;
readln(a,b,c);
C:=a*b*c;
write(c);
end.

Tổng số bài gửi : 121 Join date : 08/06/2022

bai 3

Code:: program NCOUNT;
var n:longint;
function tongcs(u:longint):longint;
var s:longint;
begin
s:=0;
while u>0 do
begin
s:=s+(u mod 10);
u:=u div 10;
end;
exit(s);
end;
begin
readln(n);
writeln(tongcs(n));
readln;

end.

Tổng số bài gửi : 47 Join date : 08/06/2022

Code:: var n,t,i,s:longint;
f:text;
begin
assign(f,'dcount.inp');reset(f);
read(f,n);
close(f);
assign(f,'dcount.out');rewrite(f);
for i:=1 to n do
begin
t:=i;
while t>0 do
begin
s:=s+1;
t:=t div 10;
end;
end;
write(f,s);
close(f);
end.

Tổng số bài gửi : 47 Join date : 08/06/2022

Code:: var n,t:longint;
f:text;
begin
assign(f,'xchange.inp');reset(f);
read(f,n);
close(f);
assign(f,'xchange.out');rewrite(f);
t:=n div 50;
n:=n mod 50;
t:=t+n div 20;
n:=n mod 20;
t:=t+n div 10;
n:=n mod 10;
if n=0 then write(f,t) else write(f,-1);
close(f);
end.

Var a,b,c,d,s:longint;
Begin;
readln(a,b,c,d);
s := (a + b)*(c + d);
write(s);
end.

Tổng số bài gửi : 113 Join date : 08/06/2022

var a,b,c,d,s:longint;
begin;
readln(a,b,c,d);
s:=(a + b)*(c + d);
write(s);
end.

Tổng số bài gửi : 151 Join date : 03/06/2022

dcount

Code:: program dcount;
var
d :Longint;
function socs(a : Longint ): Longint;
var
i : Longint;
s : Longint;
begin
s := 0;
for i := 1 to a do
begin
s:= s + 1;
end;
exit(a)
end;
begin
readln(d);
writeln(socs(d));
end.

Tổng số bài gửi : 47 Join date : 08/06/2022

Code:: var n,t,s:int64;
f:text;
begin
assign(f,'xmax.inp');reset(f);
read(f,n);
close(f);
assign(f,'xmax.out');rewrite(f);
while n>0 do
begin
t:=n mod 10;
if s<t then s:=t;
n:=n div 10;
end;
write(f,s);
close(f);
end.

Tổng số bài gửi : 47 Join date : 08/06/2022

Code:: var n,t,i:longint;
f:text;
begin
assign(input,'sdiv.inp');reset(input);
readln(n);
close(input);
assign(output,'sdiv.out');rewrite(output);
for i:=1 to trunc(sqrt(n)) do
if (n mod i = 0) then
if (n div i = i) then t:=t+i else t:=t+i+ n div i;
write(t);
close(output);
end.

Tổng số bài gửi : 47 Join date : 08/06/2022

Code:: var i,a,x:longint;
s:int64;
f:text;
begin
assign(f,'amux.inp');reset(f);
read(f,a,x);
close(f);
assign(f,'amux.out');rewrite(f);
s:=1;
for i:=1 to x do
begin
s:=s*a;
s:=s mod 1000000007;
end;
write(f,s);
close(f);
end.

» Buổi 3-4. Ngôn ngữ lập trình cơ bản (08 bài)
» Nguyễn Đức Trình
» Trịnh Xuân An
» Bt Tin- Trịnh Tố Uyên
» Trịnh Xuân An