Em hãy sử dụng ngôn ngữ lập trình Pascal để viết chương trình cho phép nhập vào 3 số nguyên dương. Và thực hiện các yêu cầu sau: 1.1. Kiểm tra xem 3 số vừa nhập có thỏa mãn là độ dài 3 cạnh của 1 ta...

RG

r4wrw gẻg

19 tháng 12 2018

Em hãy sử dụng ngôn ngữ lập trình Pascal để viết chương trình cho phép nhập vào 3 số nguyên dương. Và thực hiện các yêu cầu sau: 1.1. Kiểm tra xem 3 số vừa nhập có thỏa mãn là độ dài 3 cạnh của 1 tam giác ABC hay không? Hiển thị thông báo tương ứng? 1.2. Nếu 3 số vừa nhập thỏa mãn là độ dài 3 cạnh của 1 tam giác thì tiến hành kiểm tra xem tam giác đó có phải là tam giác cân hay không? 1.3. Nếu tam giác đó là tam...

Đọc tiếp

#Tin học lớp 8

0

A

Anhthuwliz

25 tháng 12 2021

Câu 2: Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập ba số a, b, c nguyên dương từ bàn
phím và kiểm tra ba số a, b, c có phải là độ dài ba cạnh của một tam giác không?

#Tin học lớp 8

1

BN

Bảo Nam

2 tháng 6 2022

a = int(input())
b = int(input())
c = int(input())
if a**2+b**2==c**2:
print(a,b,c,"la ba canh cua tam giac")
elif a**2+c**2==b**2:
print(a,b,c,"la ba canh cua tam giac")
elif b**2+c**2==a**2:
print(a,b,c,"la ba canh cua tam giac")
else:
print(a,b,c,"khong la ba canh cua tam giac")

Đúng(0)

HA

Hoshimiya Akari

4 tháng 5 2021

Thực hiện viết chương trình:

1: Tính tổng các số từ M -> N

2: Kiểm tra 1 số nguyên nhập từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết (yêu cầu sử dụng CTC để viết)

#Tin học lớp 11

2

NL

Nguyễn Lê Phước Thịnh

5 tháng 5 2021

Bài 1:

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

t:=0;

for i:=m to n do

t:=t+i;

writeln(t);

readln;

end.

Đúng(0)

NL

Nguyễn Lê Phước Thịnh

5 tháng 5 2021

2:

uses crt;

var n:integer;

{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}

function ktcl(x:integer):boolean;

begin

if x mod 2=0 then ktcl:=true

else ktcl:=false;

end;

{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}

fucntion ktda(x:integer):boolean;

begin

if x>0 then ktda:=true

else if x<0 then ktda:=false;

end;

{--------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

write('Nhap n='); readln(n);

if ktcl(n)=true then writeln('Day la so chan')

else writeln('Day la so le');

if ktda(n)=true then writeln('Day la so duong')

else writeln('Day la so am');

readln;

end.

Đúng(0)

NL

NGUYỄN LÊ XUÂN THỊNH

22 tháng 2 2023

(Viết chương trình Pascal sử dụng câu lệnh while...do)

1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.

2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.

#Tin học lớp 8

2

KV

Kiều Vũ Linh

23 tháng 2 2023

Bài 1

Var s,i:integer;

tb:real;

Begin

Write('Nhap n = ');readln(n);

i:=1;

s:=0;

While i<=n do

Begin

s:=s+i;

i:=i+1;

End;

tb:=s/n;

Writeln('Tong la ',s);

Write('Trung binh la ',tb:10:2);

Readln;

End.

Đúng(2)

KV

Kiều Vũ Linh

23 tháng 2 2023

Bài 2

Var i,n,souoc:integer;

Begin

Write('Nhap n = ');readln(n);

i:=1;

While i <= n do

Begin

i:=i + 1;

If n mod i = 0 then souoc:=souoc + 1;

End;

If souoc = 1 then write(n,' la so nguyen to')

Else write(n,' khong la so nguyen to');

Readln;

End.

Đúng(2)

TU

Thư Uyên

26 tháng 3 2021

Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang...

Đọc tiếp

#Tin học lớp 8

3

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 1:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

inc(i);

end;

writeln('Tong cac so trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Đúng(1)

NL

Nguyễn Lê Phước Thịnh

26 tháng 3 2021

Bài 2:

uses crt;

var n,i,s:integer;

begin

clrscr;

write('Nhap n='); readln(n);

s:=0;

i:=1;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

writeln('Tong cac so le trong khoang tu 1 den ',n,' la: ',s);

readln;

end.

Đúng(1)

HN

Hồ Nhật Huy

27 tháng 12 2021

Viết chương trình nhập vào 3 cạnh của tam giác ABC (độ dài a,b,c). Yêu cầu kiểm tra xem có đúng 3 cạnh tam giác không?. Đúng yêu cầu thì in ra màn hình là 3 cạnh tam giác. Không đúng thì in ra không phải 3 cạnh của tam giác.Hướng dẫn: Thỏa mãn tổng 2 cạnh lớn hơn cạnh còn lại hoặc hiệu hai cạnh bé hơn cạnh còn lại.giúp...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}

Đúng(0)

HN

Hồ Nhật Huy

27 tháng 12 2021

Viết chương trình nhập vào 3 cạnh của tam giác ABC (độ dài a,b,c). Yêu cầu kiểm tra xem có đúng 3 cạnh tam giác không?. Đúng yêu cầu thì in ra màn hình là 3 cạnh tam giác. Không đúng thì in ra không phải 3 cạnh của tam giác.Hướng dẫn: Thỏa mãn tổng 2 cạnh lớn hơn cạnh còn lại hoặc hiệu hai cạnh bé hơn cạnh còn lại.giúp...

Đọc tiếp

#Tin học lớp 8

1

NL

Nguyễn Lê Phước Thịnh

27 tháng 12 2021

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

if (a>0 && b>0 && c>0 && a+b>c && a+c>b &&b+c>a) cout<<"phai";

else cout<<"ko phai";

return 0;

}

