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.

Bài 1: Viết 1 chương trình bằng ngôn ngữ lập trình pascal thực hiện các công việc sau:

+Nhập từ bàn phím độ dài cạnh của 1 hình vuông.

+Tính chu vi, diện tích hình vuông đó.

+Hiện kết quả chu vi & diện tích ra màn hình, kết quả có 4 chữ số thập phân.

+ Nếu diện tích là số chẵn thì thông báo ra màn hình HINH VUONG CHAN, ngược lại thông báo HINH VUONG LE .

Bài 2: Viết 1 CT bằn ngôn ngữ lập trình pascal thực hiện các công việc sau:

+ Nhập từ bàn phím 3 số nguyên x,y,z .

+Nếu 3 số này âm thì tính giá trị biểu thức S1=3x+2y và S2=6-7y. Hiện kết quả ra màn hình.

Bài 3: Hãy viết 1 CT bằng ngôn ngữ lập trình pascal giải bài toán:

Theo quy định của Đoàn trường Ân thi, mỗi học sinh vi phạm nội quy sẽ bị trừ điểm như sau:

Đi học muộn trừ 5 điểm

Không đeo thẻ trừ 5 điểm

Không đội mũ bảo hiểm trừ 15đ

Trong đợt thi đua chào mừng ngày Nhà giáo Việt Nam năm nay, lớp 11A7 có:

a trường hợp đi học muộn; b trường hợp k đeo thẻ; c trường hợp k đội mũ bảo hiểm

-Hãy nhập a,b,c từ bàn phím.

-Tính tổng số điểm mà 11a7 bị trừ trong đợt. Hiện kết qura ra màn hình.

-Thầy giáo chủ nhiệm lớp 11a7 có thông báo: nesu trong đợt thi đia này lớp bị trưc từ 10 điểm trở xuống thì cuối đợt lớp sẽ tổ chức liên hoan. Em hãy xho biết lớp 11a7 có đc tổ chức buổi liên hoan đó k.

2
16 tháng 12 2019

1:

uses crt;

var a,dt,cv:real;

begin

clrscr;

write('nhap canh hinh vuong:'); readln(a);

if a<=0 then writeln('vui long nhap lai')

else begin

cv:=a*4;

dt:=sqr(a);

writeln('chu vi hinh vuong la: ',cv:10:4);

writeln('dien tich hinh vuong la: ',dt:10:4);

if dt mod 2=0 then writeln('hinh vuong chan')

else writeln('hinh vuong le');

end;

readln;

end.

2:

uses crt;

var x,y,z,s1,s2:integer;

begin

clrscr;

write('x='); readln(x);

write('y='); readln(y);

write('z='); readln(z);

if (x<0) and (y<0) and (z<0) then

begin

s1:=3*x+2*y;

writeln('tong s1=',s1);

s2:=6-7*y;

writeln('tong s2=',s2);

end

else writeln('vui long nhap cac so am');

readln;

end.

3:

uses crt;

var a,b,c,t:integer;

begin

clrscr;

write('nhap so loi di hoc muon:'); readln(a);

write('nhap so loi khong deo the:'); readln(b);

write('nhap so loi khong doi mu bao hiem:'); readln(c);

t:=a*5+b*5+c*15;

writeln('tong so diem lop 11a7 bi tru la: ',t);

if t<=10 then writeln('cuoi dot lop se to chuc lien hoan')

else writeln('cuoi dot lop se khong to chuc lien hoan');

readln;

end.

17 tháng 12 2019

Cái này là lớp mấy chứ đâu phải lớp 6 tụi em đâu

 Đề thi gồm 02 bài thi: Bài 1: Viết chương trình theo yêu cầu: Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. Ví du: Mời bạn nhập vào số N: 6 So thu 1:  So thu 2: 84  So thu 3: 75 So thu 4: 6 So thu 5: 69 So thu 6: 33 Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 Chuoi so sau khi sap xep tang dan la: 3,...
Đọc tiếp

 

Đề thi gồm 02 bài thi: 

Bài 1

Viết chương trình theo yêu cầu: 

Nhập lần lượt dãy số gồm N số nguyên dương từ bàn phím.(N>0) 

Chương trình thông báo kết quả ra màn hình gồm: chuỗi ban đầu, chuỗi số được sắp xếp theo chiều tăng dần của dãy số. 

Ví du: 

Mời bạn nhập vào số N: 6 

So thu 1:  

So thu 2: 84  

So thu 3: 75 

So thu 4: 6 

So thu 5: 69 

So thu 6: 33 

Chuoi ban dau la: 3, 84, 75, 6 ,69, 33 

Chuoi so sau khi sap xep tang dan la: 3, 6, 33, 69, 75, 84  

Bài 2:

Viết chương trình theo yêu cầu: 

Chi phí tiêu dùng của một gia đình chủ yếu gồm 4 loại sau: tiền điện, tiền nước, tiền ga và tiền điện thoại  (Lưu ý: số tiền sử dụng là số nguyên dương ) 

Nhập số tiền 4 loại chi phí (tiền điện, tiền nước, tiền ga và tiền điện thoại) từ bàn phím 

In ra màn hình tổng chi phí chi tiêu trong tháng?    

Help me pléae

 

1

1:

#include <bits/stdc++.h>

using namespace std;

long long a[100],i,n;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

cout<<"Day ban dau la: "<<endl;

for (i=1;i<=n; i++) cout<<a[i]<<" ";

cout<<endl;

sort(a+1,a+n+1);

cout<<"Day tang dan la: "<<endl;

for (i=1; i<=n; i++) cout<<a[i]<<" ";

return 0;

}

16 tháng 5 2023

Var n,sc,sl,i:longint;

Begin

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

Write('Cac so tu 1 den ',n,' la ');

For i:=1 to n do

Write(i:8);

Writeln;

For i:=1 to n do

Begin

If i mod 2 = 0 then sc:=sc+i

Else sl:=sl+i;

End;

Writeln('Tong cac so chan la ',sc);

Write('Tong cac so le la ',sl);

Readln

End.

8 tháng 5 2022

C

8 tháng 5 2022

c

19 tháng 12 2021

Chọn D

9 tháng 4 2022

drfedjuyvh7686450jkmgvhtj

13 tháng 12 2016

uses crt;

var a,b:longint;

Begin

clrscr;

Writeln('Nhap a,b=');

Readln(a,b);

writeln('tich hai so la : a*b=',a*b);

writeln('thuong hai so la :a/b=',a/b);

Readln;

End.

13 tháng 12 2016

mk chịu!!

8 tháng 10 2016

Em hãy quan sát bộ thiết bị mẫu gồm bàn phím , chuột , màn hình , máy in , loa , tai nghe , sau đó thực hiện những thao tác sau đây để làm quen với các thiết bị vào/ra của máy tính:

* Đeo cặp tai nghe vào tai

* Kéo khay đựng giấy của máy in ra , đặt thêm vài tờ giấy vào đó

Em quan sát cách bố trí các phím trên bàn phím và có 4 mấy cặp phím trùng tên nhau.

Theo em vì để cho thuận tiện để đánh 10 ngón và sử dụng lệnh một cách dễ dàng hơn nên nhà sản xuất lại thiết kế những phím trùng tên nhau như vậy.

25 tháng 5 2022

9-a

10

a)tìm kiếm thông tin

b)liên kết 

c)từ khóa

9-a

10

a)tìm kiếm thông tin

b)liên kết 

c)từ khóa