đề 1 2016 ctruong

Bài 1: Nhập vào thời gian 1 công việc nào đó là x giây. Hãy chuyển đổi và viết ra màn hình số thời gian trên dưới dạng bằng bao nhiêu giờ, bao nhiêu phút, bao nhiêu giây.
Bài 2: Nhập vào một số nguyên không âm ( kt điều kiện nhập), kiểm tra xem nó có phải là số nguyên tố hay không?
Bài 3: Viết chương trình tìm số đảo của một số nguyên dương và xuất ra màn hình hiệu của chúng ( kết quả số dương)
Ví dụ: - Số = 12345
- Số đảo = 54321
- Hieu cua chung la : 41976
Bài 4: Dãy Fibonaci là dãy gồm các số: 1, 1, 2, 3, 5, 8, .... được xác định bởi công thức sau:
F1=1, F2=1, Fi=Fi-1+Fi-2 với i>2.
Em hãy biểu diễn một số tự nhiên N thành tổng của ít nhất các số Fibonaci khác nhau.
Bài 5: Hãy viết chương trình nhập giá trị cho ma trận vuông cấp n.
a. Tính tổng các phần tử nằm trên đường chéo chính
b. Tính tổng bình phương các số nằm trên hàng chẵn.
c. Tính tổng căn bậc hai các số không âm trên cột lẻ.
d. Đếm số phần tử có giá trị trong khoảng [1..5].
Bài 6: Viết chương trình nhập vào một ma trân, tính tổng bình phương của các số âm trong ma trận trên.
Bài 7: Viết chương trình nhập vào một chuỗi kí tự, sau đó nhập vào một kí tự bất kì và đếm số lần của nó trong chuỗi đã nhập.

Bai 4:
uses crt;
var x:array[1..100] of integer;
   a,b,c,n,tong,i:integer;
{-}
procedure dat(var a,b,c,d,e:integer);
begin
    a:=0;b:=1;c:=0;d:=0;e:=0;
end;
procedure w(var a,b,c:integer);
begin
    c:=a+b;b:=a;a:=c;
end;
{-}
begin
clrscr;
write('Nhap n:');readln(n);
dat(a,b,c,tong,i);
while n>tong do
begin
    w(a,b,c);
    tong:=tong+c;
    i:=i+1;
    x[i]:=c;
end;
if tong>n then writeln(n,' ko phai la tong cac so fibonaxi khac nhau')
         else for c:=1 to i do
         begin
              write(x[c]);if c<i then write('+');
         end;
readln;
end.

Bai 5:
uses crt;
type mang=array[1..100,1..100] of integer;
var a:mang;
n,i,j:integer;
kq:real;
{-}
procedure nmt(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do for j:=1 to n do
begin
write('a[',i,',',j,']:');readln(a[i,j]);
end;
end;
procedure xmt(var a:mang;n:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:3);writeln;
end;
end;
{-}
begin
clrscr;
write('Nhap cap ma tran vuong:');readln(n);nmt(a,n);xmt(a,n);
kq:=0;
for i:=1 to n do kq:=kq+a[i,i];
writeln('Tong cac phan tu tren duong cheo chinh:',kq:3:2);
kq:=0;
for i:=1 to n do if i mod 2=0 then
for j:=1 to n do kq:=kq+a[i,j]*a[i,j];
writeln('Tong binh phuong cac phan tu tren hang chan:',kq:3:2);
kq:=0;
for i:=1 to n do for j:=1 to n do
if (j mod 2=1) and (a[i,j]>0) then kq:=kq+sqrt(a[i,j]);
writeln('Tong can bac hai cac phan tu khong am cua cot le:',kq:3:2);
kq:=0;
for i:=1 to n do for j:=1 to n do if (a[i,j]>0) and (a[i,j]<=5) then kq:=kq+1;
writeln('So phan tu trong khoang [1..5] la:',kq:3:2);
readln;
end.

Bai 6:
uses crt;
type mang=array[1..100,1..100] of integer;
var a:mang;
n,m,i,j,tong:integer;
{-}
procedure nmt(var a:mang;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do for j:=1 to m do
begin
write('a[',i,',',j,']:');readln(a[i,j]);
end;
end;
procedure xmt(var a:mang;n,m:integer);
var i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:3);writeln;
end;
end;
{-}
begin
clrscr;
write('Nhap so dong ma tran:');readln(n);
write('Nhap so cot ma tran:');readln(m);
nmt(a,n,m);xmt(a,n,m);
tong:=0;
for i:=1 to n do for j:=1 to m do if a[i,j]<0 then tong:=tong+a[i,j]*a[i,j];
writeln('Tong binh phuong cac phan tu am trong am tran la:',tong);
readln;
end.

Bai 7:
uses crt;
var a:string;b:string[1];
i,dem:integer;
begin
clrscr;
write('Nhap chuoi:');readln(a);
write('Nhap ki tu (1 ki tu):');readln(b);
dem:=0;
for i:=1 to length(a) do if b=a[i] then dem:=dem+1;
writeln(b,' xuat hien trong chuoi tren ',dem,' lan');
readln;
end.

Bạn ơi bạn giải luôn bài 3 được không? Cảm ơn bạn nhiều

thuynganhb đã viết:

Bạn ơi bạn giải luôn bài 3 được không? Cảm ơn bạn nhiều

Mình đây

Code:

uses crt;
var st:string;
    i:integer;
begin
clrscr;
{Lam string cho de thoy :)). Lm = so kho lam}
write('nhap so:');readln(st);
for i:=length(st) downto 1 do write(st[i]);
readln;
end.