Viết chương trình (bằng Free Pascal) sao cho khi chạy chương trình sẽ xuất hiện hình dưới đây:
Tớ đang cần để thứ 5 nộp òi ^^ các cậu giúp tớ nhea ^~
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
Dựa vào chương trình ở hoạt động khởi động, tạo chương trình vẽ một hình trong các hình dưới đây. giúp tớ vớiiii
cảm ơn nhìu lắm lunnn!!!!
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
các cậu ơi , trong số các cậu ai đang học lớp 6 zợ , giúp tớ bài 4 trang 47,48 vở bài tập tiếng anh 6 chương trình cũ nhé các cậu , sách có hình nên tớ ko đăng được , cảm ơn trước nhé!hihi
Cái vở đi kèm với sgk hay là vở Mai Lan Hương
Bài tập: Minh trao đổi với Hoa như sau: Hoa cho tớ biết một dãy gồm 10 số nguyên bất kì mà bạn nghĩ ra, sau đó tớ sẽ tính tổng các số nguyên là số chẵn rồi thông báo kết quả tổng đó ra màn hình. Em hãy giúp hai bạn viết chương trình Pascal hoàn thiện thực hiện:
- Khai báo mảng 1 chiều gồm 10 phần tử chứa các số nguyên.
- Nhập giá trị bất kì cho 10 phần tử đó.
- Kiểm tra xem những phần tử nào thỏa mãn là số chẵn thì tính tổng.
- Thông báo tổng đó ra màn hình.
Cảm ơn ạ
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(t);
readln;
end.
bài tập : làm quen với chương trình free pascal
1,
a, nêu cấu trúc của chương trình
b, so sánh từ khóa và tên
2, nhận biết tên viết đúng
A . học_bài
B . hoc_bai
C . học_123
D . 123.hoc
E . Writeln
3.a,viết chương trình pascal để in ra màn hình dòng chữ : " chao_cac_ban _Day_la_lop_8a"
b, dịch và chạy chương trình trên
các bn làm nhanh nha mai mik nộp rùi bn nào nhanh nhất và đúng mik tick (^_^)
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 ạ
Viết chương trình nhập vào máy tính số tự nhiên N in ra màn hình các ước của N và số lượng các ước bằng bao nhiêu?
Thược hiện bằng phần mềm free pascal
Program HOC24;
var i,n,d: integer;
begin
write('Nhap N: '); readln(n);
write('Cac uoc cua 'n,' la: ');
for i:=1 to n do if i mod n = 0 do then
begin write(i,' '); d:=d+1; end;
writeln;
write('Co ',d,' so la uoc cua ',n);
readln
end.
Giả sử cần viết chương trình nhập vào hai số nguyên, in ra màn hình số lớn hơn.
a). Hãy mô tả các bước của thuật toán để giải quyết bài toán trên.
b). Viết chương trình Pascal để thực hiện thuật toán đó.