Программный код на qbasic : дан массив размера n, все элементы которого, кроме первого, по возрастанию. сделать массив , переместив первый элемент на новую позицию.
#include <iostream> #include <cstdlib> #include <vector> using namespace std;
int main() { vector<int> v; cout <<"Укажите размер массива: "; int s; cin >>s; srand(time(0)); for(int i=0; i!=s; ++i) v.push_back(rand()%100); int find; cout <<"Введите число для поиска: "; cin >>find; bool founded = false; for(auto it=v.begin(); it!=v.end(); ++it) if(*it==find) founded=true; if(founded) cout <<"Это число есть в массиве!" <<endl; else cout <<"Такого числа нет в мвссиве!" <<endl;
1. Если имеется в виду язык Pascal, то получим следующее: var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); b:=a+a; writeln (b); end.
Program50.pas(5) : Неизвестное имя 'b'
2. Попробуем такой вариант на Python
a =int(input()) b = a+a print(b)
При вводе а получим на выходе 10
Получается, что в Pacal требуется объявлять переменные в секции переменных, или в любом месте программы можно объявить переменную с служебного слова var для PascalABC.net. Первый код можно переписать так, и он будет работать:
var: a; //PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) begin readln(a); var b:=a+a; writeln (b); end.
CLS
N = 18
DATA 42,33,34,35,36,37,38,39,40,41,44,55,65,75,88,90,100,110
DIM M1(18)
DIM M2(18)
K = 0
F = 1
READ M1(1)
PRINT M1(1);
FOR i = 2 TO N
READ M1(i)
PRINT M1(i);
IF M1(1) < M1(i) AND F = 1 THEN
K = K + 1
M2(K) = M1(1)
K = K + 1
M2(K) = M1(i)
F = 0
ELSE
K = K + 1
M2(K) = M1(i)
END IF
NEXT i
IF F = 1 THEN
M2(N) = M1(1)
END IF
PRINT
FOR i = 1 TO N
PRINT M2(i);
NEXT i