Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
câu 1:
var x:string
y:integer
Câu 2:
var a,b:integer
begin
write('hay nhap gia tri cua a')
read(a)
wrietln('hãy nhập giá trị b')
read(b)
t:=a+b
writeln('tông cua a va b la',t)
1B 4C
2A 5A
3C 6C
7.
program TBC;
uses crt;
var a,b,tbc:real;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
tbc:=(a+b):2;
writeln('tbc cua hai so a va b la:',tbc:6:2);
readln;
end.
với cấu truc rẽ nhánh IF <điều kiện> THEN <câu lệnh>, câu lệnh đứng sau THENđược thực hiện khi
A. điều kiện được tính toán xong;
B. điều kiện được tính toán và cho giá trị đúng;
C. điều kiện không tính được;
D. điều kiện được tính toán và cho giá trị sai;
Trong Scratch:
1. Đúng. Có ba khối lệnh khác nhau để thể hiện cấu trúc lặp trong thuật toán là: "Lặp lại vô hạn", "Lặp lại" và "Lặp từ ... đến ...". Các khối lệnh này được sử dụng để lặp lại một đoạn mã trong chương trình một số lần hoặc vô hạn.
2. Sai. Cấu trúc lặp có thể được sử dụng để lặp lại một đoạn mã trong chương trình một số lần nhất định, hoặc lặp lại vô hạn lần. Ngoài ra, cũng có thể sử dụng biến để điều khiển số lần lặp.
3. Sai. Cấu trúc lặp trong Scratch không chỉ sử dụng để lặp lại một lệnh mà còn để lặp lại một đoạn mã bao gồm nhiều lệnh.
4. Đúng. Điều kiện dừng lặp phải là một biểu thức logic để xác định khi nào cần dừng vòng lặp. Ví dụ, điều kiện có thể là một biến đếm số lần lặp, một biểu thức so sánh hoặc một biểu thức logic phức tạp hơn.
1
Uses crt;
Var t,n,i:longint;
Begin
clrscr;
write('nhap vào số n: ');readln(n);
while n<1 do readln(n);
for i:=1 to n do t:=t*i;
write('tich tren co ket qua la: 't);
readln;
End.
2(bài này sử dụng mảng nhé)
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max:Integer;
Begin
Write('Nhap N='); Readln(N);
while N<1 do readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
Max:=A[1];
For i:=2 To N Do
If Max<A[i] Then Max:=A[i];
Writeln('so lon nhat trong day N:', Max);
Readln;
End.
3
Uses crt;
Var a:array[1..20]of integer;i,N,max,min:integer;
Begin
Clrscr;
Write(‘Nhap so phan tu cua day n=’);readln(n); For i:=1 to n do
Begin
Write(‘Nhap a[‘,i,’]=’);readln(a[i]);
End;
Min:=a[1]; Max:=a[1]; For i:=1 to N do
Begin
If (Min > a[i]) then Min:=a[i];
If (Max < a[i]) then Max:=a[i];
End;
Writeln('Day so vua nhap la: '); Writeln('————————-'); For i:=1 to N do
Write(a[i]:4); Writeln;
Writeln('Gia tri lon nhat la:',Max); Writeln('gia tri nho nhat la:',Min);
Readln;
End.
kiểm tra xem đúng ko nhé!