Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài

Những câu hỏi liên quan
Nam Thành
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:16

sqrt(x*y)+sqr(x-1)

Thanh Thanh
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 12 2020 lúc 0:02

b) 

uses crt;

var i,y:integer;

begin

clrscr;

y:=0;

for i:=1 to 100 do 

  y:=y+i;

writeln('y=',y);

readln;

end.

c) 

uses crt;

var y,i:integer;

begin

clrscr;

y:=0;

i:=1;

while y<=3200 do 

  begin

y:=y+i;

inc(i);

end;

writeln('y=',y);

readln;

end.

Lâm Nhật Duy
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:54

câu 1:
 

program AlgorithmExample;

var
  T, n: integer;

begin
  // Bước 1
  T := 8;
  n := 1;

  // Bước 2
  while T < 99 do
  begin
    // Bước 3
    n := n + 3;
    T := T * n;
  end;

  // Bước 4
  writeln('Gia tri cua T: ', T);
  writeln('Gia tri cua n: ', n);

  readln;
end.
câu 2:
 

program StudentAverage;

var
  n, countAboveAverage: integer;
  sum, average, score: real;

begin
  // Nhập số lượng học sinh
  write('Nhap so luong hoc sinh (1-70): ');
  readln(n);

  // Kiểm tra điều kiện
  if (n < 1) or (n > 70) then
  begin
    writeln('So luong hoc sinh khong hop le.');
    readln;
    halt;
  end;

  // Khởi tạo biến
  countAboveAverage := 0;
  sum := 0;

  // Nhập và tính điểm trung bình
  for var i := 1 to n do
  begin
    write('Nhap diem cua hoc sinh ', i, ': ');
    readln(score);
    sum := sum + score;

    // Kiểm tra điều kiện điểm trung bình
    if score >= 5.0 then
      countAboveAverage := countAboveAverage + 1;
  end;

  // Tính điểm trung bình
  average := sum / n;

  // In ra kết quả
  writeln('So luong hoc sinh dat diem trung binh tro len: ', countAboveAverage);
  writeln('Ti le hoc sinh dat diem trung binh tro len: ', countAboveAverage / n * 100:0:2, '%');

  readln;
end.
Lưu ý rằng trong chương trình của câu 2, điểm trung bình được tính và sau đó kiểm tra xem học sinh có đạt điểm
trung bình trở lên hay không.

 

 
Lan Anh Vũ Hoàng
Xem chi tiết
Lan Anh Vũ Hoàng
16 tháng 11 2021 lúc 10:07

chỉ tui với 

 

Nguyễn Hoàng Minh
16 tháng 11 2021 lúc 11:38

a. 5*x*x-6*x+1

b. (2*x*y+1)*(2*x*y-1)

c. (x-1)/(x+1)

d. a/(a+1)+((a-1)*(a-1))/(a+2)

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
27 tháng 10 2017 lúc 16:19

Trong ngôn ngữ lập trình (NNLT) Pascal chỉ sử dụng dấu ngoặc đơn () để viết các biểu thức số học. Các phép toán +, -, x, : trong toán học sẽ được chuyển dổi thành +, -, *, / trong NNLT Pascal.

   Đáp án: C

Nguyễn Cảnh Hùng
Xem chi tiết
Đỗ Ngọc Trinh
8 tháng 9 2018 lúc 11:42

Trong ngôn ngữ lập trình (NNLT) Pascal:

   + chỉ sử dụng dấu ngoặc đơn () để viết các biểu thức số học.

   + Các phép toán +, -, x, :, trong toán học sẽ được chuyển đổi thành +, -, *, /, trong NNLT Pascal.

   +Các phép so sánh ≥, ≤, ≠, >, < , trong toán học sẽ được chuyển đổi thành >=, <=, <>, >, <, trong NNLT Pascal.

   Đáp án: D

Trần Linh Chi
Xem chi tiết
Kiều Vũ Linh
14 tháng 3 2023 lúc 9:27

Var a,b,s,p:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

p:=(a + b)*2;

s:=a*b;

Write('P = ',p:10:2,' va s = ',s:10:2);

Readln;

End.

Hoàng Thị Mỹ Phan
Xem chi tiết
Thap Nguyen
Xem chi tiết
Trần Đức Hải Phong
25 tháng 12 2023 lúc 16:51

program CompareNumbers;

var
  x, y: real;

begin
  // Bước 1: Nhập 2 số thực x và y từ bàn phím
  write('Nhap so thuc x: ');
  readln(x);

  write('Nhap so thuc y: ');
  readln(y);

  // Bước 2: So sánh x và y, in ra số lớn hơn
  if x > y then
    writeln('x lon hon y')
  else if x < y then
    writeln('y lon hon x')
  else
    writeln('x bang y');

  readln;
end.


(khoog bt đúng ko)