Phần mềm học tập

Tham khảo bé Ninh (Hoidap247) và nhiều nguồn khác...

Định dạng ký tự bao gồm các thao tác thay đổi hình dáng của  kí tự như nghiêng, đậm, gạch chân, cỡ chữ.

+ Để định dạng phông chữ:

B1: Chọn phần văn bản cần định dạng.

B2: Chọn trên thanh công cụ hoặc các tổ hợp phím (Ctrl+D).

+ Để định dạng cỡ chữ:

B1: Chọn phần văn bản cần định dạng.

B2: Chọn trên thanh công cụ cỡ chữ phù hợp cần định dạng.

+ Để định dạng kiểu chữ:

B1: Chọn phần văn bản cần định dạng.

B2: Chọn trên thanh công cụ hoặc các tổ hợp phím (Ctrl+U,Ctrl+B,...) để định dạng kiểu chữ.

Cách tạo chữ cái lớn đầu đoạn:

Bước 1: Đặt trỏ chuột tại đoạn văn bạn muốn tạo Drop Cap → vào tab Insert → Drop Cap

- Tùy chỉnh theo ý muốn: Insert → Drop Cap → Drop Cap Options…

Xuất hiện hộp thoại: tùy chỉnh các thông số như kiểu chữ (Font), số dòng Drop Cap sẽ chiếm (Lines to drop) , Distance from text là nơi chỉ đinh khoảng cách giữa chữ drop với phần còn lại.→ OK.

.

Ctrl+A: chọn toàn bộ văn bản

Ctrl+S: Lưu văn bản

Ctrl+O: Mở tệp

Ctrl+B: In đậm văn bản đã chọn

Ctrl+U: Gạch chân

Ctrl+I: In nghiêng

Ctrl+L: Căn trái đoạn văn bản

Ctrl+L: Căn trái đoạn văn bản

Ctrl+E: Căn giữa đoạn văn bản

Ctrl+X: Cắt nội dung văn bản

Ctrl+R: Căn phải đoạn văn bản

Ctrl+=: Tạo chỉ số dưới 

Ctrl+C: copy

uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
  clrscr;
  write('nhap m:');readln(m);
  for i:=1 to m do
  for j:=1 to m do
  begin
    write('a[',i,',',j,']=');readln(a[i,j]);
  end;
  clrscr;
  writeln('ma tran da nhap la:');
  for i:=1 to m do
  begin
    for j:=1 to m do
    write(a[i,j]:5);writeln;
  end;
  i:=1;j:=1;
  while i<=m do
  begin
    t:=t+a[i,j];
    inc(i);inc(j);
  end;
  writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
  readln;
end.

uses crt;

var a:array[1..100]of integer;

i,n,t1,t2,t3:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t1:=0;

for i:=1 to n do 

  if a[i]<0 then t1:=t1+a[i];

writeln('Tong cac so am la: ',t1);

t2:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t2:=t2+a[i];

writeln('Tong cac so chia het cho 2 la: ',t2);

t3:=0;

for i:=1 to n do 

  if (a[i]>0) and (a[i] mod 3=0) then t3:=t3+a[i];

writeln('Tong cac so duong chia het cho 3 la: ',t3);

readln;

end.

Đây là về cơ bản

Program Tin;

Uses crt;

Var i,n,dem:Integer;

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

Begin

clrscr;

Write('Nhap do dai cua day: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu cua day:');

For i:= 1 to n do 

Begin

Write('So thu ',i,': ');

readln(a[i]);

If a[i] mod 2 = 1 then dem:=dem+1;

End;

Writeln('Day co ',dem,' so le');

readln;

End.

Program Tin_hoc;

Uses crt; 

Var i,n,dem:integer;

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

Begin

clrscr;

Write('Nhap 1 so nguyen duong n: ');readln(n);

dem:=0;

Writeln('Nhap ',n,' phan tu:');

For i:= 1 to n do 

Begin

Write('A[',i,'] = ');

readln(a[i]);

If a[i] mod 2 = 0 then inc(dem);

End;

Writeln('Day vua nhap la:');

For i:= 1 to n do write(a[i],'  ');writeln;

Writeln('Day so vua nhap co ',dem,' so chan');

readln;

End.

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

 write(a[i]:4);

writeln;

dem:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then inc(dem);

writeln('So so chan la: ',dem);

readln;

end.

program hoc24;

n: string[20];

k,i,t,d,d1: byte;

code: integer;

begin

write('Nhap so K: '); readln(k);

write('Nhap so nguyen N: '); readln(n);

d:=0; d1:=0;

 for i:=1 to k do

begin

val(n[i],t,code);

if t mod 2=0 then d:=d+1 else d1:=d1+1;

end;

writeln('Co ',d,' chu so chan');

write('Co ',d1,' chu so le');

readln

end.

đây là pascal ạ

uses crt;

var a:array[1..1000]of integer;

i,n,j,tam,t,t1,tam,dem,max:integer;

begin

clrscr;

n:=0;

t:=0;

repeat

inc(n);

write('A[',n,']='); readln(a[n]);

t:=t+a[n];

until t>100;

for i:=1 to n-1 do 

  for j:=i+1 to n do 

if a[i]>a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

writeln('Day so theo chieu tang dan la: ');

for i:=1 to n do 

 write(a[i]:4);

writeln;

t1:=0;

dem:=0;

for i:=1 to n do 

if a[i] mod 3=0 then

begin

t1:=t1+a[i];

inc(dem);

end;

max:=a[1];

for i:=1 to n do 

  if max<a[i] then max:=a[i];

writeln('Tong cac so la boi cua 3 la: ',t1);

writeln('So lon nhat cua day la: ',max);

writeln('So luong so la boi cua 3 la: ',dem);

readln;

end.