Viết câu lệnh rẽ nhánh tính:
Viết câu lệnh rẽ nhánh tính:
Cách 1:
if (x >= 0) and (y >= 0)
then A:= sqr(x) + sqr(y) + 1 else A:= sqrt(x*y);
Cách 2:
if ( x < 0) and (y < 0)
then A:= sqrt(x*y) else A:= sqr(x) + sqr(y) + 1;
Câu 1: Mỗi câu lệnh dưới đây đều có lỗi sai, em hãy sửa lại cho đúng
a) For i:= 17 to 109 do writeln (‘a);’
b) For i:= 1 to 10 do x=x+1;
c) S:= 7
While S:= 15 do n:=n+s;
d) Var a:=array [1…100] of real;
Câu 2: Viết chương trình Pascal tính và in giá trị của tổng S ra màn hình với
S= 1000+1001+1002+…+1021
Câu 3: Nêu cú pháp sử dụng lệnh For…do lệnh While…do:
Câu 4: Nêu cú pháp khai báo biến mảng trong chương trình Pascal:
Giải giúp mình với mai cô kiểm tra rồi!!!
câu 1:
a)for i:=17 to 109 do writeln('a');
b)for i:=1 to 10 do x:=x+1;
c)s:=7;
while s<=15 do
begin
n:=n+s;
s:=s+1;
end;
d)var a:array[1..100] of real;
câu 2:
program tihn_tong;
uses crt;
var s,i:integer;
begin
clrscr;
i:=1;s:=1000;
while i<=21 do
begin
s:=s+1000+i;
i:=i+1;
end;
writeln(s);
readln;
end.
câu 3:
cú pháp của lệnh for...to...do:
for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<công việc>
cú pháp của lệnh while...do:
while<điều kiện>do<công việc>
câu 4:
cú pháp khai báo biến mang trong chương trình pascal:
khai báo trực tiếp:
var <biến mảng>:array[chỉ số]of <kiểu dữ liệu>
khai báo gián tiếp:
type <biến mang> =array[chỉ số]of <kiểu dữ liệu>
Câu 1:
a) for i:=17 to 109 do
writeln('a');
Câu 1:
b) for i:=1 to 10 do
x:=x+1;
Viết ba câu mệnh lệnh = tiếng anh
( thời hiên tại hoàn thành )
Nhờ các cậu dùm cái nha !
don' t chew gum in the class
keep quiet
listen and repeat
sử dụng lệnh while..............do viết chương trình in ra màn hình nhỏ hơn 100 Mn giúp mik vs ạ !
Mình viết phần thân thôi nha
n khai báo là interger
n:=0;
While n<>100 do
Begin
Write(n,' ');
inc(n);
end;
PROGRAM LOSER;
USES crt;
VAR
i:Bytbe;
BEGIN
clrssr ();
i:=1;
while i <100 do
BEGIN
write('',i);
i:=i+1;
End;
Readln;
END.
( uy tín chạy được em nha)
Một số câu lệnh trong ct sau đây viết ko đúng, em hãy sửa lại những lỗi sai
program So_sanh
usercrt;
var A,B=interger;
Begin clrscr;
writeln('Nhap so A:'); readln(A);
writeln('Nhap so B:'); readln(B);
if A <> B then writeln('A',' khac ',B) else writeln(B,'=' ,A)
readln
End.
Viết chương trình nhập vào từ bàn phím số nguyên dương N, sử dụng câu lệnh điều kiện để tính tổng các giá trị lag số lẻ trong phạm vi từ 1 đến N, sau đó in ra màn hình
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
for i:=1 to n do
if i mod 2=1 then s:=s+i;
writeln(s);
readln;
end.
Một bình thông nhau gồm hai nhánh a va b do nc vào nhánh a cao 10 cm đổ dầu vào b cao 15cm đặt pit tong lên a có kl 100g va vừa khit a dnc la 10000 ko tính thể tích đáy vs ap xuất khí quyển
A tính ap xuất mỗi nhánh biết diện tích a la 20cm
GIÚP MÌNH VỚI!!!
Một ống chữ U hai nhánh như nhau chứa thủy ngân, người ta đổ vào nhánh phải một cột nước cao 34cm.
a, Hãy tính độ dâng của thủy ngân ở nhánh trái
b, Người ta đổ dầu vào nhánh trái sao cho mặt thoáng của dầu và nước ngang nhau. Xác định độ cao của dầu.
Đọc trước văn bản Nắng mới, áo đỏ và nét cười đen nhánh (Về bài thơ “Nắng mới” của Lưu Trọng Lư), tìm hiểu thêm những văn bản nghị luận viết về tác phẩm Nắng mới.
Một số văn bản nghị luận về tác phẩm Nắng mới:
https://www.qdnd.vn/van-hoa/sach/nang-moi-thi-pham-hay-ve-nguoi-me-709974
https://sachgiai.com/Toan-hoc/binh-giang-bai-tho-nang-moi-cua-luu-trong-lu-13976.html