Diễn đàn tin học Văn Lang - Vạn Ninh
Chào mừng bạn đến với Diễn đàn Tin học Văn Lang - Vạn Ninh của chúng tôi !
Hãy đăng nhập hoặc đăng kí tài khoản để trải nghiệm nhiều điều thú vị tại đây !
Thân ái !

Diễn đàn tin học Văn Lang - Vạn Ninh

Nơi trao đổi thông tin, tăng cường hợp tác, giải đáp những vướng mắc khi học lập trình Pascal
 
Trang ChínhCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 đề 1 2016 ctruong

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: đề 1 2016 ctruong   15/9/2016, 10:27

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: BAI 4   12/10/2016, 10:54

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.


Được sửa bởi pqtoan ngày 13/10/2016, 18:37; sửa lần 1.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: đề 1 2016 ctruong   13/10/2016, 18:36

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: đề 1 2016 ctruong   13/10/2016, 18:44

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
pqtoan



Posts : 72
Danh tiếng : 3
Join date : 10/11/2014

Bài gửiTiêu đề: Re: đề 1 2016 ctruong   13/10/2016, 18:51

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.
Về Đầu Trang Go down
Xem lý lịch thành viên
thuynganhb



Posts : 10
Danh tiếng : 1
Join date : 09/01/2017

Bài gửiTiêu đề: Re: đề 1 2016 ctruong   10/2/2017, 10:31

Bạn ơi bạn giải luôn bài 3 được không? Cảm ơn bạn nhiều
Về Đầu Trang Go down
Xem lý lịch thành viên
nhathuyvanlang

avatar

Posts : 49
Danh tiếng : 9
Join date : 26/03/2016

Bài gửiTiêu đề: Re: đề 1 2016 ctruong   19/2/2017, 08:08

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 Smile
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.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: đề 1 2016 ctruong   

Về Đầu Trang Go down
 
đề 1 2016 ctruong
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Dự đoán vận mệnh năm 2016
» [Thùng rác] Bói Cung hoàng đạo Song Tử trong năm 2016
» So sánh Galaxy A5 (2016) và người tiền nhiệm Galaxy A5 (2015)
» [CES 2016] LG ra mắt Gram 15, thiết kế giống Macbook
» Sẽ có những sản phẩm gì tại sự kiện Apple ngày 21/3/2016

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn tin học Văn Lang - Vạn Ninh :: Bài tập :: Bài tập cơ bản-
Chuyển đến