Bai thuc hanh tin 8
Chia sẻ bởi Ksor Choal |
Ngày 14/10/2018 |
105
Chia sẻ tài liệu: bai thuc hanh tin 8 thuộc Tin học 8
Nội dung tài liệu:
Gõ dịch và chạy chương trình sau:
Program chen_so;
Var i, j, n: integer; x: integer;
Day_so: Array [1…100] of integer;
Begin
Writeln(‘hay nhap so n’); readln(n);
Writeln(‘hay nhap x’); readln(x);
For i:=1 to n do readln(day_so[i]);
i:=0;
while (day_so[i+1]<=x and (i for j:=n+1 downto i+1 do day_so[j]:=day_so[j-1];
day_so[i+1]:=x;
for i:=1 to n+1 do write(day_so[i]:4:1); readln
End.
Gõ dịch và chạy chương trình sau:
Program chen_so;
Var i, j, n: integer; x: integer;
Day_so: Array [1…100] of integer;
Begin
Writeln(‘hay nhap so n’); readln(n);
Writeln(‘hay nhap x’); readln(x);
For i:=1 to n do readln(day_so[i]);
i:=0;
while (day_so[i+1]<=x and (i for j:=n+1 downto i+1 do day_so[j]:=day_so[j-1];
day_so[i+1]:=x;
for i:=1 to n+1 do write(day_so[i]:4:1); readln
End.
Program chen_so;
Var i, j, n: integer; x: integer;
Day_so: Array [1…100] of integer;
Begin
Writeln(‘hay nhap so n’); readln(n);
Writeln(‘hay nhap x’); readln(x);
For i:=1 to n do readln(day_so[i]);
i:=0;
while (day_so[i+1]<=x and (i
day_so[i+1]:=x;
for i:=1 to n+1 do write(day_so[i]:4:1); readln
End.
Gõ dịch và chạy chương trình sau:
Program chen_so;
Var i, j, n: integer; x: integer;
Day_so: Array [1…100] of integer;
Begin
Writeln(‘hay nhap so n’); readln(n);
Writeln(‘hay nhap x’); readln(x);
For i:=1 to n do readln(day_so[i]);
i:=0;
while (day_so[i+1]<=x and (i
day_so[i+1]:=x;
for i:=1 to n+1 do write(day_so[i]:4:1); readln
End.
* 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ẻ: Ksor Choal
Dung lượng: 26,00KB|
Lượt tài: 2
Loại file: doc
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)