Найти ошибку в программе на паскаль авс вот : 1)дан типизированный файл, содержащий символы. скопировать элементы этого файла в квадратную матрицу размером n×n (если элементов файла недостает, заполнить оставшиеся элементы матрицы символом «точка» заменить все столбцы на столбец с минимальной суммой кодов элементов. вот решение: type mas2=array[1..20, 1..20] of char; procedure create(var t: text; var n: byte; var a: mas2); var i, j: byte; begin write('введите размер матрицы: '); readln(n); for i: =1 to n do for j: = 1 to n do a[i, j]: = '.'; reset(t); i: =1; while not seekeof(t) and (i< =n) do begin j: =1; while not seekeof(t) and (j< =n) do begin read(t, a[i, j]); j: = j+1; end; i: =i+1 end end; procedure sum(var a: mas2); var i, j, m, n, sum, min, p, k: integer; t: char; begin min: =-maxint; for j: =1 to m do begin p: =0; min: =-maxint-1; for k: =j to m do begin sum: =0; for i: =1 to n do sum: =sum+ord(a[i, j]); if sum begin min: =sum; p: =k; end; end; for i: = 1 to n do begin t: =a[i, j]; a[i, j]: =a[i, p]; a[i, p]: =t; end; end; writeln(sum: 7, ' '); end; procedure zam(var t: text; var n: byte; var a: mas2); var i, j: byte; begin for i: =1 to n do for j: = 1 to n do a[i, j]: = '1'; reset(t); i: =1; while not seekeof(t) and (i< =n) do begin j: =1; while not seekeof(t) and (j< =n) do begin read(t, a[i, j]); j: = j+1; end; i: =i+1 end end; procedure print(const n: byte; const a: mas2); var i, j: byte; begin for i: =1 to n do begin writeln; for j: =1 to n do write(a[i, j]: 5); end; writeln end; var t: text; a: mas2; n: byte; s: string; begin write('введите имя файла: '); readln(s); assign(t, s); create(t, n, a); writeln('исходная матрица: '); print(n, a); sum(a); zam(t, n, a); writeln; writeln; writeln; writeln('результирующая матрица: '); print(n, a); end.
Ответы
Var a: array[1..20,1..20] of integer; n,m,i,j,min,jm,x: integer; begin randomize; write('Введите размеры массива: '); readln(n,m); writeln('Исходный массив:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(19)-9; write(a[i,j]:4); end; writeln; end; min:=0; for i:=1 to n do min:=min+a[i,1]; writeln('Сумма элементов 1-го столбца = ',min); jm:=1; for j:=2 to m do begin x:=0; for i:=1 to n do x:=x+a[i,j]; writeln('Сумма элементов ',j,'-го столбца = ',x); if x<min then begin min:=x; jm:=j; end; end; writeln('Минимальная сумма в ',jm,'-м столбце'); writeln('Полученный массив:'); for i:=1 to n do begin for j:=1 to m do begin if j<>jm then a[i,j]:=a[i,jm]; write(a[i,j]:4); end; writeln; end; readln; end.
Задача 1:
#include <iostream>
int main()
{
double x, y;
std::cin >> x;
if (x >= 2) y = sqrt(3 * x + 4);
else y = x * x * x * x * x - abs(4 * x);
std::cout << y;
return 0;
}
Задача 2:
#include <iostream>
int main()
{
double x, y;
std::cin >> x;
y = (x*x*(2*x+8))/(3+2*x);
std::cout << y;
return 0;
}
Задача 3:
#include <iostream>
int main()
{
double z,b;
std::cin >> b;
if (b > 7) z = b * b * b;
else z = b - 9;
std::cout << z;
return 0;
}
#include <iostream>
using namespace std;
int main() {
int a[50][2];
int n;
int k1=0;
int k2=0;
int k3=0;
int k4=0;
cin >> n;
for (int i = 0; i < n; i++) {
cin >> a[i][0] >> a[i][1];
}
for (int i = 0; i < n; i++) {
if (a[i][1]>0)
if (a[i][0]>0) k1++; else k2++;
else if (a[i][0]>0) k4++; else k3++;
}
if ((k2>=3)or(k2==2)and(k1>3)or(k3>5)or(k4>9))
cout << "Clock is broken" << "\n";
else cout << k2 << k1 << ":" << k3 << k4 << "\n";
return 0;
}
Пример:
10
-1 1
1 1
1 2
-1 -1
-1 -2
-1 -3
1 -1
1 -2
1 -3
1 -4
12:34
using namespace std;
int main() {
int a[50][2];
int n;
int k1=0;
int k2=0;
int k3=0;
int k4=0;
cin >> n;
for (int i = 0; i < n; i++) {
cin >> a[i][0] >> a[i][1];
}
for (int i = 0; i < n; i++) {
if (a[i][1]>0)
if (a[i][0]>0) k1++; else k2++;
else if (a[i][0]>0) k4++; else k3++;
}
if ((k2>=3)or(k2==2)and(k1>3)or(k3>5)or(k4>9))
cout << "Clock is broken" << "\n";
else cout << k2 << k1 << ":" << k3 << k4 << "\n";
return 0;
}
Пример:
10
-1 1
1 1
1 2
-1 -1
-1 -2
-1 -3
1 -1
1 -2
1 -3
1 -4
12:34
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Решите нужно. Заранее за правильные ответы.
Автор: kobzev-e
Составить таблицу истинности. ¬(bva)& c
Автор: Владислав-Александр32
