Write(' Nhap x = '); -> tác dụng..... Write(' Nhap y = '); -> tác dụng...... writeln(' so sanh '); -> tác dụng...... . . . Readln -> tác dụng......
Những câu hỏi liên quan
Tìm và sửa lỗi(nếu có) trong đoạn chương trình.Ví dụ:Program 2hocki; -hocki2; Uses crt -;Var x, y, s real; -x, y, s: real;BeginClrscr;Write(‘nhap x ’); read(x);Write(‘nhap y’); -in tb: nhap yread(y); - nhập gt cho y từ bàn phímSx+y; - thêm :If (x+y 10) then write(‘hop le’) else write(‘ko hop le’);Readln; End.
Đọc tiếp
Tìm và sửa lỗi(nếu có) trong đoạn chương trình.
Ví dụ:
Program 2hocki; ->hocki2;
Uses crt ->;
Var x, y, s= real; ->x, y, s: real;
Begin
Clrscr;
Write(‘nhap x= ’);
read(x);
Write(‘nhap y=’); ->in tb: nhap y=
read(y); -> nhập gt cho y từ bàn phím
S=x+y; -> thêm :=
If (x+y =10) then write(‘hop le’) else write(‘ko hop le’);
Readln;
End.
Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)Brogram Bai 1;Uses crt ;Var x, y integerBeginWrite(‘nhap vao gia tri cua x : ‘, ‘x’) ;Readln(x);Write(‘nhap vao gia tri cua y : ‘, ‘y’) ;Readln();Write(‘tong cua hai so x va y la:’, x+y) ; Readlnend
Đọc tiếp
Đọc và sửa sai các lỗi trong chương trình Pascal sau (1điểm)
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Đúng 0
Bình luận (0)
Đọc và sửa sai các lỗi trong chương trình Pascal sauBrogram Bai 1;Uses crt ;Var x, y integerBeginWrite(‘nhap vao gia tri cua x : ‘, ‘x’) ;Readln(x);Write(‘nhap vao gia tri cua y : ‘, ‘y’) ;Readln();Write(‘tong cua hai so x va y la:’, x+y) ; Readlnend
Đọc tiếp
Đọc và sửa sai các lỗi trong chương trình Pascal sau
Brogram Bai 1;
Uses crt ;
Var x, y = integer
Begin
Write(‘nhap vao gia tri cua x : ‘, ‘x=’) ;
Readln(x);
Write(‘nhap vao gia tri cua y : ‘, ‘y=’) ;
Readln();
Write(‘tong cua hai so x va y la:’, x+y) ;
Readln
end
Program Bai1;
uses crt;
var x,y:integer;
begin
write('nhap vao gia tri cua x:');
readln(x);
write('nhap vao gia tri cua y:');
readln(y);
write('Tong cua hai so x va y la: ',x+y);
readln;
end.
Đúng 0
Bình luận (0)
huyển sang C++ với ạ: Program Tinh_Trung_Binh; uses crt; Var n,dem:Integer; x,TB:real; begin clrscr; dem:=0 ;TB:=0; write('nhap so cac so can tinh n=');realdn(n) while dem<n do begin dem:=dem+1 write('nhap so thu' ,dem,'='); readl(x); TB:=TB+x; end; TB:=TB/n; writeln('Trung binh cua',n,` so la =',TB:10:3); writeln('nhap Enter de thoat...'); readln; end.
Cho đoạn chương trình, tìm lỗi sai sửa lại cho đúng:
1) program : bai1;
var x,y:= interger;
x=7; n=2.68;
begin
writeln(nhap so x); realn(x);
writeln(nhap so y); realn(y);
if x mod 2 = 0 then y=y x ; else
y:=y n;
write (‘ket qua phep tinh la’ , y);
r...
Xem chi tiết
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
program bai1;
uses crt;
var x,y,n:integer;
begin
clrscr;
x:=7;
n:=2.68;
write('nhap so x:'); readln(x);
write('nhap so y:');readln(y);
if x mod 2 =0 then y:=y*x
else y:=y*n;
write('ket qua phep tinh la:', y);
readln
end.
Đúng 1
Bình luận (0)
1. Cho biết đoạn chương trình sau làm công việc gì?
Writeln('nhap so hoc sinh trong lop=');readln(x);
While(x<1) or (x>50) do
begin
write('nhap lai');readln(x);
end;
Đoạn chương trình thực hiện công việc nếu số học sinh trong lớp bé hơn 1 hoặc lớn hơn 50 thì nhập lại số học sinh. Số học sinh thõa mãn khi nằm trong khoảng 1 đến 50 học sinh trong một lớp.
Đúng 0
Bình luận (0)
Câu 1: Tìm và sửa lỗi(nếu có) trong đoạn chương trình sau:
Var a, b: real
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If (a+b) := 120 then a =120-b;
Readln
End;
Câu 2: Cho biết kết quả của biến s sau đoạn chương trình sau:
a:=5;
s:=58;
If s>=70 then s:=s+2 else s:=s+a;
câu 1:
Var a, b: real;
Begin
Clrscr;
Write(‘nhap a=’), read(a);
Write(‘nhap b=’); read(b);
If a+b = 120 then a:=120-b;
Readln
End.
câu 2:
s = 63
Đúng 0
Bình luận (0)
Em hãy hoàn thành đoạn chương trình nhập chiều cao của N bạn trong lớp bằng cách sắp xếp các câu lệnh sau theo đúng thứ tự (1) readln(N); (2)write('nhap chieu cao cua tung ban tinh theo m'); (3)write('hay nhap so hoc sinh trong lop :'); (4)begin (5)end; (6)for i:=1 to N do (7)read (a[i]); (8)write (a'[',i,']=') Giúp tôi với
(2) write(‘hay nhap so hoc sinh trong lop :’);
(1) readln(N);
(3) write(‘nhap chieu cao cua tung ban tinh theo m’);
(6) for i:=1 to N do
(4) begin
(7) read (a[I]);
(8) write (a’[‘,i,’]=')
(5) end;
Đúng 0
Bình luận (0)
Chuyển sang C++ giúp mình với ạ 1: uses crt;var a,b,i,tsc,tsl:integer;beginclrscr;write(nhap a); readln(a);write(nhap b); readln(b);if (a0) and (b0) thenbeginif ab thenbegintsc:0;tsl:0;for i:a to b doif i mod 20 then tsc:tsc+ielse tsl:tsl+i;writeln(tong cac so chan trong khoang tu ,a, toi ,b, la: ,tsc);writeln(tong cac so le trong khoang tu ,a, toi ,b, la: ,tsl);endelse writeln(vui long nhap a be hon b);endelse writeln(vui long nhap hai so duong);readln;end.
Đọc tiếp
Chuyển sang C++ giúp mình với ạ 1:
uses crt;
var a,b,i,tsc,tsl:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if (a>0) and (b>0) then
begin
if a<b then
begin
tsc:=0;
tsl:=0;
for i:=a to b do
if i mod 2=0 then tsc:=tsc+i
else tsl:=tsl+i;
writeln('tong cac so chan trong khoang tu ',a,' toi ',b,' la: ',tsc);
writeln('tong cac so le trong khoang tu ',a,' toi ',b,' la: ',tsl);
end
else writeln('vui long nhap a be hon b');
end
else writeln('vui long nhap hai so duong');
readln;
end.
#include <bits/stdc++.h>
using namespace std;
int a,b,s1,s2,s;
int main()
{
cin>>a>>b;
s1=0; s2=0;
for (int i=a; i<=b; i++)
{
if (i%2==0) s1+=i;
else s2+=i;
}
cout<<s1<<endl;
cout<<s2;
return 0;
}
Đúng 0
Bình luận (0)
