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.

24 tháng 3 2022

bài này bạn giải được chưa ạ, cho mình xin code voiws được k

 

8 tháng 3 2022

program lake;
uses crt;
var n,t,i:integer;
s,a,b:longint;
begin
clrscr;
readln(n,t);
s:=0;
for i:=1 to n do begin
readln(a,b);
s:=s+a-b*t;
end;
write(s);
readln
end.

Câu 2: 

uses crt;

var a,b:integer;

{-----------------chuong-trinh-con-------------------}

function ucln(x,y:integer):integer;

var i,uc:integer;

begin

if x<y then 

begin

uc:=1;

for i:=1 to x do 

  if (x mod i=0) and (y mod i=0) then  

begin

if uc<i then uc:=i;

end;

end

else begin

uc:=1;

for i:=1 to y do 

  if (x mod i=0) and (y mod i=0) then  

begin

if uc<i then uc:=i;

end;

end;

ucln:=uc;

end;

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

begin

clrscr;

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

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

writeln(a,'/',b,'=',a div ucln(a,b),'/',b div ucln(a,b));

readln;

end.

Câu 1: 

const fi='songuyen.inp';

fo='tong.out';

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 eoln(f1) do 

  begin

n:=n+1;

read(f1,a[n]);

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Bài 4: 

#include <bits/stdc++.h>

using namespace std;

long long a[1000],i,n;

int main()

{

cin>>n;

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

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

cout<<"So lon nhat la: "<<a[n]<<endl;

cout<<"So nho nhat la: "<<a[1]<<endl;

cout<<"So lon thu hai la: "<<a[n-1]<<endl;

cout<<"So nho thu hai la: "<<a[2];

return 0;

}

2 tháng 1 2022

viết bằng pascal được không bạn?

 

const fi='tong.inp';

fo='tong.out';

var f1,f2:text;

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

n,i,t:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln(f2,t);

close(f1);

close(f2);

end.

Cho một dãy số nguyên A1,A2,...,AN. Bạn có thể thực hiện phép biến đổi sau với số lần tùy ý (có thể không thực hiện lần nào):+ Chọn một vị trí i từ 1 đến N, và đảo dấu Ai (tức là thay thể Ai bởi −Ai).Hãy cho biết số phép biến đổi ít nhất cần thực hiện, để dãy thu được thỏa mãn tính chất sau:+ Tích của hai phần tử bất kì trong dãy đều là số nguyên dương (nói cách khác, với mỗi cặp (i,j) thỏa 1...
Đọc tiếp

Cho một dãy số nguyên A1,A2,...,AN. Bạn có thể thực hiện phép biến đổi sau với số lần tùy ý (có thể không thực hiện lần nào):

+ Chọn một vị trí i từ 1 đến N, và đảo dấu Ai (tức là thay thể Ai bởi −Ai).

Hãy cho biết số phép biến đổi ít nhất cần thực hiện, để dãy thu được thỏa mãn tính chất sau:

+ Tích của hai phần tử bất kì trong dãy đều là số nguyên dương (nói cách khác, với mỗi cặp (i,j) thỏa 1 ≤ i < j ≤ N, ta có Ai ∗ Aj > 0).

Dữ liệu: Vào từ tệp văn bản POSI.INP

+ Dòng đầu tiên gồm số nguyên N (2 ≤ N ≤ 100) - số phần tử của dãy A.

+Dòng thứ hai gồm N số nguyên A1,A2,...,AN (−1000 ≤ Ai ≤ 1000) - mô tả dãy A.

Kết quả: Ghi ra tệp văn bản POSI.OUT

+ In ra một số nguyên duy nhất là số phép biến đổi ít nhất cần thực hiện. Trong trường hợp không có cách biến đổi, hãy in ra -1. 

(LẬP TRÌNH PASCAL)

0
Cho tệp văn bản DAYSO.INP có cấu trúc: + Dòng 1: Ghi số nguyên dương N  (0<N<=100) + Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000). Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:+ Dòng 1: Ghi số nguyên S là tổng tìm được b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:+ Dòng...
Đọc tiếp

Cho tệp văn bản DAYSO.INP có cấu trúc:

+ Dòng 1: Ghi số nguyên dương N  (0<N<=100)

+ Dòng 2: Ghi dãy gồm n số nguyên Ai (-30000<=Ai<=30000).

Yêu cầu: Viết chương trình đọc dữ liệu từ tệp trên và thực hiện các công việc sau:

a) Tính tổng các số ở dòng 2, ghi kết quả vào tệp TONG.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên S là tổng tìm được

b) Tính tổng các số dương ở dòng 2, ghi kết quả vào tệp TD.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên S là tổng các số dương tìm được

c) Đếm số lượng các số chẵn ở dòng 2, ghi kết quả vào tệp SOCHAN.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số chẵn

+ Dòng 2: Ghi các số chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.

d) Đếm số lượng các số âm chẵn ở dòng 2, ghi kết quả vào tệp SOAMCHAN.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số âm chẵn

+ Dòng 2: Ghi các số âm chẵn tìm được, các số ghi cách nhau 1 dấu cách trống.

e) Sắp xếp các số ở dòng 2 để được dãy không giảm, ghi kết quả vào tệp SAPXEP.OUT theo cấu trúc:

+ Dòng 1: Ghi dãy số đã được sắp xếp, các số ghi cách nhau 1 dấu cách trống.

f) Đếm số lượng các số nguyên tố ở dòng 2, ghi kết quả vào tệp NTO.OUT theo cấu trúc:

+ Dòng 1: Ghi số nguyên k là số lượng số nguyên tố

+ Dòng 2: Ghi các số nguyên tố tìm được, các số ghi cách nhau 1 dấu cách trống.

HƠI DÀI NHMA MONG MẤY BẠN GIÚP CHỨ MÌNH CHỊU R

0
19 tháng 8 2023

Tham khảo:

Sắp xếp nổi bọt

=> Ưu điểm:

• Là thuật toán cơ bản, dễ hiểu, phù hợp cho người bắt đầu học về sắp xếp

• Đoạn code ngắn gọn, dễ nhớ.

Sắp xếp chèn tuyến tính

=> Ưu điểm:

Thao tác thực hiện đơn giản, dễ hiểu.

Thể hiện sự hiệu quả cao đối với các số liệu nhỏ.

Tại các tình huống thực tế, Insertion Sort tỏ ra hiệu quả hơn so với các thuật toán có độ phức tạp khác (ví dụ Bubble sort).

Rất phù hợp đối với các số liệu đã được sắp xếp theo thứ tự sẵn.

Tính ổn định, không làm thay đổi nhiều thứ tự các nguyên tố gốc.

Cách sắp xếp có tính phương pháp, tuân theo nguyên tắc cụ thể, dễ nhớ và sử dụng.