( 1 +z) *(x +y/z)/(a-1/(1 +x*x *x))
Đúng 0
Bình luận (0)
Bài 8: Soạn thảo, dịch, thực hiện và hiệu chỉnh chương trình
Các câu hỏi tương tự
Giải và biện luận phương trình bậc 2 bằng phương pháp toán học. Hãy viết chương trình.
Nhập vào độ dài đường kính d. Hãy đưa ra chu vi và diện tích đường tròn qua đường kính d (lập trình Pascal)
Viết chương trình giải các bài toán sau:1. Nhập cạnh a của một hình vuông. Tính chu vi và diện tích hình vuông đó2. Một người đi xe đạp với tốc độ 10km/h và một người đi xe máy với tốc độ 30km/h cùng xuất phát từ một vị trí, tại cùng một thời điểm và đi cùng một hướng. Lập trình tính khoảng cách giữa 2 người sau t giờ (t là số nguyên dương, t15). Dữ liệu t nhập từ bàn phím. Kết quả đưa ra màn hình. ( SỬ DỤNG PHẦN MỀM PYTHON Ạ )
Đọc tiếp
Viết chương trình giải các bài toán sau:
1. Nhập cạnh a của một hình vuông. Tính chu vi và diện tích hình vuông đó
2. Một người đi xe đạp với tốc độ 10km/h và một người đi xe máy với tốc độ 30km/h cùng xuất phát từ một vị trí, tại cùng một thời điểm và đi cùng một hướng. Lập trình tính khoảng cách giữa 2 người sau t giờ (t là số nguyên dương, t<=15). Dữ liệu t nhập từ bàn phím. Kết quả đưa ra màn hình.
( SỬ DỤNG PHẦN MỀM PYTHON Ạ )
Bài 1: Viết chương trình nhập 1 số nguyên dương n có 3 chữ số.Hãy thông báo ra màn hình tổng các chữ số của nó. Bài 2: giống bài trên nhưng là 5 chữ số. Giúp mình với ạ, mình cần gấp :
Giúp em với ạ
Viết chương trình tính diện tích tam giác theo công thức sau: S = p(p a)(p b)(p c) với p = 1 2 (a+b+c) Dữ liệu vào: ba số nguyên a, b, c là ba cạnh tam giác 1 , , 1000 a b c Dữ liệu ra: Diện tích tam giác, làm tròn đến hai chữ số thập phân
Hello mọi người
Mình là người mới học pascal nên có chút không hiểu mong mọi người chỉ bảo.
Code:
Program Vi_du;
Uses Crt;
Var k:byte;
Begin
Clrscr;
WriteIn(Nhap so 0 de ket thuc: );
Repeat
Write(Nhap ma cua ki tu: );ReadIn(k);
WriteIn(Ki tu co ma , k, la , Chr(k) );
Until k0;
End
Khi mình chạy nó ra lỗi 3: Unknown identifier nhưng mình không biết làm cách nào để sửa. Mấy bạn giúp mình với. Thanks.
Đọc tiếp
Hello mọi người
Mình là người mới học pascal nên có chút không hiểu mong mọi người chỉ bảo.
Code:
Program Vi_du;
Uses Crt;
Var k:byte;
Begin
Clrscr;
WriteIn('Nhap so 0 de ket thuc: ');
Repeat
Write('Nhap ma cua ki tu: ');ReadIn(k);
WriteIn('Ki tu co ma ', k, 'la ' , Chr(k) );
Until k=0;
End
Khi mình chạy nó ra lỗi 3: Unknown identifier nhưng mình không biết làm cách nào để sửa. Mấy bạn giúp mình với. Thanks.
program bai3;
type KMarray [1..100]of LongInt ;
var a,b:KM;
i,N,t:Integer;
begin
write(nhap N );Readln(N);
t:0;
for i:1 to n do
begin
Write(nhap a [,i,]);
readln (a[i]);
if (a[i] mod 20) then [i]:sqr(b[i])
else b[i]:a[i];
end;
readln;
end.
a) Với N 6
A 5 6 3 4 5 8
B?
b)Với N 6
A 5 7 3 1 11 15
B ?
Đọc tiếp
program bai3;
type KM=array [1..100]of LongInt ;
var a,b:KM;
i,N,t:Integer;
begin
write('nhap N =');Readln(N);
t:=0;
for i:=1 to n do
begin
Write('nhap a [',i,']=');
readln (a[i]);
if (a[i] mod 2=0) then [i]:=sqr(b[i])
else b[i]:=a[i];
end;
readln;
end.
a) Với N= 6
A= 5 6 3 4 5 8
B=?
b)Với N = 6
A= 5 7 3 1 11 15
B= ?
Viết chương trình nhập vào 1 số nguyên n rồi đưa ra màn hình các kết quả
- Giá trị tuyệt đối của n
- bình phương của n
- số dư của bình phương n chia 3
nhờ các bạn chuyên tin giúp mink với:
viết chương trình nhập 3 số nguyên a, b , c từ bàn phím
a) đưa ra tổng a+b+c ra màn hình
b đưa ra màn hình số nhỏ nhất trong 3 số đó
c đếm xem trong 3 số đó có bao nhiêu số âm
giúp mink với mai mik kiểm tra rồi
gọi abcd là 1 số có 4 chữ số. hãy lập trình tìm tất cả các số có 4 chữ số thỏa mãn :
abcd= (ab+cd)^2