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 | 
 

 Huu Hung Van Gia

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 đề: Huu Hung Van Gia   9/12/2016, 08:35

Bài 1:
uses crt;
var a:array[1..8] of integer;
   i,m,n,j:integer;
begin
clrscr;
writeln('Nhap 8 so nguyen tu 1 den 8:');
repeat
m:=0;
for i:=1 to 8 do
begin
    write('a[',i,']:');readln(a[i]);
    for j:=1 to i do if (a[j]=a[i])and(i<>j) then m:=m+1;
    if (a[i]>8)and(a[i]<0) then m:=m+1;
end;
if m<>0 then writeln('Nhap sai');
until m=0;
n:=0;
for i:=1 to 7 do
begin
    if a[i]<a[i+1] then m:=m+1;
    if a[i]>a[i+1] then n:=n+1;
end;
if m=7 then writeln('Day sap xep tang dan');
if n=7 then writeln('Day sap xep giam dan');
if (m<>7) and (n<>7) then writeln('Day ko duoc sap xep');
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: Huu Hung Van Gia   9/12/2016, 08:35

Bài 2:
uses crt;
var dau:string;
a,b:integer;
begin
clrscr;
write('Nhap so A:');readln(a);
write('Nhap dau:');readln(dau);
write('Nhap so B:');readln(b);
if dau='+' then write(a+b);
if dau='*' then write(a*b);
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: Huu Hung Van Gia   9/12/2016, 08:36

Bài 3:
uses crt;
var s,a,b,m:integer;
begin
clrscr;
write('Nhap chieu cao cay go:');readln(s);
write('Nhap quang duong no di 1 ngay:');readln(a);
write('Nhap quang duong tuot xuong 1 dem:');readln(b);
if a<=b then writeln('No ko leo duoc')
else
begin
m:=0;
while s<>0 do
begin
s:=s-a;
s:=s+b;
if s<>0 then m:=m+1;
end;
writeln('',m,' ngay');
end;
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: Huu Hung Van Gia   7/2/2017, 08:56

CHUYỂN HỆ NHỊ PHÂN SANG THẬP PHÂN
Code:
uses crt;
var a:array[1..100] of integer;
    i,n,c:integer;
begin
clrscr;
write('Nhap so he 2:');readln(n);
c:=0;
repeat
      c:=c+1;
      a[c]:=n mod 10;
      n:=n div 10;
until n=0;
for i:=c downto 1 do n:=n*2+a[i];
write(n);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Huu Hung Van Gia   

Về Đầu Trang Go down
 
Huu Hung Van Gia
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Người vợ mù - Khái Hưng
» Xuân tình
» *_Nhạc Hoà Tấu Mp3-320kps-2
» AL_Trích đoạn Tướng Cướp Bạch Hải Đường
» Móc chổi lông gà bằng dây nylon

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 :: Thảo luận :: đưa bài-
Chuyển đến