Đúng(0)

TL

Tuấn Lê

19 tháng 5 2021

viết chương trình nhập 3 số thực a,b,c từ bàn phím ( sử dụng chương trình con thủ tục ) thực hiện lần lượt các công việc sau :a. kiểm tra xem 3 số trên có lập thành 3 cạnh của tam giác hay không ? b. tính diện tích tam giác c. tính các trung tuyến của tam giác d. viết hoàn thiện chương trình...

Đọc tiếp

#Tin học lớp 11

1

NL

Nguyễn Lê Phước Thịnh

19 tháng 5 2021

uses crt;

var a,b,c,p,s,am,bn,cp:real;

begin

clrscr;

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

if (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a) then

begin

writeln('Day la ba canh trong mot tam giac vuong');

p:=(a+b+c)/2;

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

am:=sqrt(2*(sqr(b)+sqr(c))-sqr(a))/4;

bn:=sqrt(2*(sqr(a)+sqr(c))-sqr(b))/4;

cp:=sqrt(2*(sqr(a)+sqr(b))-sqr(c))/4;

writeln('Do dai duong trung tuyen ung voi canh a la: ',am:4:2);

writeln('Do dai duong trung tuyen ung voi canh b la: ',bn:4:2);

writeln('Do dai duong trung tuyen ung voi canh c la: ',cp:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Đúng(1)

F

foxbi

18 tháng 3 2023

Viết chương trình bằng ngôn ngữ lập trình Pascal để nhập vào N số nguyên từ bàn phím, tính tổng của các số vừa nhập và in ra màn hình giá trị tổng.

#Tin học lớp 8

2

H9

HT.Phong (9A5)

CTVHS

18 tháng 3 2023

Uses crt;

var n,i,x,u: integer;

begin clrscr;

readln(n);

for i:=1 to n do begin

readln(x);

u:=u+x;

end;

writeln(u);

readln;

end.

Đúng(2)

TD

Trần Đức Hải Phong

25 tháng 12 2023

program TongCacSoNguyen;

var
N, i, soNguyen, tong: integer;

begin
// Nhập số lượng N
write('Nhap so luong N: ');
readln(N);

// Khởi tạo tổng
tong := 0;

// Nhập và tính tổng các số nguyên
for i := 1 to N do
begin
write('Nhap so nguyen thu ', i, ': ');
readln(soNguyen);
tong := tong + soNguyen;
end;

// In ra màn hình tổng
writeln('Tong cua cac so nguyen la: ', tong);

readln;
end.

Đúng(0)

BM

Bùi Minh Dũng

26 tháng 5 2021

Viết chương trình Pascal thực hiện các yêu cầu sau:

- Nhập vào một dãy số gồm N số nguyên

- Hiển thị dãy số vừa nhập

#Tin học lớp 8

1

NA

nguyễn an phát

26 tháng 5 2021

program max_min;

uses crt;

var i,n:integer;

a:array[1..100]of integer;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do

begin

write('a[',i,']=');readln(a[i]);

end;

writeln('day vua nhap la:');

for i:=1 to n do

write(a[i]:3);

readln;

end.

Đúng(1)

TL

Trần Long

19 tháng 1 2023 - olm

Sử dụng Python để Viết chương trình cho người dùng nhập vào số nguyên dương n, rồi kiểm tra các số nhập vào có phải là số nguyên tố hay không? Và đếm xem có bao nhiêu số nguyên tố được nhập vào thì in ra màn...

Đọc tiếp

#Tin học lớp 10

0

Chúng tôi đề xuất

Tài nguyên

Ứng dụng mobile

Bảng xếp hạng

Các khóa học có thể bạn quan tâm

Yêu cầu VIP