Tin học Chương trình con

[hocgioi2013]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

chương trình con:
nhập 2 số nguyên dương bất kì trong khoảng (0-->50)
a)tính tổng 2 số nguyên dương
b)tính lũy thừa 2 số nguyên dương

 

[hocgioi2013]

Cho mình hỏi là mình bị sao lỗi nào vậy thanks mn

 

[H.Đ.O.M.G]

hình lỗi rồi bạn không thấy gì cả

 

[H.Đ.O.M.G]

var a:array[1..50] of integer;
       i,s,k,l:integer;
begin
          writeln('nhap n ');
          readln(n);
          k:=0;s:=0;l:=0;
            for i:=1 to n do
                      begin
                                 writeln(' a[',i,']');
                                  readln(a[i]);
                       end;
            for i:=1 to n do
             s:=s+a[i];
              for i:=1 to n do
               begin
                    k:=a[1]*2;
                    l:=a[2]*2;
               end;
writeln('tong nguyen duong',s);
writeln('luy thua 2 so nguyen duongw',k,' ',l,');
readln;
end.

 

[hocgioi2013]

var a:array[1..50] of integer;
       i,s,k,l:integer;
begin
          writeln('nhap n ');
          readln(n);
          k:=0;s:=0;l:=0;
            for i:=1 to n do
                      begin
                                 writeln(' a[',i,']');
                                  readln(a[i]);
                       end;
            for i:=1 to n do
             s:=s+a[i];
              for i:=1 to n do
               begin
                    k:=a[1]*2;
                    l:=a[2]*2;
               end;
writeln('tong nguyen duong',s);
writeln('luy thua 2 so nguyen duongw',k,' ',l,');
readln;
end.

ko có procedure hay function vậy bạn với lại nhập 2 số và tính tổng 2 số sao lại dùng vòng lập vậy bạn.

 

[hoaithuong14102016@gmail.com]

Giúp mình bài này vs
Nhập vào mảng A gồm 100 chữ số và số nguyên dương k, kiểm tra mảng vừa nhập có bao nhiêu chữ số chia hết cho k
@học mãi.vn.com ,@hocgioi2013

 

[H.Đ.O.M.G]

var a:array[1..100] of longint;
k,count:longint;
begin
read(k);
count:=0;
for i:=1 to 100 do
begin
if a mod k =0 then
inc(count);
end;
writeln(count);
readln;
end;

 

[H.Đ.O.M.G]

Giúp mình bài này vs
Nhập vào mảng A gồm 100 chữ số và số nguyên dương k, kiểm tra mảng vừa nhập có bao nhiêu chữ số chia hết cho k
@học mãi.vn.com ,@hocgioi2013

var a:array[1..100] of longint;
k,count:longint;
begin
read(k);
count:=0;
for i:=1 to 100 do
begin
if a[i] mod k =0 then
inc(count);
end;
writeln(count);
readln;
end;

 

[Thanh Phuong Tran]

Cái của bạn là thiếu Procedure hay Function. Procedure là bạn dùng CT con nhưng nó sẽ không trả về giá trị gì, tức là bạn sẽ không thể thực hiện phép tính và gán kết quả vào biết chính của CT con! Còn Function thì bạn có thể thực hiện phép tính và gán kết quả bạn muốn trả về cho biến chính của CT con!

 

[hoaithuong14102016@gmail.com]

var a:array[1..100] of longint;
k,count:longint;
begin
read(k);
count:=0;
for i:=1 to 100 do
begin
if a[i] mod k =0 then
inc(count);
end;
writeln(count);
readln;
end;

còn vế bao nhiêu số mà, liệu mình phải đếm ko

 

[hoaithuong14102016@gmail.com]

Giúp mình bài này vs
Nhập vào mảng A gồm 100 chữ số và số nguyên dương k, kiểm tra mảng vừa nhập có bao nhiêu chữ số chia hết cho k
@học mãi.vn.com ,@hocgioi2013

cungx đề như trên but mà xác định vị trí k trong mảng
@học mãi.vn.com ,@hocgioi2013

 

[H.Đ.O.M.G]

cungx đề như trên but mà xác định vị trí k trong mảng
@học mãi.vn.com ,@hocgioi2013

var a:array[1..100] of longint;
k,count,chiso:longint;
begin
read(k);
count:=0;
chiso:=0;
for i:=1 to 100 do
begin
if a[i] mod k =0 then
inc(count);
end;
for i:=1 to 100 do
begin
if k=a[i] then chiso:=i;
end;
writeln(count,' ',chiso);
readln;
end;