Một số kĩ thuật cơ bản của Pascal

[Em Chán Gà]

Một số kỹ thuật nên dùng:
- Xây dựng một thư viện riêng với các hàm - thủ tục thường xuyên sử dụng
- Nguyên tắc đặt tên biến: Hoặc quy ước các chữ cái cho từng loại biến, hoặc dùng biến gợi nhớ.
- Để gọi help của một lệnh, hàm có sẵn, bôi đen tên của lệnh, hàm (có thể gõ gần đúng)... rồi nhấn CTRL + F1.
-

[kickbuttowski]

co ai biet lam bai pascal nay ko?
tim tong cua tat ca cac so nguyen to tu 1 den 100 (dung menh de if , cau lenh while do va for to do)

[venus.tt9x]

co ai biet lam bai pascal nay ko?
tim tong cua tat ca cac so nguyen to tu 1 den 100 (dung menh de if , cau lenh while do va for to do)

tạo function kiểm tra ntố, rồi kiểm tra từ 2 đến 100. nếu i là n tố thì cộng thêm i vào s
[code\]
program nt;
var s:integer;
function nt(x:byte):boolean;
var i,d:byte
begin
for i:=2 to trunc(x) do
if x mod i =0 then inc(d);
nt:=(d=0);
end;

BEGIN
for i:=2 to 100 do
if nt(i) then s:=s+i;
writeln('tong can tih la',s);
readln;
END.
[/code]

[shadow waker]

