Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
23/4/2012, 7:43 pm
russia_mkqn21
.:Member:.
Subject: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
Hầy...dạo này sắp thi HK II rùi nên tớ hơi lo...aj biết thì làm hộ tớ mấy cái chương trình pascal vs....mak ai có đề côg nghệ thì giúp tớ vs nhé...thứ 4 kt rùi...cả địa, sinh, anh nữa...
Còn đây là đề tin: 1. Viết chương trình nhập vào 1 số nguyên có 3 chữ số. Kiểm tra xem số này có phải là số đối xứng hay ko? 2. Viết chương trình nhập vào 1 dãy số nguyên cho đến khi gặp số 0. Tính tổng nghịch đảo của các chữ số vừa nhập. 3. Viết chương trình nhập vào 1 dãy số nguyên cho đến khi gặp số âm. Đếm số lượng các số chẵn ko tính số âm. 4. Viết chương trình nhập vào một dãy số cho đến khi gặp số 0. Thông báo ra màn hình những số hoàn hảo.
Số lượt Thanks trong bài viết:Message reputation : 100% (2 votes)
23/4/2012, 11:26 pm
shinichikudo275
.:Experienced:.
» Mình là :
» Tổng số bài gửi : 745
» Xèng 0.0 : 6199
» Uy Danh : 272
» Ngày "Oa oa" : 1990-05-27
» Ngày gia nhập : 2011-06-03
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
mấy bài này ta k còn lưu trong máy nữa
u tạm lên Google sớt vậy , lên đó tha hồ
24/4/2012, 9:48 am
Black_Cat
.:Newbie:.
» Mình là :
» Tổng số bài gửi : 2
» Xèng 0.0 : 11
» Uy Danh : 0
» Ngày "Oa oa" : 1999-12-20
» Ngày gia nhập : 2012-04-24
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
không hiểu mấy cái này
p/s: đề lớp mấy ấy nhỉ
24/4/2012, 11:21 am
russia_mkqn21
.:Member:.
» Mình là :
» Tổng số bài gửi : 143
» Xèng 0.0 : 1037
» Uy Danh : 85
» Ngày "Oa oa" : 1998-02-21
» Ngày gia nhập : 2012-04-18
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
đề lớp 8 mak....please...giúp tớ cái nào....sắp thi hok hì rùi....ko thi đc cô cho ăn chưởng.... làm sao bây h.....
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
24/4/2012, 11:24 am
girlprincess1996
.:Admin:.
» Mình là :
» Tổng số bài gửi : 4936
» Xèng 0.0 : 31458
» Uy Danh : 696
» Ngày "Oa oa" : 1996-12-01
» Ngày gia nhập : 2010-07-01
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
Chịu thôi em ơi, ss dốt cái nì lắm ! Chia buồn cùng em ! Em lên gg "sợt" đại đi ! Không giúp gì được cho em nên đành tặng em cái thanks vậy !^^
24/4/2012, 12:51 pm
shinichikudo275
.:Experienced:.
» Mình là :
» Tổng số bài gửi : 745
» Xèng 0.0 : 6199
» Uy Danh : 272
» Ngày "Oa oa" : 1990-05-27
» Ngày gia nhập : 2011-06-03
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
mai e thi à ?
nếu k tìm đc thì trước 12h tối nay lên c làm cho
lớp 8 mà đã học pascal rồi à ?
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
24/4/2012, 8:58 pm
russia_mkqn21
.:Member:.
» Mình là :
» Tổng số bài gửi : 143
» Xèng 0.0 : 1037
» Uy Danh : 85
» Ngày "Oa oa" : 1998-02-21
» Ngày gia nhập : 2012-04-18
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
shinichikudo275 wrote:
mai e thi à ?
nếu k tìm đc thì trước 12h tối nay lên c làm cho
lớp 8 mà đã học pascal rồi à ?
oy`...thật thek hả chị tks chị cái nez...kiểu j trc 12 h tối nay em cũng lên chị ạ... ak...em cũng còn 2 bài nữa, nếu có thể thì chị làm hộ em luôn nhé
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
24/4/2012, 11:51 pm
shinichikudo275
.:Experienced:.
» Mình là :
» Tổng số bài gửi : 745
» Xèng 0.0 : 6199
» Uy Danh : 272
» Ngày "Oa oa" : 1990-05-27
» Ngày gia nhập : 2011-06-03
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
câu 1 : kiểm tra số đối xứng
Code:
program sodx; uses crt ; var n ,i,j :integer; a: array[1..10]of integer;
BEGIN clrscr; i:=1; repeat writeln('nhap so n'); readln(n); until (n>=100) and (n<=999);
{tach cac chu so} while (n>0) do begin
a[i]:=n mod 10; n:=n div 10; i:=i+1; end;
writeln('so chu so cua so do la: ',i-1); {dem lai so chu so}
{ca chu so cua so da cho } for j:=1 to i-1 do begin writeln('cac chu so cua so da cho :'); writeln('a[',j,']=',a[j]); end;
{kiem tra su doi xung} if (a[1]=a[3]) then writeln('so da cho la so dx') else writeln('so da cho khong phai la so doi xung ');
readln;
END.
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
25/4/2012, 12:23 am
shinichikudo275
.:Experienced:.
» Mình là :
» Tổng số bài gửi : 745
» Xèng 0.0 : 6199
» Uy Danh : 272
» Ngày "Oa oa" : 1990-05-27
» Ngày gia nhập : 2011-06-03
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
câu 2 : tính tổng nghịch đảo
Code:
program tong_nghich_dao; uses crt ; var n ,i,j :integer; s: real; a: array[1..100] of integer;
BEGIN clrscr; s:=0; i:=1; repeat write('nhap so a[',i,']='); readln(a[i]);
if (a[i] <> 0) then s:=s+ (1/a[i]); i:=i+1; until (a[i-1]=0); { for j:=1 to i-2 do s:=s+ (1/a[j]); }
writeln('tong S= ',s); readln; END.
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
25/4/2012, 12:38 am
russia_mkqn21
.:Member:.
» Mình là :
» Tổng số bài gửi : 143
» Xèng 0.0 : 1037
» Uy Danh : 85
» Ngày "Oa oa" : 1998-02-21
» Ngày gia nhập : 2012-04-18
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
eo...sao chị giỏi thek em hok cả năm trời ko vào đầu đc chữ nào nên ms p? đị ăn xin nez khó quá ko nhaj đc
mak em tks chị rùi nhá.. 2
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
25/4/2012, 12:46 am
shinichikudo275
.:Experienced:.
» Mình là :
» Tổng số bài gửi : 745
» Xèng 0.0 : 6199
» Uy Danh : 272
» Ngày "Oa oa" : 1990-05-27
» Ngày gia nhập : 2011-06-03
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
tại vì nó là chuyên ngành của c mà lớp 8 bây giờ đã đc học pascal rồi ah? mình thành người cổ lỗ rồi
câu 3 : đếm các số chẵn trong chuỗi đã nhập
Code:
program so_luong_so_chan; uses crt ; var n ,i,j :integer; dem : integer; a: array[1..100] of integer;
BEGIN clrscr; dem:=0; i:=1; repeat write('nhap so a[',i,']='); readln(a[i]);
if (a[i] > 0) and (a[i] mod 2 = 0) then dem:=dem+1 ; i:=i+1; until (a[i-1]<0);
writeln('tong so chan S= ',dem); readln; END.
Last edited by shinichikudo275 on 25/4/2012, 1:16 am; edited 1 time in total
25/4/2012, 1:13 am
shinichikudo275
.:Experienced:.
» Mình là :
» Tổng số bài gửi : 745
» Xèng 0.0 : 6199
» Uy Danh : 272
» Ngày "Oa oa" : 1990-05-27
» Ngày gia nhập : 2011-06-03
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?
đã xong cho e 4 câu rồi nhá tất cả đều đã được test trên Turbo Pascal chúc e mai thi tốt !
câu 4 : tìm các số hoàn hảo
Code:
program nhung_so_hoan_hao; uses crt ; var n ,i,j :integer; dem : integer; a: array[1..100] of integer;
procedure so_hoan_hao(n:integer); var tong ,i: integer ; begin
tong:=0; for i:=1 to n-1 do if (n mod i =0 ) then tong := tong + i ;
if (n=tong) then writeln(n, ' la so hoan hao') else writeln(n, ' khong phai la so hoan hao'); end;
BEGIN clrscr; writeln('so hoan hao la so co tong cac uoc (khong ke chinh no) bang no '); i:=1; repeat write('nhap so a[',i,']='); readln(a[i]); if (a[i] <> 0) then so_hoan_hao(a[i]); i:=i+1; until (a[i-1]=0);
readln; END.
Số lượt Thanks trong bài viết:Message reputation : 100% (1 vote)
Sponsored content
» Hiện giờ đang:
Subject: Re: Giúp tớ mấy cái đề kt này vs....sắp kt học kì II rùi >"<?