Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Trong một đợt đi dã ngoại nhân dịp kỷ niệm ngày thành lập QĐND Việt Nam 22/12, ban tổ chức dự định phát đều các vật dụng gồm áo và mũ cho các thành viên tham gia. Tính xem mỗi người được phát bao nhiêu cái áo, bao nhiêu cái mũ và tính số lượng áo, mũ còn thừa.
Dữ liệu: Vào từ file văn bản DANGOAI.INP có cấu trúc:
- Hàng 1: ghi hai số nguyên dương A, M là số áo và mũ [10 ≤ A, M ≤ 103].
- Hàng 2: ghi số nguyên dương T là số thành viên tham dự đợt dã ngoại.
Kết quả: Ghi vào file DANGOAI.OUT có cấu trúc:
- Hàng 1: lần lượt là số áo, số mũ mỗi thành viên được phát [mỗi số cách nhau một ký tự trắng].
- Hàng 2: lần lượt là số áo, số mũ còn thừa.
23/10/2022 | 0 Trả lời
Cho 2 số nguyên a,b. thương của 2 số nguyên là c: hãy viết chương trình tính thương của 2 số đó
Giúp em v ạ em sắp thi
27/10/2022 | 1 Trả lời
[0101...] là cơ sở để tạo ra ngôn ngữ gì?
30/10/2022 | 1 Trả lời
UREKA_VIDEO-IN_IMAGE
Máy tính chỉ có thể hiểu trực tiếp hiểu ngôn ngữ nào?
30/10/2022 | 1 Trả lời
Máy tính thực hiện một công việc thông qua yếu tố nào?
30/10/2022 | 1 Trả lời
Ngôn ngữ lập trình thông dụng ở cấp học THCS là gì?
30/10/2022 | 1 Trả lời
Chương trình máy tính là dãy ………. mà máy tính có thể hiểu và thực hiện được.
30/10/2022 | 1 Trả lời
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng[khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
Viết chương trình nhập vào hai số nguyên a,b từ bàn phím. In ra hai số ra màn hình trên cùng 1 dòng [khi chạy chương trình nhập a=5, =6 để kiểm tra kết quả].
31/10/2022 | 0 Trả lời
Để cho Rô-bốt thực hiện được công việc nhặt rác thì con người phải làm gì?
31/10/2022 | 1 Trả lời
Từ khoá của một ngôn ngữ lập trình là gì?
31/10/2022 | 1 Trả lời
Uses là từ khóa để khai báo yếu tố gì?
31/10/2022 | 1 Trả lời
Dùng từ khóa nào để cho biết điểm bắt đầu và kết thúc chương trình?
01/11/2022 | 1 Trả lời
Viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b.
viết chương trình nhập vào 2 số a và b từ bàn phím tính tổng, hiệu, thích thương của hai số a và b. tính trung bình cộng của 2 số a và b
Tam giác cân có khoảng cách giữa các dấu * trên 1 hàng [hình 1]
Nội dung chính Show
- Post navigation
- 1.Vẽ Hình Tam Giác Cân Bằng Dấu * Trong Pascal .[dùng Câu Lệnh For To ...
- 2.[Lập Trình Pascal] Vẽ Hình Tam Giác Cân Với Chiều Cao Bất Kì
- 3.[PASCAL 11] Vẽ Tam Giác Bằng Dấu Sao - HOCMAI Forum
- 4.Cách Vẽ Tam Giác Trong Pascal | Tuỳ-chọ
- 5.Pascal Hướng Dẫn Vẽ Tam Giác Cân Ngược Rỗng - YouTube
- 6.Vẽ Tam Giác Trong Pascal - YouTube
- 7.Vẽ Hình Trong Pascal - Diễn Đàn MathScope
- 8.Vẽ Hình Trong Pascal - Sách Giải
- 9.Cách Vẽ Tam Giác Pascal Bằng Code C++ - Lập Trình Không Khó
- 10.Viết Chương Trình In Ra Màn Hình Tam Giác Pascal? - Nguyễn Thanh Hà
- 11.Bài Tập Vẽ Tam Giác - Ngoc Khuong Blog
- 12.Viết Chương Trình đơn Giản Bằng Cách Sử Dụng Dấu "*" để ... - Hoc24
- 13.Vẽ Tam Giác Pascal Trong C
- 14.Bài Tập: Vẽ Tam Giác Pascal Trong Python. - VietTuts
program bai_giai;
uses crt;
var h,i,j:integer;
begin
clrscr;
write['Nhap do cao: ']; readln[h];
for i:=1 to h do
begin
for j:=1 to [h*2 div 2]-i do write[' '];
for j:=1 to i do write['* '];
writeln;
end;
readln;
end.
Tam giác cân đặc [hình 2]
program bai_giai;
uses crt;
var h,i,j:integer;
begin
clrscr;
write['Nhap do cao: ']; readln[h];
for i:=1 to h do
begin
for j:=1 to [h*2 div 2]-i do write[' '];
for j:=1 to i*2-1 do write['*'];
writeln;
end;
readln;
end.
Tam giác cân rỗng [hình 3]
program bai_giai;
uses crt;
var h,i,j,k:integer;
begin
clrscr;
write['Nhap do cao: ']; readln[h];
for i:=1 to [h*2 div 2]-i-1 do write[' ']; writeln['*'];
for i:=2 to h-1 do
begin
for j:=1 to [h*2 div 2]-i do write[' '];
write['*']; k:=j+1;
for j:=k to [h*2 div 2]+i-3 do write[' '];
writeln['*'];
end;
for i:=1 to h*2-1 do write['*'];
readln;
end.
Skip to content
Viết chương trình nhập chiều cao của 1 tam giác [số hàng của tam giác] , in ra tam giác có dạng :
*
***
*****
*******
Program ve_tam_giac;
uses crt;
var center,i,j,max,h:integer;
max_hang ,k:integer;
begin
clrscr[];
Write[‘ Nhap vao chieu cao cua tam giac : ‘];readln[h];
max:=h+h-1;
center:=[max div 2] + 1;
for i=1 to h do
begin
max_hang:=i+i-1;
k:=[max-max_hang] div 2;
for j=1 to max do
begin
if[j>k and j