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 | 
 

 Nhật Huy Ninh Hòa

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

avatar

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

Bài gửiTiêu đề: Nhật Huy Ninh Hòa   9/12/2016, 08:32

Bài 3:ốc sên
Code:
uses crt;
var v,a,b,i:integer;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
write('nhap so v:');readln(v);
if a>b then
while v>0 do
      begin
          v:=v-a;
          v:=v+b;
          if v>0 then i:=i+1;
      end
else begin
write('sai cmnr');
readln;
exit;
end;
write('so ngay la:',i);
readln;
end.
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: Nhật Huy Ninh Hòa   9/12/2016, 08:34

bài 1:mảng!!
Code:
uses crt;
const so=[1,2..8];
var a:array[1..100] of integer;
    i,n,j,k,l,m:integer;
begin
clrscr;
write('nhap so phan tu cua day:');readln(n);
for i:=1 to n do
    begin
        write('a[',i,']:');readln(a[i]);
    end;
for i:=1 to n do if a[i] in so then j:=0 else
    begin
        writeln('khong hop le');
        readln;
        exit;
    end;
for i:=1 to n-1 do
if a[i]<a[i+1] then m:=m+1;
if m=n-1 then writeln('tang');
for j:=1 to n-1 do
if a[i]>a[i+1] then k:=k+1;
if k=n-1 then writeln('giam');
if (k<>n-1) and (m<>n-1) then writeln('khong sap xep');
readln;
end.
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: Nhật Huy Ninh Hòa   9/12/2016, 08:35

baì 2: cộng trừ
Code:
uses crt;
var a,b,c,n,i,j,k:integer;
    st:string;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap phep toan:');readln(st);
write('nhap so b:');readln(b);
if st='+' then i:=a+b;
if st='*' then i:=a*b;
writeln('ket qua la:',i);
readln;
end.
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content




Bài gửiTiêu đề: Re: Nhật Huy Ninh Hòa   

Về Đầu Trang Go down
 
Nhật Huy Ninh Hòa
Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» Thằng Bé Đánh Giày Người Nghĩa Lộ - Phạm Tín An Ninh
» Quan Họ
» 100 câu danh ngôn về tình yêu và tình bạn
» Nghỉ hè ở Mallorca - Phạm Tín An Ninh
» Về Tây Ninh thăm núi Bà Đen

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