Chủ đề / Chương

Bài học

Hãy tham gia nhóm Học sinh Hoc24OLM
H24

hãy cho biết chương trình pascal sau đây có đúng hay không ?vì sao?

a) Program  Hieu_hai_so;

             Begin

                       Writeln(‘Hay nhap hai so’);

                        Readln(a,b);

                        Write(‘Hieu cua hai so la:‘,a-b);

             Var a,b: Integer;

              End

b) Program Tong_hai_so;

             Begin

                      Writeln(‘Hay nhap hai so’);

                     Readln(a,b);

                     Write(‘Tong cua hai so la:‘,a-b);

             Var a,b: Integer;

              End

Lớp 8 Tin học

Khách
 
DL
14 tháng 12 2021 lúc 16:32

t hong bt cái này ă, mà chỗ m lớp 8 đc hc tin học vui quá ha, t ko bt ba cái vụ này lun:<

Bình luận (1)
Các câu hỏi tương tự
NH

Có một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program Soam Soduong;

uses crt

var A, B: integer;

Begin

clrscr;

writeln(Nhap so A: );

readln(A);

if A > 0 then writeln(A,’ la so duong ‘);

else writeln(A,‘ la so am ’);

readln;

End.

Xem chi tiết
Lớp 8 Tin học
NH

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh;

usescrt;

var A, B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’); readln(A);

writeln(‘Nhap so B: ‘); readln(A);

if A <> B then writeln(A,’ khac ‘,B) else writeln(B,’ = ‘,A)

readln;

End.

Xem chi tiết
Lớp 8 Tin học
NH

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

program So_Sanh

uses crt;

var A B: integer;

begin

clrscr;

writeln(‘Nhap so A: ’) readln(A);

writeln(‘Nhap so B, khac so A: ‘); readln(B);

if A :> B then writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

end.

Xem chi tiết
Lớp 8 Tin học
NH

Một số câu lệnh trong chương trình sau viết không đúng, em hãy sửa lại cho đúng:

Program So_Sanh;

uses crt

var A: B= integer;

Begin

clrscr;

writeln(‘Nhap so A: ’);

readln(B);

writeln(‘Nhap so B, khac so A: ‘);

readln(B);

if A > B then; writeln(A,’ lon hon ‘,B) else writeln(B,’ lon hon ‘,A);

readln;

End.

Xem chi tiết
Lớp 8 Tin học
HT

Hãy tìm lỗi của chương trình và sửa lại cho đúng program Chuong_trinh uses crt; var a,b,c:=integer begin writeln('Nhap vao so a va b') readln(a,b) c:=a+b writeln('Ket qua :',c end

Xem chi tiết
Lớp 8 Tin học
HN

Program so_ sanh uses crt var A:B= integer; Begin clrscr; writeln ('Nhap so A:'); readln (B); if A>B then ; writeln (A,'lon hon,'B) else writeln (B,'lon hon ,'A); readln End

Xem chi tiết
Lớp 8 Tin học
NT

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Mảng A trong chương trình trên có số phần tử tối đa là bao nhiêu

Xem chi tiết
Lớp 8 Tin học
NT

Program bai; Var n,i: integer; A: Array[1..50]of integer; Begin Writa('nhap n='); Readln(n); For i:=1 to n do begin wrote ('A[' ,i, ']='); readln(A[i]); end; For i:=1 to n do if A[i]>0 then write(a[i], ' '); Readln; End. Biến n,i trong chương trình trên dùng dể làm gì?

Xem chi tiết
Lớp 8 Tin học
H24
program Nguyen_Dang_Khoa; uses crt; var a,b,c:real; begin clrscr; writeln(KIEM TRA TAM GIAC); writeln(nhap 3 canh a,b,c:); readln(a,b,c); if (a+bc) and (a+cb) and (b+ca)then begin writeln(day la 3 canh cua tam giac); if(a*ab*b+c*c) or(b*ba*a+c*c)or(c*ca*a+b*b)then writeln(TAM GIAC VUONG)else if(ab)and(bc)then writeln(TAM GIAC DEU) else if(ab)or(ac)or(bc)then writeln(TAM GIAC CAN)else writeln(TAM GIAC THUONG); end else writeln(khong phai ba canh tam giac); readln; end.
Đọc tiếp
Xem chi tiết
Lớp 8 Tin học

Khoá học trên OLM (olm.vn)


Khoá học trên OLM (olm.vn)