có anh nào giải giúp em 2 bài pascal này với !
4 posters
Trang 1 trong tổng số 1 trang
có anh nào giải giúp em 2 bài pascal này với !
Bài 1: Cho mảng hai chiều có m dòng, n cột. Mỗi phần tử của mảng là 1 số nguyên.
a) Tim phần tử nhỏ nhì và vị trí của nó.
b) Sắp xếp mỗi dòng của mảng tạo thành dãy không giảm.
Bài 2: Nhập số nguyên dương N (15 >= n >=1), tiếp theo nhập n số nguyên a1,a2 ... an.
a) Liệt kê các số nguyên tố trong dãy.
b) Tìm ucln, bcnn của các số trong dãy.
a) Tim phần tử nhỏ nhì và vị trí của nó.
b) Sắp xếp mỗi dòng của mảng tạo thành dãy không giảm.
Bài 2: Nhập số nguyên dương N (15 >= n >=1), tiếp theo nhập n số nguyên a1,a2 ... an.
a) Liệt kê các số nguyên tố trong dãy.
b) Tìm ucln, bcnn của các số trong dãy.
gianinhtaitu- Thành viên mới
- Ngày sinh : 04/04/1996
Tuổi : 28
Ngày đăng ký : 01/02/2011
chuong trinh tim so nguyen to
var
a:array[1..100] of word;
dem,i,j,n,c:byte;
kt:boolean;
begin
write('nhap so luong phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i)
readln(a[i]);
end;
dem:=0;
for i:=1 to n do
begin
kt:=true;
if a[i]<4 then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end
else
begin
c:=round(sqrt(a[i]));
j:=c;
while (kt=true) and (j>1) do
if a[i] mod j=0 then kt:=false else
j:=j-1;
end;
if kt=true then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end;
end;
writeln('co:',dem,'so nguyen to');
readln
end.
a:array[1..100] of word;
dem,i,j,n,c:byte;
kt:boolean;
begin
write('nhap so luong phan tu:');
readln(n);
for i:=1 to n do
begin
write('nhap so thu:',i)
readln(a[i]);
end;
dem:=0;
for i:=1 to n do
begin
kt:=true;
if a[i]<4 then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end
else
begin
c:=round(sqrt(a[i]));
j:=c;
while (kt=true) and (j>1) do
if a[i] mod j=0 then kt:=false else
j:=j-1;
end;
if kt=true then
begin
dem:=dem+1;
write(a[i],'la so nguyen to');
end;
end;
writeln('co:',dem,'so nguyen to');
readln
end.
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
bai 1 a
var a:array[1..100,1..100] of iteger;
x,y,i,j,k,l:byte;
min2,min1:integer;
begin
write('nhap so hang:');
readln(i);
write('nhap so cot:');
readln(j);
for k:=1 to j do
begin
for l:=1 to i do
begin
write('nhap so thu:',i,' ',j);
readln(a[i,j);
end;
end;
min1:=a[1,1];
for k:=1 to i do
for l:=1 to do
if a[k,l] min2:=1000;
for k:=1 to i do
for l:=1 to do
begin
if (a[k,l]min1) then
begin
min2:=a[k,l];
x:=k;
y:=l;
end;
end;
writeln('min2=',min2);
writeln('vi tri:',k,'.',l);
readln
end.
x,y,i,j,k,l:byte;
min2,min1:integer;
begin
write('nhap so hang:');
readln(i);
write('nhap so cot:');
readln(j);
for k:=1 to j do
begin
for l:=1 to i do
begin
write('nhap so thu:',i,' ',j);
readln(a[i,j);
end;
end;
min1:=a[1,1];
for k:=1 to i do
for l:=1 to do
if a[k,l]
for k:=1 to i do
for l:=1 to do
begin
if (a[k,l]
begin
min2:=a[k,l];
x:=k;
y:=l;
end;
end;
writeln('min2=',min2);
writeln('vi tri:',k,'.',l);
readln
end.
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
Re: có anh nào giải giúp em 2 bài pascal này với !
phan sap xep thi dung trao doi.cac phan kia khong kho dau
tieuquaitu- Thành viên thường
- Ngày sinh : 08/07/1993
Tuổi : 30
Ngày đăng ký : 09/02/2011
có sự cố !
anh có thể viết lại hoàn chỉnh chương trình được không , em chạy không được
gianinhtaitu- Thành viên mới
- Ngày sinh : 04/04/1996
Tuổi : 28
Ngày đăng ký : 01/02/2011
Re: có anh nào giải giúp em 2 bài pascal này với !
chương trình trên có nhiều lỗi quá
gianinhtaitu- Thành viên mới
- Ngày sinh : 04/04/1996
Tuổi : 28
Ngày đăng ký : 01/02/2011
tienthuan104- Thành viên mới
- Ngày sinh : 10/04/1996
Tuổi : 28
Ngày đăng ký : 12/03/2011
Re: có anh nào giải giúp em 2 bài pascal này với !
2a:
var a,i:byte;
kt:boolean;
b:array[1..100] of integer;
function ngt(n:longint):boolean;
var i:byte;
begin
kt:=true;
if n=1 then kt:=false
else
for i:=2 to trunc(sqrt(n)) do
if n mod i = 0 then kt:=false;
ngt:=kt;
end;
begin
readln(a);
for i:=1 to a do readln(b[i]);
for i:=1 to a do
if ngt(b[i]) then write(b[i],' ');
readln
end.
var a,i:byte;
kt:boolean;
b:array[1..100] of integer;
function ngt(n:longint):boolean;
var i:byte;
begin
kt:=true;
if n=1 then kt:=false
else
for i:=2 to trunc(sqrt(n)) do
if n mod i = 0 then kt:=false;
ngt:=kt;
end;
begin
readln(a);
for i:=1 to a do readln(b[i]);
for i:=1 to a do
if ngt(b[i]) then write(b[i],' ');
readln
end.
nbni- Thành viên mới
- Ngày sinh : 12/08/1995
Tuổi : 28
Ngày đăng ký : 18/02/2011
Similar topics
» Có ai giải giùm em bài pascal này với
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» Các bạn giải giúp mình mấy bài tập Pascal này nha ...!
» bài tập về hàm trog pascal
» moi người xem giúp bài pascal về đồ thị này với
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
» Các bạn giải giúp mình mấy bài tập Pascal này nha ...!
» bài tập về hàm trog pascal
» moi người xem giúp bài pascal về đồ thị này với
Trang 1 trong tổng số 1 trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết
|
|
15/4/2011, 10:34 pm by funny
» Mọi người làm giúp tôi bài này với !
13/4/2011, 11:42 am by phonggia
» Giúp mình giải bài này với
12/4/2011, 1:00 pm by ldt
» Chia se 1 bai paccal ve ve do thi
11/4/2011, 1:55 pm by duy_sau_rom
» đồ hoạ trong pascal
9/4/2011, 9:16 pm by jetlongk4
» Giá trị biểu thức bằng kí pháp nghịch đảo
1/4/2011, 8:49 am by kh1132000
» AI GIẢI GIÚP EM BÀI NÀY VỚi , ĐANG CẦN GẤP GẤP LẮM :(
31/3/2011, 11:47 pm by jancancook
» dòng thời gian
31/3/2011, 11:31 am by gianggiangonline
» anh nào giúp em với
30/3/2011, 11:00 pm by sieuhoatinh
» VTC trả lương 10 triệu cho SV tốt nghiệp ĐH Văn Hiến - khoa CNTT - ĐTVT tại Hà Nội
29/3/2011, 2:48 pm by SV_tuonglai
» Download cẩm nang mùa thi 2011 tại đây
29/3/2011, 2:47 pm by SV_tuonglai
» Check giúp mình lỗi trong code này với !
27/3/2011, 10:07 pm by mamap0511
» Tai nghe sony dr 370 ve hang moi
25/3/2011, 8:42 pm by hs_bin
» giúp em với
25/3/2011, 12:11 pm by nbni
» Headphone sony dr 370 moi ve hang
24/3/2011, 9:13 pm by hs_bin
» GIUP EM MAY BAI PASCAL CO BAN ( EM MOI HOC PASCAL)
24/3/2011, 9:11 pm by tuan045610
» Headphone sony DR 370 moi ve hang
21/3/2011, 8:11 pm by hs_bin
» Sony DR 310 moi ve hang
20/3/2011, 9:34 pm by hs_bin
» Mọi người giúp dùm em!!^^
20/3/2011, 9:53 am by trangbui_thcstanhiep
» bài tập về hàm trog pascal
18/3/2011, 10:34 pm by sieuhoatinh