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.
Đoạn chương trình 1:
j=7
k=10
Đoạn chương trình 2:
j=7
k=28
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)
Vì sao?
- Rõ ràng, cụ thể về đối tượng tìm kiếm: năng lượng gió.
- Chỉ rõ phạm vi địa lý: tại Việt Nam.
- Nhắm đúng trọng tâm: ưu và nhược điểm.
Các từ khóa còn lại vì sao không phù hợp bằng?
- "Ưu và nhược điểm của năng lượng gió hiện nay"
→ Phạm vi quá rộng, có thể bao gồm thông tin toàn cầu, không tập trung vào Việt Nam. - "Ứng dụng của năng lượng gió, năng lượng mặt trời"
→ Không nhấn mạnh đến ưu – nhược điểm, lại nói chung cả 2 loại năng lượng. - "Lợi ích cho môi trường khi dùng năng lượng tái tạo"
→ Tập trung vào lợi ích môi trường, không đề cập nhược điểm, và bao quát nhiều loại năng lượng.
Kết luận:
Hãy chọn: "Ưu, nhược điểm của năng lượng gió tại Việt Nam".
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.
Khi nhập dữ liệu văn bản hoặc thao tác với hình ảnh, biểu tượng trên màn hình, em cần đến các thiết bị ngoại vi sau:
- Bàn phím : dùng để nhập dữ liệu văn bản.
- Chuột : dùng để chọn, di chuyển, thao tác với các hình ảnh, biểu tượng trên màn hình.
- Màn hình cảm ứng (nếu có): có thể dùng để chạm, chọn trực tiếp hình ảnh hoặc biểu tượng.
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é!