文章分类 - 信息作业
摘要：program ex_7;var st : string; i, len : integer; found : boolean;begin readln(st); len := length(st); for i := 1 to len-3 do if (st[i] = 's') and (st[i+1] = 'i') and (st[i+2] = 'x') then begin write(i,...
阅读全文
摘要：program ex_6;var st : array [1 .. 100] of string; n, i : integer; str : string;begin readln(n); for i := 1 to n do begin readln(st[i]); str := str+st[i]; end; write(str); readln;end.
阅读全文
摘要：program ex_5;var st, st1, st2 : string; i, len : integer;begin readln(st); len := length(st); st1 := copy(st, 1, (len+1) div 2); st2 := copy(st, (len+1) div 2+1, len-(len+1)div 2); writeln(st1); write...
阅读全文
摘要：program ex_3;var st : string; i, len : integer;begin readln(st); len := length(st); for i := 1 to (len+1) div 2 do delete(st,i,1); writeln(st); readln;end.program ex_3;var st : string; i, len : intege...
阅读全文
摘要：program ex_4;var st : string; i, len : integer;begin readln(st); len := length(st); i := len; while i >= 1 do begin if (st[i] < 'A') or ((st[i] > 'Z') and (st[i] < 'a')) or (st[i] > 'z'...
阅读全文
摘要：program ex_3_1;var t, max, n, i, j : integer; a : array[1 .. 2, 1 .. 60] of integer; noswap : boolean;begin readln(n); for i := 1 to n do for j := 1 to i do read(a[i, j]); for i := 2 to n do for j := ...
阅读全文
摘要：program ex_1;var i, f, t : integer;begin f := 15; repeat if ((f-4) div 10) <> (f div 10) then begin t := trunc(sqrt(f)); for i := 2 to t do if (f mod i = 0) or ((f-4) mod i = 0) then break; if (...
阅读全文
摘要：program ex_2;var t, n, i, j : integer; a : array[1 .. 2, 1 .. 60] of integer; noswap : boolean;begin readln(n); for i := 1 to n do read(a[1, i]); for i := 1 to n do read(a[2, i]); for i := 1 to n do b...
阅读全文
摘要：3. 矩阵转置program ex_3;var a : array [1 .. 100, 1 .. 100] of integer; n, m, i, j, t : integer;begin readln(n, m); for i := 1 to n do for j := 1 to m do read(a[i, j]); readln; for j := 1 to m do begin for...
阅读全文
摘要：4. N .. M内的所有素数program ex_4;var a : array [2..10000] of boolean; n, m, i, t, j, x : integer;begin read(n, m); if n > m then begin t := n; n := m; m := t; end; for i := 2 to m do a[i] := true; x := ...
阅读全文
摘要：2. 二进制转十进制。program ex_2;var a : array [1..16] of 0 .. 1; st : string; i, n, p : integer;begin readln(st); for i := 1 to length(st) do a[i] := ord(st[i])-ord('0'); n := 0; p := 1; for i := i downto 1 d...
阅读全文
摘要：3. 1 .. N内的所有合数program ex_3;var a : array [2..10000] of boolean; n, i, j, x : integer;begin readln(n); for i := 2 to n do a[i] := true; x := 1; repeat x := x+1; if a[x] then begin i := x; while i <...
阅读全文
摘要：1. 十进制转二进制。已知N，试求它的二进制数。输入输出各一行。program ex_1;const k = 2;var a : array [1..18] of integer; n : double; i, j, p : integer;begin readln(n); p := trunc(n); if p < 0 then write('-'); p := abs(p); i := ...
阅读全文
摘要：4、 已知整数N（INTEGER范围内），试求它的二进制数。输入输出各一行。program ex_1;const k = 2;var a : array [1..18] of integer; n : double; i, j, p : integer;begin readln(n); p := trunc(n); if p < 0 then write('-'); p := abs(p);...
阅读全文
摘要：3、 N个人围成一圈玩游戏，按1-N编号，从1号开始，按顺时针方向数数，数到M的出队，当剩下最后一个人时，这个人就是游戏的胜利者，那么，请问，你应该站在什么位置，才能成为胜利者？输入：N M（均小于1000）输出：胜利者的位置。program JOSEPHUS;var n, m, s, f, t : integer; a : array[1..1000] of boolean;begin writ...
阅读全文
摘要：2、 已知道某同学数学成绩X，你能在全班所有同学里里查出他的学号和名次吗？并判断是否在平均线以上，如果是则输出GOOD，否则输出NO。（假设成绩没有重复）输入：第一行：X，第二行：N（全班人数），第三行：N个整数，每个同学的数学成绩（按学号1—N）输出：第一行：该同学的学号。第二行：名次，第三行：GOOD或NO。program sorter;var x, n, i, num, sum,...
阅读全文
摘要：6、Antiprime数如果一个自然数n，满足所有小于n的自然数的约数个数都小于n的约数个数，则n是一个Antiprime数。譬如：1, 2, 4, 6, 12, 24。输入：N 输出：一行。例：输入：1000 输出：840program Antiprime;function divisors(nn : longint) : integer;var ii, jj, kk : integer;beg...
阅读全文
摘要：1、 某班同学（50人以内）排队出操，已知他们的身高，试将他们由矮到高重新排列，并输出。输入：两行，第一行：N（班级人数），第二行N个数，表示每个人的身高。输出：一行。program sorter;var i, j, n, t : integer; high : array [1 .. 50] of integer;begin readln(n); for i := 1 to n do read(...
阅读全文
摘要：5、N 个人进入会场开会(场内只有 N 个坐位), 本应对号入坐,可是N个人全都坐错了位置, 编程输出全都坐错了位置的所有可能坐法,并累计总数,N由键盘输入。输入：N输出：所有可能的总数（提示：考虑下排列组合）program site;var n, s : integer; a : array[1 .. 50] of integer;procedure sit(i : integer);var i...
阅读全文
摘要：4、找数由键盘输入正整数N（N≤500）和K（K≤9），请找一个正整数M，使N×M的值仅由0～K组成，而且0～K的每个数字至少出现一次。编程序在1～30000范围内找出符合条件的最小的M值，如果找不到，则输出“No find!”。例：①输入：N，K＝65,3 输出：M＝48 （因为65×48＝3120） ...
阅读全文
浙公网安备 33010602011771号