mai mình phải nộp bài rùi các bạn giúp mình với không có bài là die mình đó(. thanks mọi người!!


Bài số 1: Hãy xác định số tiền vay, trả và hạn mức tín dụng trong 6 tháng đầu năm 2011 của công ty ABC dựa trên bảng số liệu sau:
Tháng 1 2 3 4 5 6
1. Tổng thu trong kỳ 200 200 250 300 350 400
2. Tổng chi trong kỳ 230 280 320 360 190 200
3. Ngân lưu ròng
4. Số dư tiền đầu kỳ 10
5. Thặng dư/thâm hụt
6. Số dư tiền tối thiểu 15 15 15 15 10 10
7. Vay (+)/ Trả (-) trong kỳ
8. Dư nợ vay cuối kỳ
9. Hạn mức tín dụng

Biết rằng:
 Ngân lưu ròng = Tổng thu trong kỳ - Tổng chi trong kỳ
 Số dư tiền đầu kỳ = Số dư tiền cuối kỳ của kỳ trước
 Thặng dư / Thâm hụt = Số dư tiền đầu kỳ + Ngân lưu ròng
 Vay / trả trong kỳ:
 Nếu thâm hụt: Vay/trả trong kỳ = Số dư tiền tối thiểu - Giá trị thâm hụt
 Nếu thặng dư và giá trị thặng dư lớn hơn số dư tiền tối thiểu: Vay/trả trong kỳ = Giá trị thặng dư - Số dư tiền tối thiểu. Ngược lại: Vay trả trong kỳ = Số dư tiền tối thiểu – giá trị thặng dư trong kỳ
 Hạn mức tín dụng = max(hạn mức tín dụng tháng i (với i = 1..6))
Yêu cầu:
1. Hãy xuất ra thông tin chi tiết của 6 tháng đầu năm 2011.
2. Hãy tìm và xuất ra thông tin của tháng có giá trị thặng dư lớn nhất, giá trị thâm hụt lớn nhất.
3. Hãy xuất ra thông báo cho nhà tín dụng biết hạn mức tín dụng tính được từ các dữ liệu cho trên là bao nhiêu?
4. Hãy xuất ra thông tin của các tháng theo thứ tự tăng dần của ngân lưu ròng.
5. Hãy xuất ra thông tin của các tháng theo thứ tự giảm dần của dư nợ vay cuối kỳ.
6. Hãy nhập thêm vào bảng dữ liệu cho sẵn cột tháng 7 với giá trị tổng thu trong kỳ là 450, tổng chi trong kỳ 480. Hãy xuất ra thông tin của 7 tháng đầu năm 2011.

[ahnioht]

ai biết đoan chương trình này không .bao mình hiểu cái
program da;
uses crt;
Var
P:real;Y:byte;
Const
W = 208.3; a = 100;
procedure tieude;
begin
textbackground (1);
textcolor(7);
gotoxy(30,5);
writeln('DO LUC VA UNG SUAT');
gotoxy(20,25);
writeln('Copyright by HA THANH LAM - PHAM TRONG QUYNH ');
end ;
procedure docdulieu;
var X1,X2,X:byte;
begin
port[$378] := $03;
port[$378] := $13;
port[$378] := $33;
port[$378] := $23;
port[$378] := $03;
repeat
X:= port[$379] and $08
until X = $08;
X1:= ((port[$379] SHR 4) XOR $08);
port[$378] := $0B;
X2:= ((port[$379] AND $F0) XOR $80);
Y:= X1 OR X2;
delay(1000);
end;
Procedure LUC;
Var
g:real;
Begin
g:=7.84;
p:=y*g;
gotoxy(20,7);
writeln('LUC : P = ',p:8:3, ' gram');
End;
Procedure UNGSUAT;
Var
sigma:real;
Begin
sigma:= (p*a)/W;
gotoxy(19,9);
write(' UNG-SUAT : Sigma = ',sigma:8:3, ' gram/mm^2');
End;
Procedure BIENDANG;
Var
epsilon,e : real;
Begin
e:=5000;
epsilon:=(p*a)/(w*E);
gotoxy(20,11);
write('BIEN-DANG : Epsilon = ', epsilon:8:3, ' us');
End;
Procedure OFFSET;
Var
X:real;
Begin
Repeat
docdulieu ;
gotoxy(20,5);
writeln(X);
delay(10000);
gotoxy(20,5);
writeln(' ');
Until Upcase(readkey) = 'N';
End;
{================CHUONG TRINH CHINH===================}
BEGIN
CLRSCR;
tieude;
repeat
docdulieu;
luc;
ungsuat ;
biendang;
delay(10000);
delay(1500);
until keypressed;
END.

[Brantanna]

Chương trình này chạy trên máy tính có kết nối với một mạch điện tử qua cổng song song (parallel) để đọc dữ liệu vào tương ứng với các byte điều khiển xuất ra từ máy tính và tính toán lực, ứng suất, độ biến dạng rồi xuất kết quả ra màn hình.

[Brantanna]

@ahnioht: Bạn nhắn tin PM hỏi, nhưng vấn đề là bạn không nói là bạn có biết gì về Pascal hay Delphi hay không, và hỏi rất chung chung nên cũng không biết trả lời thế nào. Mình sẵn sàng hướng dẫn những gì mình biết nhưng cũng phải biết là bạn biết được gì rồi. Vậy nhé!

[ahnioht]

rất mong bạn có thể giúp mình

[anhhoacuc]

Program so6cs;
Uses Crt;
Var a,dv,ch,n,ng,u,v,tr,dem,dem2,schan,k,sle,i:longint ;l:integer;
Begin
Clrscr;
Write('Nhap so n:');
Readln(n);
u:=n div 100000;
v:=n div 10000;
v:=v mod 10;
ng:=n div 1000;
ng:=ng mod 10;
tr:=n div 100;
tr:=tr mod 10;
ch:=n div 10;
ch:=ch mod 10;
dv:=n mod 10;
{Write(u,' ',v,' ',' ',ng,' ',tr,' ',ch,' ',dv);}
Sle := 0;
schan:=0;
a:=n;
For l:=1 to 6 do
Begin
k := N mod 10;
If k mod 2 <>0 then
begin
N := N div 10;
if k mod 2 <> 0 then
Sle := Sle + k;
end
Else
Begin
i := a mod 10;
a := a div 10;
if i mod 2 = 0 then
schan := Schan + i;
end;
Writeln( 'Tong cac chu so chan la :', Schan);
Writeln( 'Tong cac chu so le la :', Sle);
Readln;
end;
end.

[JeremyBelpois]

Bạn anhhoacuc viết có lẽ là sai phần Begin end, với lại thuật toán này viết quá dài, khó hiểu. mình có cách khác nhanh hơn:

Program so6cs;
Uses Crt;
Var n:longint;
    k,tle,tchan:integer;

begin
    write('NHAP N : ');readln(n);
    tle:=0;
    tchan:=0;
    while n>0 do
      begin
         k:=n mod 10;
         if k mod 2 = 0 then tchan:=tchan+k else
                             tle:=tle+k;
         n:=n div 10;
      end;
    writeln('Tong cac chu so le : ',tle);
    writeln('Tong cac chu so chan : ',tchan);
    readln; 
end.