В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История

ответьте пожайлуста
СИНТАКСИЧЕСКИЕ ОШИБКИ В ПАСКАЛЕ
1. Выберите программу, которая не соответствует синтаксису структуры
Паскаль-программ.
А. Program A; Const d=5; var b,c:real; begin read(b,c); writeln(b*c) end.
B. Program A; var b,c:real; begin readln(b,c); End.
C. Program A; Const d=5; var b,c:real; begin End.
D. Program A; Var b,c; Const d=5; begin b:=2*d End.
E. Program A; begin writeln(‘b=’) end.
2. Укажите программу, в которой есть неописанная переменная.
A. Program A; var b,c:real; Begin readln(b,c); writeln(b-c*c) end.
B. Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until
i C: Program A; var S:real; i:integer; begin S:=0; i:=1; repeat S:=s+1/i; i:=i-1 until
i<1 end.
D. Program A; begin writeln(‘b’) end.
E. Program A; var b:real; begin read(b); end.
3. Укажите тип синтаксической ошибки, имеющейся в данной
программе:
Program A; const d=5; var a:real; i:integer; begin a:=0; i:=1; if a write(a) end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверная константа
4. Укажите тип синтаксической ошибки, имеющейся в данной
программе: Program 1A; var b:real; begin read(b); b:=b; end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверный идентификатор
E. Неверная константа
F. Ожидалась;
5. Укажите тип синтаксической ошибки, имеющейся в данной
программе:
Program A; var a1:real; begin read(a1); a1:=a1+0,1; end.
A. Нет конца программы
B. Переменная описана дважды
C. Переменная неописана
D. Неверный идентификатор
E. Неверная константа
6. Укажите программу, в которой результат не выдается.
A. Program A; var b:real; begin read(b); writeln(b) end.
B. Program A; var b:real; begin read(b); writeln(b); end.
C. Program A; var b:real; begin b:=1; write(2*b-3) end.
D. Program A; var b,c:real; begin read(b); if b>0 then c:=b else c:=-b end.
E. Program A; var b,c:real; begin read(b,c); b:=b+c; writeln(b) end.

Показать ответ
Ответ:
Kymir1
Kymir1
01.05.2022 07:06

Примечание: библиотека locale.h используется для корректного изображения русского языка в консоли. библиотека stdlib.h необходима для использования функции "system(pause)", которая используется в конце программы. Не позволяет консоли после выполнения основной программы закрыться.

Я к тому, что фактически, используется только iostream

#include "iostream"


#include "stdlib.h"


#include "locale.h"


using namespace std;



int main(){


setlocale(LC_ALL, "russian");


int n, m;


cout << "Введите кол-во строк(n): "; cin >> n;


cout << "Введите кол-во столбцов(m): "; cin >> m;


int A[n][m];


for(int i = 0; i < n; i++){


 for(int j = 0; j < m; j++){


  cout << "Элемент [" << i << "]" << "[" << j << "]  =  "; cin >> A[i][j];


 }


}


cout << "Вывод массива" << endl;


for(int i = 0; i < n; i++){


 for(int j = 0; j < m; j++){


    cout << " " <<A[i][j] << " ";  

 }


 cout << endl;


}


for(int i = 0; i < m; i++){


 int min = A[0][i];


 int max = A[0][i];


 for(int j = 1; j < n; j++){


    if(min > A[j][i]){


     min = A[j][i];


    }else if(max < A[j][i]) max = A[j][i];


 }


 cout << "Столбец " << i+1 << " содержит (min, max): " << "(" << min << "," << max << ")";  

 cout << endl;


}


system("pause");


return 0;


}

0,0(0 оценок)
Ответ:
vefremka
vefremka
12.08.2022 12:23

1.

const n=5;

var a:array [1..n] of integer;

i:integer;

begin

write('       Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

if a[i] mod 2 = 0 then a[i]:=a[i]-3

end;

writeln;

write('Преобразованный массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.

2.

const n=8;

var a:array [1..n] of integer;

i,s:integer;

begin

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

s:=s + a[i]

end;

writeln;

write('Сумма всех элементов массива: ',s)

end.

3.

const n=7;

var a:array [1..n] of integer;

i,p:integer;

begin

p:=1;

write('Массив: ');

for i:=1 to n do

begin

a[i]:=random(21)-10;

write(a[i]:3,' ');

if a[i] > 0 then p:=p * a[i]

end;

writeln;

write('Произведение положительных элементов массива: ',p)

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота