C1: Một chương trình Pascal gồm 2 phần: phần khai báo và phần thân chương trinh

C2: Từ khóa trong Pascal: program, input, output, var, real, begin, readline, writeline và end

C3:  -Tên không bắt đầu bằng chữ số

        - Tên không có khoảng cách

        - Tên không được trùng với từ khóa

C4: ví dụ tính diện tích hình vuông:

Program HINH_VUONG;
   uses crt;
   Var canh: real;
Begin
    clrscr;
    Write('Nhap do dai canh:');readln(canh);
    Writeln('Chu vi hinh vuong la:',4*canh:10:2);
    Writeln('Dien tich hinh vuong la:',canh*canh:10:2);
    readln
end.

C5:              

     B1: Tải Pascal trên 1 link nhất định       

     B2: Mở thư mục chưa file tải về click đúp (hoặc click phải chuột chọn Install) để tiến hành cài đặt  

    B3:  Chọn Next để sang bước kế tiếp:

    B4: Click vào Browse để lựa chọn ổ đĩa cài đặt. Hoặc không bạn có thể để mặc định và tiếp tục chọn Next.

    B5: Click vào Install để bắt đầu cài đặt.

    B6: Chờ đợi quá trình cài đặt diễn ra trong một vài phút.

    B7: Click vào Finish để hoàn tất quá trình cài đặt.

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.

có mk hc dc pascal nè

có ai biết thì chỉ mik các bài tách ma trận con với

bạn ơi mình biết nè

Vẫn sử dụng được nhưng là những phím tắt khác so với Word,... bạn nhé.

Ví dụ: 

Nhấn nút [HOME] -> chuyển con nháy về đầu dòng

Nhấn nút [END] -> chuyển con nháy về đầu dòng

Nhấn tổ hợp Ctrl + Y -> xóa 1 hàng trên FreePascal

1 là bn sửa hình nền

2 là mk gọi admin hoặc giáo viên khác khoá nick bn

uses crt;

var a,b:int64;

begin

clrscr;

readln(a,b);

writeln(a+b);

readln;

end.

Program HOC24;
var s: string;
a: array[1..255] of string;
max,d,i: byte;
begin
write('Nhap xau: '); readln(s);
while s[1]=#32 do delete(s,1,1);
while s[length(s)]=#32 do delete(s,length(s),1);
while pos(#32#32,s)<>0 do delete(s,pos(#32#32,s),1);
s:=s+' '
while length(s)<>0 do
begin
d:=d+1;
a[d]:=copy(s,1,pos(#32,s));
delete(s,1,pos(#32,s));
end;
max:=length(a[1]);
for i:=2 to d do
if max<length(a[i]) then max:=length(a[i]);
for i:=1 to d do
if max = length(a[i]) then writeln(a[i]);
readln
end.

Program HOC24;
uses sysutils;

var s: string;
  words: TStringDynArray;
  max_length, i: integer;
  longest_words: array of string;

begin
  write('Nhap xau: ');
  readln(s);
  words := SplitString(s);
  max_length := 0;
  for i := Low(words) to High(words) do
    if Length(words[i]) > max_length then
      max_length := Length(words[i]);
  SetLength(longest_words, 0);
  for i := Low(words) to High(words) do
    if Length(words[i]) = max_length then
    begin
      SetLength(longest_words, Length(longest_words) + 1);
      longest_words[High(longest_words)] := words[i];
    end;
  writeln('Tu dai nhat trong xau là:');
  for i := Low(longest_words) to High(longest_words) do
    writeln(longest_words[i]);
end.

.

Dạng đề là viết chương trình ạ?