Phần mềm học tập - Hỏi đáp

còn tùy thuộc vào điểm 15p, hk tin của bn nữa nha

a. Bảng chữ cái: Là tập các kí hiệu dùng để viết chương trình.

- Trong ngôn ngữ Pascal bảng chữ cái gồm: Các chữ cái trong bảng chữ cái tiếng Anh, các chữ số 0 -> 9 và một số kí tự đặc biệt (SGK)

b. Cú pháp: là bộ qui tắc dùng để viết chương trình.

c . Ngữ nghĩa: xác định ý nghĩa thao tác cần phải thực hiên , ứng với tổ hợp kí tự dựa vào ngữ cảnh của nó

-  Cú pháp cho biết cách viết một chương trình hợp lệ , còn ngữ nghĩa xác định ý nghĩa của các tổ hợp kí tự trong chương trình.

 -  Lỗi cú pháp được chương trình dịch phát hiện và thông báo cho người lập chương trình biết , chỉ có các chương trình không còn lỗi cú pháp mới có thể được dịch sang ngôn ngữ máy.

- Lỗi ngữ nghĩa chỉ được phát hiện khi thực hiện chương trình trên dữ liệu  cụ thể

Mỗi ngôn ngữ lập trình thường có ba thành phần cơ bản: bảng chữ cái, cú pháp và ngữ nghĩa

uses crt;

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

n,i,s:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

s:=0;

for i:=1 to n do

if a[i]>0 then s:=s+a[i];

write('tong cac so duong la:',s);

readln;

end.

uses crt;

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

n,i:integer;

begin

clrscr;

write('Nhap so hoc sinh:'); readln(n);

for i:=1 to n do

begin

write('Nhap diem mon Tin cua hoc sinh thu ',i,'='); readln(a[i]);

end;

for i:=1 to n do

writeln('Diem cua ban thu ',i,'=',a[i]:4:2);

readln;

end.

uses crt;

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

n,i,t,t1,max,min,t2:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('B[',i,']='); readln(b[i]);

end;

t:=0;

for i:=1 to n do

if b[i] mod 2=0 then t:=t+b[i];

writeln('Tong cac so chan trong day la: ',t);

t1:=0;

for i:=1 to n do

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

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

max:=b[1];

min:=b[1];

for i:=1 to n do

begin

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

if min>b[i] then min:=b[i];

end;

writeln('Phan tu lon nhat la: ',max);

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

t2:=0;

for i:=1 to n do

if b[i] mod 3=0 then t2:=t2+b[i];

writeln('Tong cac phan tu chia het cho 3 la: ',t2);

readln;

end.

Program HOC24;

var i,n: integer;

begin

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

for i:=1 to n do

if n mod i=0 then write(i,' ');

readln

end.

uses crt;
var i,n,s:longint;
a:array[1..1000000] of longint;
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
if a[i]>0 then s:=s+a[i];
write('Tong cac phan tu lon hon 0 la: ',s);
readln
end.

Var z:array[1..1000] of longint;

n, i,A:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('s',i,'=');

Readln(z[i]);

End;

For i:=1 to n do begin if z[i] mod 2 = 0 then begin A:= z[i];

End;

Writeln('Cac so chan la ',A);

End;

End.

Bạn kiểm tra lại nhé.

Var z:array[1..1000] of longint;

n, i, T:longint;

Begin

Readln(n);

For i:=1 to n do begin writeln('T',i,'=');

Readln(z[i]);

T:= T + z[i];

End;

Writeln('Tong la ',T);

End.

Bạn thử kiểm tra lại nhé!

Essential Anatomy là phần mềm giải phẫu người nổi tiếng, được tải về rất nhiều trên các nền tảng di động. Nó là sản phẩm chủ lực của 3D4Medical – nhà sản xuất ứng dụng giải phẫu lớn nhất thế giới. Essential Anatomy mang đến công nghệ 3D đột phá và thiết kế sáng tạo, giúp cho các mô hình giải phẫu có độ chi tiết cao, dễ dàng hình dung và nắm bắt hơn

Essential Anatomy đại diện cho một cách tiếp cận độc đáo để học tập giải phẫu tổng quát. Đồ họa thực sự là một điểm mạnh giúp cho việc học trở nên dễ dàng nhờ tiếp thu thông tin một cách sáng tạo, mang đến trải nghiệm phong phú và hấp dẫn.