Viết chương trình tính giá trị của đa thức x^2+x-1 với x là số nguyên được nhập vào bàn phím 31/07/2021 Bởi Hailey Viết chương trình tính giá trị của đa thức x^2+x-1 với x là số nguyên được nhập vào bàn phím
uses crt; var x, gt: integer; begin clrscr; write(‘Nhap x = ‘); readln(x); gt:=x*x+1-1; write(‘Gia tri cua da thuc x^2+x-1 la: ‘, gt); readln end. Bình luận
Ngôn ngữ chọn VBA Sub Tinh_X Dim X as integer x= input(” Nhap x:”) kq=x^2+x-1 Msgbox (“ket qua la”) & x End sub Bình luận
uses crt;
var x, gt: integer;
begin
clrscr;
write(‘Nhap x = ‘); readln(x);
gt:=x*x+1-1;
write(‘Gia tri cua da thuc x^2+x-1 la: ‘, gt);
readln
end.
Ngôn ngữ chọn VBA
Sub Tinh_X
Dim X as integer
x= input(” Nhap x:”)
kq=x^2+x-1
Msgbox (“ket qua la”) & x
End sub