Tin[tin 11]viết chương trình

[cậu là của tớ???]

[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.

đề
in ra màn hình các số từ 1=>100 là số chẵn
tính tổng các số chẵn từ 1=>100
bài làm (biết đúng hay sai à= ko biết )
program Tong_chan;
use crt;
var S:real;
n:interger;
begin
clrscr;
write('nhap n vao') ;
readln(n);
for n:=1 to 100 do
if n mod 2=0 then write (n'chan')
else write ('a le');
S:=50n;
writeln('kết qua n:',n:6:2);
writeln('s:6:2' );
readln
end.
hay là thế này

program Tong_chan;
use crt;
var S:real;
n, i:interger;
begin
clrscr;
write('nhap n , i vao') ;
readln(n);
for n:=1 to 100 do
if n mod 2=0 then write (n'chan')
else write ('n le');
i:=2;
S:=i+n;
i:=i+2;
writeln('kết qua n:',n:6:2);
writeln('s:6:2' );
readln
end.
ai biết được chỉ mik
làm pascal
mik làm ko biết đúng hay sai

 

[Nhị Tiếu Khuynh Quốc]

đề
in ra màn hình các số từ 1=>100 là số chẵn
tính tổng các số chẵn từ 1=>100
bài làm (biết đúng hay sai à= ko biết )
program Tong_chan;
use crt;
var S:real;
n:interger;
begin
clrscr;
write('nhap n vao') ;
readln(n);
for n:=1 to 100 do
if n mod 2=0 then write (n'chan')
else write ('a le');
S:=50n;
writeln('kết qua n:',n:6:2);
writeln(''s:6:2' );
readln
end.
hay là thế này

program Tong_chan;
use crt;
var S:real;
n, i:interger;
begin
clrscr;
write('nhap n , i vao') ;
readln(n);
for n:=1 to 100 do
if n mod 2=0 then write (n'chan')
else write ('a le');
i:=2;
while (i>=1) and (i<=100) do
begin
S:=i+n;
i:=i+2;
writeln('kết qua n:',n:6:2);
writeln(''s:6:2' );
readln
end.
ai biết được chỉ mik

đây là dùng pascal à

 

[cậu là của tớ???]

đây là dùng pascal à

bài này mình đang làm theo kiểu pascal

 

[Nhị Tiếu Khuynh Quốc]

bài này mình đang làm theo kiểu pascal

nhưng cấp 3 là làm c++ nhỉ

 

[cậu là của tớ???]

nhưng cấp 3 là làm c++ nhỉ

mình học cấp 3 làm theo pascal
bạn xem mik làm đúng ko nhen

 

[Nhị Tiếu Khuynh Quốc]

làm tính tổng thì kiểu này cx đc
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

 

[cậu là của tớ???]

làm tính tổng thì kiểu này cx đc
Program viet_chuong_trinh_tinh_tong;
Uses Crt;
Var i,s:integer;
Begin
Clrscr;
i:=2;
While (i>1) and (i<=100) do
Begin
s:=s+i;
i:=i+2;
End;
Writeln(S);
Readln;
End.

phải làm kết hợp chẵn nữa
mà lện while chưa hk\
chỉ là mình đọc trước thui

 

[Nhị Tiếu Khuynh Quốc]

mk chạy thử thì cả 2 bài của bn đều bị lỗi

 

[cậu là của tớ???]

mk chạy thử thì cả 2 bài của bn đều bị lỗi

việc chạy chương trình
nếu dấu ko cách theo quy định thì chạy lỗi nhỉ bạn
hay mik k cần quan tâm tới dấu cách

 

[Nhị Tiếu Khuynh Quốc]

việc chạy chương trình
nếu dấu ko cách theo quy định thì chạy lỗi nhỉ bạn
hay mik k cần quan tâm tới dấu cách

thực ra thì k cần qtâm lắm đến dấu cách quan trọng là cách làm

 

[Nhị Tiếu Khuynh Quốc]

nếu cần j bn cứ hỏi @kingsman(lht 2k2) @ohyeah 97
đảm bảo giải đáp tận tình

 

[cậu là của tớ???]

program Tong_chan;
use crt;
var S:real;
n:interger;
begin
clrscr;
write('nhap n vao') ;
readln(n);
for n:=1 to 100 do
begin
if n mod 2=0 then write(n'chan')
else write('a le');
end.
for n:=1 to 100 do
begin
S:=50n;
end.
writeln('kết qua n:',n:6:2);
writeln('tinh tong S:' , S:6:2 );
readln
end.
bạn chay lại thử mik nhen

 

[Nhị Tiếu Khuynh Quốc]

program Tong_chan;
use crt;
var S:real;
n:interger;
begin
clrscr;
write('nhap n vao') ;
readln(n);
for n:=1 to 100 do
begin
if n mod 2=0 then write(n'chan')
else write('a le');
end.
for n:=1 to 100 do
begin
S:=50n;
end.
writeln('kết qua n:',n:6:2);
writeln('tinh tong S:' , S:6:2 );
readln
end.
bạn chay lại thử mik nhen

k bt sao nó vẫn lỗi

 

[datduong771988@gmail.com]

uses crt;
var i,n:integer;
t:byte;
s:longint;
begin
writeln('Cac so chan tu 1 den 100 la:');
s := 0;
t := 0;
for i:=1 to 100 do
if i mod 2 =0 then
begin
write(i:4);
inc(t);
if t=10 then
begin
writeln;
t := 0;
end;
s := s+i;
end;
write('Tong cua cac so chan tu 1 den 100 la:',s);
readln
end.

 

[cậu là của tớ???]

uses crt;
var i,n:integer;
t:byte;
s:longint;
begin
writeln('Cac so chan tu 1 den 100 la:');
s := 0;
t := 0;
for i:=1 to 100 do
if i mod 2 =0 then
begin
write(i:4);
inc(t);
if t=10 then
begin
writeln;
t := 0;
end;
s := s+i;
end;
write('Tong cua cac so chan tu 1 den 100 la:',s);
readln
end.

có chạy được k bạn

 

[datduong771988@gmail.com]

bài này chạy được rồi đấy

 

[datduong771988@gmail.com]

bạn có thể test lại cx được

 

[cậu là của tớ???]

if i mod 2 =0 then
begin
write(i:4);
inc(t);

câu lệnh này thieus else

 

[datduong771988@gmail.com]

tại sao? tưởng chỉ cần chỉ ra số chẵn thôi mà bạn?

 

[cậu là của tớ???]

tại sao? tưởng chỉ cần chỉ ra số chẵn thôi mà bạn?

vg tại em học cô bảo câu lệnh còn 1 nửa nữa ak