Mình có bài này muốn hỏi :Cho 2 mảng a1, a2 (vd: a1: 1 6 3 2 7; a2: 0 8 5).
Yêu cầu: tìm mảng a3 có dạng a1[1],a2[1],a1[2],a2[2],... (vd: a3: 1 0 6 8 3 5 2 7)
Dữ liệu vào: độ dài và các phần tử của 2 mảng a1, a2.
Dữ liệu ra: mảng a3.
Mình có bài này muốn hỏi :Cho 2 mảng a1, a2 (vd: a1: 1 6 3 2 7; a2: 0 8 5).
Yêu cầu: tìm mảng a3 có dạng a1[1],a2[1],a1[2],a2[2],... (vd: a3: 1 0 6 8 3 5 2 7)
Dữ liệu vào: độ dài và các phần tử của 2 mảng a1, a2.
Dữ liệu ra: mảng a3.
Còn bài này nữa :cho dãy số gồm 2n chữ số: 1,2,3,4,..2n. Xếp chúng thành 2 hàng và n cột sao cho tổng mỗi hàng bằng nhau và tổng mỗi cột bằng nhau,(đk n>2)
Theo như đề bài thì tổng cả dãy là (2n+1)n thì tổng mỗi hàng là (2n+1)n/2 nên n là số chẵn, và tổng mỗi cột sẽ là n+1:
Vd với n=4 nha tức dãy là 1 2 3 4 5 6 7 8
=> 1 7 6 4
8 2 3 5
var a:array [1..2,1..100] of integer;
i,n,m:integer;
function min(m,n:integer);
begin
if m>n then min:=n else min:=m;
end;
begin
write('Nhap so pt mang a1: ');readln(n);
for i:=1 to n do
begin
write('Nhap a1[',i,']: ');readln(a[1,i]);
end;
write('Nhap so pt mang a2: ');readln(m);
for i:=1 to m do
begin
write('Nhap a2[',i,']: ');readln(a[2,i]);
end;
writeln('Mang a3 la: ');
for i:=1 to min(m,n) do
begin
write(a[1,i],' ',a[2,i],' ');
end;
readln
end.
bai nay dung chuong trinh con cho khoe
Mọi người cho mình code bài mô phỏng trò chơi bóng bàn bằng pascal được không, môn đồ họa pascal ấy!
Huynh nào pro giúp mình một chút.
Mình có sẵn Source Code giờ muốn tạo thành một ứng dụng exe hoàn chỉnh thì mình phải trải qua bao nhiêu bước, và nếu có thể hướng dẫn rõ cho mình được không?
Mình chưa bao giờ nghĩ sẽ phải tham gia sâu vào lĩnh vực này nhưng bây giờ bắt buộc phải tìm hiểu về nó, vì những ứng dụng mình đang dùng được viết bằng ngôn ngữ delphi.
Bạn nào rãnh rỗi đá cho mình cái hướng dẫn nhé, mình không cần hiểu các câu lệnh của delphi, mình chỉ muốn tạo ra ứng dụng hoàn chỉnh (exe) với những source có sẵn.
Cảm ơn.
Trong khi chờ đợi các PRO vào hướng dẫn đầy đủ và chính xác,
Bạn xem tạm thế này: (chỉ biết Delphi 3)
- Nếu có code sẵn (100% không lỗi, hợp phiên bản của Delphi) thì:
1. Vào Delphi
2. Mở file project: Menu File ->Open ->tìm đến Source Code/project;
3. Tiến hành biên dịch: Menu Project -> Compile hoặc Build All.
(Nếu thành công thì kết quả tạo ra tệp EXE)
- Nếu bạn "không cần hiểu các câu lệnh của Delphi":
=> Trong trường hợp phiên bản của Delphi không phù hợp/ code bị lỗi / sai cấu hình ... => khó khắc phục, sửa chữa ???
(Mở file biên dịch thành công ngay trong 1 lần đầu tiên thì thật may mắn)
Life - Love - Freedom
SỐ NGUYÊN TỐ GHÉP:
Xét dãy A các số nguyên tố 2, 3, 5, 7, 11, 13, 17, 19,...
và dãy B gồm các số thu được từ dãy A bằng cách ghép hai số liên tiếp trong A: 23, 57, 1113, 1719, ...
Trong dãy B có những phần tử là số nguyên tố. Chẳng hạn 23, 3137, 8389, 157163...
Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.
Yêu cầu: Cho trước số nguyên dương K ≤ 500, hãy tìm số nguyên tố ghép thứ K.
-->>>> Ai cho em code đi.... Có quà đấy
đây là phần đồ họa nè:
đề:
viết chương trình in ra màn hình một hình hộp chữ nhật topON có a,b,h lần lượt là 10,12,15. Nét vẽ màu magenta nền (của hình) là green.
(☺ mong các tiền bối chỉ giáo☻)
đây là bài đổi hệ 16 ra hệ 10
uses crt;
var a: array[1..1000] of longint;
s:string;
n,i,k,gt:longint;
begin
clrscr;
write('nhap so he 16:');readln(s);
for i:=1 to length(s) do
case s[i] of
'0':a[i]:=0;
'1':a[i]:=1;
'2':a[i]:=2;
'3':a[i]:=3;
'4':a[i]:=4;
'5':a[i]:=5;
'6':a[i]:=6;
'7':a[i]:=7;
'8':a[i]:=8;
'9':a[i]:=9;
'A':a[i]:=10;
'B':a[i]:=11;
'C':a[i]:=12;
'D':a[i]:=13;
'E':a[i]:=14;
'F':a[i]:=15;
'a':a[i]:=10;
'b':a[i]:=11;
'c':a[i]:=12;
'd':a[i]:=13;
'e':a[i]:=14;
'f':a[i]:=15;
end;
n:=0;
for i:=1 to length(s) do
begin
gt:=1;
for k:=1 to length(s)-i do
gt:=gt*16;
n:=n+a[i]*gt;
end;
write('day so thap phan la:',n);
readln
end.
tự làm nhưng hơi dài,
(☺Mong các tiền bối chỉ giáo☻)
Bookmarks