Tổng hợp các bài tập Pascal có đáp án

Chia sẻ bởi Trần Quang Diệu | Ngày 26/04/2019 | 50

Chia sẻ tài liệu: Tổng hợp các bài tập Pascal có đáp án thuộc Tin học 11

Nội dung tài liệu:

1) Nhap vao mot Mang?.In ra so Doan con lon nhat cua mang do.
Inputu lieu vao la 1 mang. Output: Du lieu ra la cac doan con lon nhat. VD:bai1.inp 14 1 2 3 6 0 0 3 3 4 2 5 0 1 0 ->>>Bai1.out 5 1 2 3 6 0 0 3 3 4 2 5 0 1 0 Dong thu nhat cua input la so phan tu cua Mang, dong dau cua Output la so doan con Program bai1; Var i,m,k,n,s,t,tong,j:integer; a,x:array [1..100] of integer; kt:boolean; f:text; Procedure Nhap;{Doc File} Begin Assign(f,`D:ai1.inp`); Reset(f); readln(f,n); For i:=1 to n do begin read(f,A[i]); if i mod 10=0 then readln(f); End; k:=n; Close(f); End;
Procedure ttong; Begin For i:=1 to n do s:=s+a[i]; end;
Procedure xuli; begin k:=n+1; kt:=false; repeat k:=k-1; if s mod k=0 then begin t:=s div k; i:=1; m:=1; repeat tong:=0; x[m]:=i; repeat tong:=tong+a[i]; i:=i+1; until tong>=t; if tong=t then m:=m+1; until (m>=k+1) or (tong>t); if m=k+1 then kt:=true; end; until kt; For i:=1 to k+1 do begin for j:=x[i] to x[i+1]-1 do write(a[j]:5); writeln; end; end; BEGIN nhap; ttong; xuli; readln;
End.
Bài 2: Nhập vào 1 mảng, đưa sô phần tử Dương về đầu và số phần tử âm về cuối mảng. Sắp xếp mảng theo thứ tự tăng dần. program doisap; uses crt; const vao=`bai1.in3`; ra=`bai1.ou3`; var n,i,j,k,t : integer; a: array[1..1000] of integer; g,f:text; Procedure init; begin assign(f,vao); reset(f); assign(g,ra); rewrite(g); readln(f,n); for i:=1 to n do read(f,a[i]); for i:=1 to n do write(a[i]:4); for i:=1 to n do write(g,a[i]:4); writeln; writeln(g); end; Procedure doicho(i,j :integer); var tg:integer; begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; Procedure sapxep; begin for i:=1 to n-1 do begin k:=i; for j:=i +1 to n do if a[j]i then begin t:=a[i]; a[i]:=a[k]; a[k]:=t; end; end; writeln; writeln(g); writeln(g); for i:=1 to n do write(a[i]:4); for i:=1 to n do write(g,a[i]:4); end; Procedure doi; begin i:=1; j:=n; repeat while a[i]>0 do inc(i); while a[j]<=0 do dec(j); if i=0 do inc(i); while a[j]<0 do dec(j); if i
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Trần Quang Diệu
Dung lượng: | Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)