BÀI THI HỌC KÌ I TRƯỜNG MÌNH NÈ BẠN NÀO THAM KHẢO KHÔNG? Viết chương trình tìm giá trị lớn nhất và giá...

K

Khách

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.

Mua vip

VL

VĂN LƯƠNG NGỌC DUYÊN

22 tháng 12 2017

BÀI THI HỌC KÌ I TRƯỜNG MÌNH NÈ BẠN NÀO THAM KHẢO KHÔNG?

Viết chương trình tìm giá trị lớn nhất và giá trị nhỏ nhất của 2 số a và b cho trước.

Viết câu lệnh điều kiện thiếu và đủ.

Viết toán ra Pascal:

\(\dfrac{\left(2a^2+3b^2-a\right)}{\left(4-c\right)\times\left(4-c\right)}\)

CÁC BẠN THAM KHẢO NHÉ!

#Tin học lớp 8

1

VL

VĂN LƯƠNG NGỌC DUYÊN

22 tháng 12 2017

Program Min; Uses crt; Var a,b:integer; max,min:integer; Begin clrscr; write('nhap so thu nhat :'); readln(a); max:=a; min:=a; write('nhap so thu hai :'); readln(b); if max<b then min:=b; writeln('So lon nhat la :',max); writeln('So nho nhat la :',min); readln; End.

Các câu hỏi dưới đây có thể giống với câu hỏi trên

UM

Ú Mì

19 tháng 12 2016

Cho 4 số a, b, c, d. Viết chương trình tìm giá trị lớn nhất và đưa ra màn hình kết quả

#Tin học lớp 8

7

KH

Khánh Hà

19 tháng 12 2016

program Tim_Max;
uses CRT;
var a,b,c,d,Max :integer;

Begin
clrscr;
Write('Nhap 4 so can so sanh ');
readln(a,b,c,d);

Max:=a;
If Max<b then Max:=b;
If Max<c then Max:=c;
If max<d then Max :=d;

Writeln('So lon nhat trong 4 so do la: ',Max);
readln;

End.

MD

monkey d luffy

20 tháng 12 2016

Tìm GTLN : =SUM(X_A:Y_B) sau đó ấn enter,sử dụng nút điền , kéo thả chuột sang ngang để sao chép công thức.

NM

Nhật Minh

18 tháng 12 2022

Câu 6. Xác định Input, output, mô tả thuật toán và viết chương trình giải các bài toán:

a. Sắp xếp 2 số a, b theo thứ tự không tăng, không giảm.

b.Tìm giá trị lớn nhất, nhỏ nhất trong 3 số a, b, c.

#Tin học lớp 8

0

HM

Hoàng Minh ANh

19 tháng 9 2017

Viết chương trình tính giá trị biểu thức sau :

a. \(\dfrac{[(15+20)^2-100]}{2}\)

b. \(15+20-\dfrac{\left(50+7\right)^2}{5}\)

c. \(15+20+\dfrac{\left(45-20\right)\left(15+20\right)}{3}\)

#Tin học lớp 8

2

HV

Hàn Vũ

19 tháng 9 2017

a) [(15+20) * (15+20) - 100]/2

b) 15 + 20 - [(50+7)*(50+7)]/5

c) 15 + 20 + [(45-20)(15+20)]/3

HV

Hàn Vũ

19 tháng 9 2017

