1樓：
（1）var
s:real;
i:integer;
begin
s:=100;
i:=0;
while s>=200 do
begin
inc(i);
s:=s+s*0.08;
end;
writeln(i);
end.
(2)var
i,a,he,b:longint;
begin
for a:=2 to 1000 do
begin
he:=1;
for i:=2 to trunc(sqrt(a)) do
if a mod i=0 then
he:=he+i+a div i;
b:=1;
for i:=2 to trunc(sqrt(he)) do
if he mod i=0 then
b:=b+i+he div i;
if (a=b)and(ai then
begin t:=a[i];a[i]:=a[k];a[k]:=t;end;
end;
write('output data:');
for i:= 1 to n do write(a[i]:6);
writeln;
end.
2.插入排序
插入排序的基本思想:經過i-1遍處理後,l[1..i-1]己排好序。
第i遍處理僅將l[i]插入l[1..i-1]的適當位置p，原來p後的元素一一向右移動一個位置,使得l[1..i]又是排好序的序列。
例2:輸入序列資料按非減順序輸出.
程式1:
program crpx;
const n=7;
var a:array[1..n] of integer;
i,j,k,t:integer;
begin
write('enter date:');
for i:= 1 to n do read(a[i]);
writeln;
for i:=2 to n do
begin
k:=a[i];j:=i-1;
while (k0) do
begin a[j+1]:=a[j];j:=j-1 end;
a[j+1]:=k;
end;
write('output data:');
for i:= 1 to n do write(a[i]:6);
writeln;
end.
3.氣泡排序
氣泡排序又稱交換排序其基本思想是:對待排序的記錄的關鍵字進行兩兩比較,如發現兩個
記錄是反序的,則進行交換,直到無反序的記錄為止。
例:輸入序列資料按非減順序輸出。
程式1:
program mppx;
const n=7;
var a:array[1..n] of integer;
i,j,k,t:integer;
begin
write('enter date:');
for i:= 1 to n do read(a[i]);
for i:=1 to n -1 do
for j:=n downto i+1 do
if a[j-1]0 do
begin
j:=k-1;k:=0;
for i:=1 to j do
if a[i]>a[i+1] then
begin t:=a[i];a[i]:=a[i+1];a[i+1]:=t;k:=i;end;
end;
write('output data:');
for i:= 1 to n do write(a[i]:6);
writeln;
end.
2樓：
太長了，別選他，他編的有錯
幾道簡單的pascal題目，跪求答案！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
3樓：匿名使用者
dos 系統
基礎知識bai
我認為這些對於初du賽做初步瞭解即可
zhi因為dao現在windows作業系統普及高內如果要系統的瞭解，可容以在windows系統中用等效的應用程式cmd.exe (命令提示符) 做試驗推薦閱讀（dos命令大全）
4樓：匿名使用者
dos 是一種作業系統。
一些英語練習題，速求答案，一些英語練習題，急求答案！
1.not do 2.to build 3.any 4.missing 5.across 6.does not study will fall7.bulidings 8.was bulit 9.mountains 10.different 11.hundred 12.more 打字不容易，望採納 1...
一些簡單的資訊科技練習題
1 4 8 2 20 3 專線接入方式 無線接入方式 區域網接入方式4 雙絞線 同軸電纜 光纖 5 電腦 傳真 6 eniac 埃尼阿克 7 ie 8 ip 9 del 10 1024 11 bmp 12 world wide web 13 硬體和軟體 14 資訊網路 15 中國 16 區域網 答案...
很簡單的語文題，高手來蛤，語文練習題很簡單！！！
1 生活是一架琴 演奏著高低不同的樂章 生活是一本書，蘊涵無盡的知識 生活是一條路 擁有無數的曲折 2 學會合作 是一篇演講稿，以合作為話題，從人與人之間的關係講起，闡明瞭 合作就要有統一的目標和自我犧牲精神 的道理，學了這篇文章，我想到 人心齊，泰山移 天時不如地利，地利不如人和 等關於合作的名言...