Giúp em bài này với ạ em học C++
Viết lại chương trình bằng cách sửa đổi 1 vài dòng lệnh để được chương trình sắp xếp dãy số nguyên thành một dãu không tăng
: Để viết chương trình tính diện tích hình thang như dưới đây. Bạn Tuấn đã ghi lại chương trình ra giấy, nhưng cố tình xếp lộn xộn các lệnh và viết sai một số chỗ. Em hãy giúp bạn thay đổi lại trình tự các lệnh và sửa các chỗ sai để được chương trình viết đúng.
Begin;
Uses Crt;
Var a,b,h: Integer;
S: Real
Program hinhthang;
Writeln(‘DT hinh thang la:’,S);
Write(‘Hay nhap hai day va chieu cao=’); Readln(a,b,h)
S := (a+b)*h/2;
Readln;
Tham khảo:
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln('Nhap do dai hai day: '); readln(a,b);
writel('Nhap chieu cao: '); readln(h);
S:=h*((a+b)/2);
writeln('Dien tich hinh thang do la: ',S);
readln;
end.
uses crt;
var s,a,b,h:real;
begin
clrscr;
readln(a,b,h);
s:=(a+b)/2*h;
writeln(s:4:2);
readln;
end.
Giúp me vs!
Câu 1: Theo em viết chương trình là
A. Tạo ra các câu lệnh được sắp xếp theo một trình tự nào đó.
B. Viết ra một đoạn văn bản được sắp xếp theo chương trình.
C. Viết ra các câu lệnh mà em đã được học.
D. Tạo ra các câu lệnh để điều khiển Robot.
Câu 2: Chương trình dịch dùng để:
A. Dịch từ ngôn ngữ lập trình sang ngôn ngữ máy.
B. Dịch từ ngôn ngữ lập trình sang ngôn ngữ tự nhiên.
C. Dịch từ ngôn ngữ máy sang ngôn ngữ lập trình.
D. Dịch từ ngôn ngữ máy sang ngôn ngữ tự nhiên.
Câu 3: Trong ngôn ngữ lập trình Pascal, từ không phải từ khóa là:
A. Uses. B. Program. C. End. D. Computer.
Câu 4: Tên nào viết đúng theo quy tắc đặt tên trong Pascal?
A. tin hoc 8ª. B. Tin học 8. C. Tin_hoc_8. D. TINHOC 8.
Câu 5: Để nhập dữ liệu ta dùng lệnh
A. Clrscr; B. Readln(x); C. X:= ‘dulieu’; D. Write(‘Nhap du lieu’);
1/Cho một dãy số N phần tử . Viết chương trình sắp xếp các phần tử đã cho theo thứ tự tăng dần (giảm dần)
2/ Viết chương trình chèn thêm 1 số nguyên vào 1 dãy số nguyên đã được sắp xếp theo thứ tự tăng dần sao cho dãy số không thay đổi trật tự sắp xếp
GIÚP MIK VỚI SẮP KT 1 TIẾT RÙI!!!!!!!!!!!!!........
cho dãy A gồm n số nguyên (n< 200) mỗi số có giá trị tuyệt đối không vượt quá 300. viết chương trình sắp xếp dãy A thành dãy không giảm .
Em đang cần gấp mọi người giúp em với ạ . Em xin cảm ơn !
#include <bits/stdc++.h>
using namespace std;
long long a[200],n,i;
int main()
{
cin>>n;
for (i=1; i<=n; i++)
cin>>a[i];
sort(a+1,a+n+1);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
Cho tệp dulieuvao txt chứa dãy số nguyên viết chương trình đọc dãy số đó,sắp xếp thành tăng dần rồi ghi kết quả đó vào dulieura txt
ai có thể giúp mình được không ạ
Viết chương trình và sử dụng chương trình con đọc dữ liệu từ tệp input.txt chứa dãy số nguyên trên một dòng. Các số cách nhau một khoảng trắng
Tính tổng dãy số trong tập input.txt rồi ghi kết quả tổng này vào tập output.txt
Giúp em với ạ. Em cảm ơn
const fi='input.txt'
fo='output.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do t:=t+a[i];
write(f2,t);
close(f1);
close(f2);
end.
Bài 3. Viết chương trình nhập từ bàn phím dãy số thực có N phần tử (1<N<100). hãy in ra màn hình
a. dãy số ban đầu đã nhập
b. dãy số đã sắp xếp lại. biết sắp xếp các phần tử theo nguyên tắc sau: a1 đổi chỗ cho an, a2 đổi chỗ cho an-1,...
Giúp mik với ạ!!! Mik cần gấp!!!Mik xin cảm ơn trước ạ!!!
#include <bits/stdc++.h>
using namespace std;
double a[100];
int i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
for (i=1; i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
for (i=1; i<=n; i++)
swap(a[i],a[n+1-i]);
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}
Sắp xếp chương trình A gồm N các số nguyên thành dãy không giảm( trong đó sử dụng chương trình con để hoán đổi vị trí 2 số)
uses crt;
var a:array[1..100]of integer;
i,n,tam,j:integer;
{---------------chuong-trinh-con----------------------}
procedure hoandoi(x,y:integer);
var tam:integer;
begin
tam:=x;
x:=y;
y:=tam;
end;
{--------------------chuong-trinh-chinh---------------------------}
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
hoandoi(a[i],a[j]);
end;
for i:=1 to n do
write(a[i]:4);
readln;
end.
Mọi người giúp mình bài này với ạ:
Viết chương trình pascal nhập 1 mảng sắp xếp số chẵn giảm dần và số lr tăng dần
var A:
array[1..n] of integer;
i, j, n: integer;
begin
write('Nhap so phan tu cua mang: ');
readln(n);
for i := 1 to n do
begin
write('Nhap phan tu thu ', i, ': ');
readln(A[i]);
end;
for i := 1 to n - 1 do
for j := i+1 to n do
if (A[i] mod 2 = 0) and (A[j] mod 2 = 0) and (A[i] < A[j]) or (A[i] mod 2 = 1) and (A[j] mod 2 = 1) and (A[i] > A[j]) then
begin
swap(A[i], A[j]);
end;
writeln('Mang da sap xep la: ');
for i := 1 to n do
writeln(A[i]);
end.