Vì sao chương trình sau dịch thành công nhưng khi chạy lại bị lỗi:
var i,tong byte;
begin
while i<25 do
begin
tong=tong+i
end.
Trường Nhật Tân đang tổ chức một ngày hội thể thao chạy đua 2019-2020. Có 6 thành viên đang tranh nhau huy chương vàng, bạc, đồng. Đó là thành viên Đào, Trâm, Linh, Hoa, Hương, Thị. Đào chạy nhanh với vận tốc 39km/giờ, nhanh hơn bạn Hương. Linh chạy nhanh trong 1 giờ 48 phút, sau bạn Thị một tí. Hoa chạy nhanh với thời gian 7 phút 5 giây, trước bạn Linh nhưng sau bạn Thị. Trâm chạy nhanh với vận tốc 27km/giờ. Hỏi bạn nào nhận huy chương vàng, bạn nào nhận huy chương bạc, bạn nào nhận huy chương đồng và bạn nào còn lại bị loại? Vì sao?
thi huy truong vang la thi
huy truong bac la hoa
huy truong dong la dao ; tram ;.
vay linh bi loai
anh đi anh nhớ quê nha
nhớ canh rau muống nhớ cà dầm tương
nhớ thằng đẩy bố xuống mương
bố mà bắt được bố tương vỡ mồm
Bạn ơi, trả lời câu hỏi này đi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Bài 1: Cho chương trình sau: Hãy nêu ý nghĩa từng câu lệnh trong chương trình và cho biết kết quả sau khi chạy chương trình này là gì? Hãy đặt đề bài cho bài toán này.
Program ga_cho;
Uses crt;
Var g,c: byte;
Begin
Clrscr;
For g:=1 to 36 do
For c:= 1 to 36-g do
If (g+c= 36 ) and (2*g+4*c=100) then writeln( ‘ so ga la: ‘, g,’ so cho la’,c);
Readln;
End.
Bài 2: Hãy viết chương trình tính tổng các số nguyên tố trong khoảng từ 1 đến 50
a, Xác định bài toán
b, Mô tả thuật toán
c, Viết chương trình
Giúp mik vs mik cần bài gấp trc tối nay
Bài 2:
a: Input: 50 số từ 1 đến 50
Output: Tổng các số nguyên tố
c: Viết chương trình:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=2 to 50 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
sau khi thực hiện đoạn chương trình :
Pascal ?
Tong=0
For i =1 to 5 do ,tong =tong+i ;
writeln(' gia tri tong la tong= ,tong);
Sau khi thực hiện đoạn chương trình trên kết quả là( trình bày các bước làm)
giúp tớ với
tong=15
các bước làm:
lần lặp thứ 1: tong = 0 + 1 = 1
lần lặp thứ 2 : tong = 1 + 2 = 3
lần lặp thứ 3 : tong = 3 + 3 = 6
lần lặp thứ 4 : tong = 6 + 4 = 10
lần lặp thứ 5 : tong = 10 + 5 = 15
Moi người cho mình hỏi tại sao mình dùng Free Pascal khi chạy chương trình (Ctrl + F9) lại bị out ra ngoài ạ
Tại sao mình ấn ctrl f9 để chạy chương trình thì lại bị mất hết chương trình trong free pascal
Có lẽ là do bạn chưa lưu bài
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K: WORD;
A. 44;
B. 36;
C. 38;
D. 42.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I, J: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K:WORD;
A. 44
B. 36
C. 38
D. 42
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B, C: REAL;
X: EXTENDED;
K:WORD;
A. 44;
B. 36;
C. 38;
D. 42.
II/ TỰ LUẬN:
1/ Nêu ý nghĩa các từ khóa sau và các quy tắc đặt tên trong chương trình?
2/ Để chương trình dịch sửa lỗi và chạy chương trình thì ta làm như thế nào?
3/ Hãy chỉ ra các tên không hợp lệ trong Pascal và giải thích vì sao?
a/ Bai toan
b/ Giai-toán
c/ 8A
d/ hoc_sinh
e/ Bang_diem@