K
Khách

Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.

25 tháng 7 2023

Tham khảo!

- Một số ngành nghề thuộc lĩnh vực Tin học: phát triển phần mềm; bảo trì, sửa chữa máy tính; quản trị mạng, hệ thống máy tính, ...

- Một số ngành nghề liên quan đến ứng dụng tin học: kinh doanh trực tuyến, SEO, taxi công nghệ, ...

uses crt;

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

i,n: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 

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

readln;

end. 

27 tháng 4 2022
26 tháng 4 2023

 

program sodiemcaonhat; var i,max,n:integer; a:array [1..10000] of integer; begin write('nhap so phan muon nhap='); read(n); for i:=1 to n do begin write('diem thu',i,'='); read(a[i]); end; max:=a[1]; for i:=1 to n do begin if max < a[i] then max:=a[i]; end; write('so diem cao nhat la=',max); readln end.

 

26 tháng 4 2023

program sodiemcaonhat;
var i,max,n:integer;
a:array [1..10000] of integer;
begin
write('nhap so phan muon nhap='); read(n);
for i:=1 to n do begin
write('diem thu',i,'='); read(a[i]);
end;
max:=a[1];
for i:=1 to n do begin
if max < a[i] then max:=a[i];
end;
write('so diem cao nhat la=',max);
readln
end.

25 tháng 4 2023

program DiemKiemTra;
var
  i, max: integer;
  diem: array[1..30] of integer; 

begin
  for i := 1 to 30 do
  begin
    writeln('Nhap diem cua hs thu ', i, ': ');
    readln(diem[i]);
  end;
  max := diem[1];
  for i := 2 to 30 do
  begin
    if diem[i] > max then
      max := diem[i];
  end;
  writeln('Diem cao nhat la: ', max);
end.

21 tháng 10 2016

Chưa chắc giống nhau nhưng tham khảo :

Câu 1 : Viết các phép tính sau trong pascal :

a) \(\frac{\sqrt{p\left(p-a\right)\left(p-b\right)^2}}{p-c}\)

b) \(a^2+b^2-5ab-\frac{43}{3}\)

c) \(\sqrt{2}+\frac{\sqrt{s+p+c}}{\sqrt{2}}\)

Câu 2 :

Viết chương trình tính diện tích và chu vi hình chữ nhật biết chiều dài và chiều rộng nhập từ bàn phím.

Câu 3 :

Viết chương trình tính diện tích hình tròn biết bán kính được nhập từ bàn phím.

 

7 tháng 10 2016

Mik thực hành thôi bạn

3 tháng 8 2023

- Y tế ( bác sĩ, dược sĩ, y tá, điều dưỡng,....)

     + Hệ thống quản lý thông tin bệnh viện.

     + Bộ phận hình ảnh y khoa và chẩn đoán hỗ trợ bằng máy tính.

     + Dữ liệu y tế điện tử và quản lý bệnh nhân.

- Tài chính và ngân hàng:

     + Giao dịch tài chính trực tuyến và thanh toán điện tử.

     + Quản lý tài chính cá nhân và doanh nghiệp.

     + Phân tích tài chính và dự báo thị trường

- Giáo dục:

     + Học trực tuyến và e-learning.

     + Phần mềm quản lý giáo dục và học sinh.

     + Công cụ hỗ trợ giảng dạy và đánh giá hiệu quả học tập.

- Kiến trúc và xây dựng:

     + Mô phỏng và thiết kế 3D.

     + Quản lý dự án xây dựng và lịch trình công việc.

     + Xây dựng thông minh và tự động hóa công trình.

3 tháng 5 2021

Uses crt;

Var i,n:integer;

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

Begin

clrscr;

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

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

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

readln;

End.

2 tháng 8 2023

Tham khảo:
- Theo em, bạn An có cần nhập từng số thứ tự của danh sách.
- Với danh sách có hàng trăm mục thì chỉ cần gạch đầu dòng và sắp xếp các danh mục theo thứ tự