a) Writeln(` [(15+20)*(15+20) - 100]/ 2' , [(15+20)*(15+20) - 100]/2 ) ;

b) Writeln ('15+20 - (50+7)*(50+7)/5= ' , 15+20 - (50+7)*(50+7)/6 ) ;

c) Writeln ( ' 15 + 20 + (45-20)* (15+20)/3 = ' , 15+20 +(45-20)*(15+20)/3 );

HT

Hạ Thanh

11 tháng 11 2021

C1:Viết câu lệnh khai biến x có kiểu số nguyên và hằng a có giá trị bằng 5 trong ngôn ngữ lập trình Pascal. C2: Viết chương trình Pascal để: A) nhập vào 2 số nguyên x, y bất kỳ B) tính tổng 2 số đó C) in ra giá trị của tổng

#Tin học lớp 8

1

NL

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

11 tháng 11 2021

Câu 2:

uses crt;

var x,y:int64;

begin

clrscr;

readln(x,y);

writeln(x+y);

readln;

end.

O

Olala

7 tháng 12 2020 - olm

Câu hỏi hay

Nêu thuật toán bằng sơ đồ khối các bài toán sau
1. Cho 3 số dương a,b,c. Tìm số lớn nhất trong 3 số đó.
2. Tính tống \(S=1-2+3-4+5-6+...+\left(-1^{n+1}\right).n\left(n>0\right)\)

#Tin học lớp 8

0

NT

Nguyễn Thuỳ Linh

2 tháng 5 2021

Viết một chương trình pascal có sử dụng các câu lệnh : khai báo biến , nhập giá trị của biến , in lên màn hình giá trị của biến , gán giá trị cho biến , câu lệnh điều kiện dạng đủ

#Tin học lớp 8

1

NL

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

4 tháng 5 2021

uses crt;

var n,x:integer;

begin

clrscr;

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

writeln('n=',n);

x:=n;

if x mod 2=0 then writeln(x,' la so chan')

else writeln(x,' la so le');

readln;

end.

KH

Kiêm Hùng

8 tháng 1 2019

Chuyên đề: Viết chương trình trong Pascal #3 * Ai trả lời đúng + chính xác + nhanh được 3GP Question: Viết chương trình tính toán biểu thức sau ở dạng Pascal \(P=\sqrt{x^2+9}.\sqrt{\dfrac{5x+3}{\sqrt{x}}}-\sqrt{\dfrac{x^2+x}{2x}}+\left|z-9x\right|+\sqrt{\dfrac{\left(y+5\right)^2}{\left|t+99\right|}}\) _ Một vài trường hợp tranh chấp xảy ra ở Part 1 nên sẽ cho công bằng thì " again" lại luật lệ Part 2 _ Trả lời càng ít...

#Tin học lớp 8

5

E

Eriken

8 tháng 1 2019

var P,x,y,z,t : integer ;

begin

write('nhap gia tri x'); readln(x);

write('nhap gia tri y'); readln(y);

write('nhap gia tri z'); readln(z);

write('nhap gia tri t'); readln(t);

P:=sqrt(x*x+9)*sqrt((5*x+3)/sqrt(x))-sqrt((x*x+x)/(2*x))+abs(z-9*x)+sqrt(((y+5)*(y+5))/abs(t+99)) ;

Write('Gia tri cua P=',P);

readln

end.

E

Eriken

8 tháng 1 2019

bạn làm sai rồi cái này tính không phải in với bạn nhập write thiếu ' rồi

PL

Phú Lưu

20 tháng 4 2022

viết chương trình nhập từ bàn phím 20 số tự nhiên bất kì. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó. In ra màn hình giá trị lớn nhất,giá trị nhỏ nhất và trung bình cộng của 2 giá trị đó

#Tin học lớp 8

1

KV

Kiều Vũ Linh

20 tháng 4 2022

Var a:array[1..20] of integer;

max,min:integer;

tbc:real;

Begin

For i:=1 to 20 do

Begin

Write('Nhap so thu ',i,' = ');readln(a[i]);

End;

Max:=a[1];

Min:=a[1];

For i:=2 to 20 do

Begin

If a[i] > max then max:=a[i];

If a[i] < min then min:=a[i];

End;

tbc:=(max+min)/2;

Writeln('So lon nhat la ',max);

Writeln('So nho nhat la ',min);

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

Readln;

End.

TK

trần kiều

13 tháng 5 2023

Giả sử chúng ta đangnhập chiều cao của các bạn học sinh lớp 8 Em hãy viết chương trình in ra và tìm giá trị lớn nhất và nhỏ nhất của các dãy số đó

#Tin học lớp 8

1

KV

Kiều Vũ Linh

13 tháng 5 2023

Bài 1

Var a:array:[1..1000] of real;

i,n:integer;

max,min:real;

Begin

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

For i:=1 to n do

Begin

Write('Nhap chieu cao ban thu ',i,' = ');readln(a[i]);

End;

max:=a[1];

min:=a[1];

For i:=2 to n do

begin

If a[i] > max then max:=a[i];

if a[i] < min then min:=a[i];

end;

writeln('Ban cao nhat la ',max:10:2);

write('Ban thap nhat la ',min:10:2);

Readln

End.

TK

trần kiều

13 tháng 5 2023

thanks🥰🥰