Tiêu đề: Giải đề cương Tin học.Thời gian: 13/12/2010, 6:26 pm |
---|
| | Mr.X Administrator | | | I'm : Huân Chương : Giới tính : Tổng Số Bài Gửi : 267 Ca3Cash : 5998 Danh Vọng : 93 Nơi ở : : Vũng Tàu 2school »Châm Ngôn Sống : ABCDEFG
| |
| | |
Message reputation : 100% (2 votes)
Bài 1: Program tenchuongtrinh; Var a,b,h,S:real; Begin Repeat Writeln('nhap vao day lon a,day nho b va chieu cao h');readn(a,b,h); Until (a>0) and (b>0) and (h>0); S:=(a+b)*h/2; Writeln('S la',S); Readln; End. Bài 2; Program timmax; Var a,b:integer; Begin Writeln('nhap a va b');readln(a,b); If a>b then Write('max:=a') Else write('max:=b'); Readln; End. Bài 3 Program chanle; Var n:integer; Begin Write('nhap n'),readln(n); If n mod 2=0 then write('n la so chan') Else write('n la so le'); Readln; End.
Bài 4: Program bai_4_a_b; Var i,k,n,Sa,Sb:interger; Begin Repeat Writeln('nhap n');readln(n); Until n>0; Sa:=0; For i:=2 to 1000 do Sa:=Sa+i; Sb:=2000; For k:=5 to n do Sb:=Sb+k; Writeln('Sa=',Sa); Writeln('Sb=',Sb); Readln; End. Bài 5: Program bai5; Var m,n,i,s:interger; Begin Writeln('nhap m,n');readln(m,n); s:=0; For i:=m to n do Begin if i mod 3=0 then S:=S+i; end; Readln; End. Chúc các bạn thi tốt nếu có thắc mắc gì gọi số 01664714922 cho mình
|
|
|
|
|
|
|
|
|
Tiêu đề: Giải đề cương Tin học.Thời gian: |
---|
| |
|
* Viết tiếng Việt có dấu, là tôn trọng người đọc. * Chia sẻ bài sưu tầm có ghi rõ nguồn, là tôn trọng người viết. * Thực hiện những điều trên, là tôn trọng chính mình. -Nếu chèn smilies có vấn đề thì bấm A/a trên phải khung viết bài
| Permissions in this forum: | Bạn không có quyền trả lời bài viết
| |
| |
Chia Sẻ Bài Viết Qua Các Mạng Xã Hội|| Trang 1 trong tổng số 1 trang | |