gameover98
?>

Контрольная работа №3. «Начала программирования» Вариант 1. 1. Какой оператор используется для ввода данных в языке программирования Pascal? 2. В языке программирования Pascal для организации цикла используются операторы for, while и repeat. При применении которого (или которых) из них заранее точно известно число повторений цикла? 3. Определите значение переменных а и b после выполнения фрагмента программы: а := 10 b := 110 b := 110 + b/a a := b/11*a b := a mod 100 4. Было произведено девять запусков программы: var s, t: integer; begin readln(s); readln(t); if (s < 4) or (t < 4) then writeln('YES') else writeln('NO') end. при которых в качестве значений переменных s и t вводились следующие пары чисел: (5, 4); (5, 6); (–2, 1); (5, 8); (7, 8); (–5, 5); (–2, 2); (4, 3); (3, –8 Выпишите пары чисел, при которых программа напечатала «NO»? 5. Запишите число, которое будет напечатано в результате выполнения программы. var s, n: integer; begin s := 78; n := 0; while n < 12 do begin s := s – 8; n := n + 2 end; writeln(s) end.

Информатика

Ответы

elenalukanova
#include <iostream>
#include <iomanip>
#include <cstdlib>
#include <ctime>

template <typename T>
void swap(T &a, T&b)
{
T t=a;
a=b;
b=t;
}

void printArray(int *array, int length)
{
for (int i=0;i<length;i++)
std::cout<<std::setw(4)<<array[i];
std::cout<<std::endl;
}

int main()
{
srand(time(0));
int length;
std::cin>>length;
int *array=new int[length];
for (int i=0;i<length;i++)
array[i]=rand()%100+1;
printArray(array,length);
int posMax=0;
for (int i=1;i<length;i++)
if (array[posMax]<array[i])
posMax=i;
bool flag=false;
while (flag==false)
{
flag=true;
for (int i=posMax+2;i<length;i++)
if (array[i]<array[i-1])
{
flag=false;
swap(array[i],array[i-1]);
}
}
printArray(array,length);
return 0;
}
Maionova
В отличие от многих людей, я отношусь к компьютеру очень позитивно. Это — величайшее изобретение человечества! Люди создали универсальную машину, с которой можно делать сто дел: читать, смотреть кино, рисовать, печатать, чертить, считать, находить полезную информацию, делать ретушь фотографии, создавать мультфильмы и видеоролики.

Еще можно общаться с людьми у которых самые разные увлечения, которые живут хоть на другом конце планеты. Не нужно ограничиваться только теми людьми, кто живет в соседнем дворе, и навязывать себе их хобби.

Я могу продолжать этот список до конца сочинения, чтобы было понятно, как полезен компьютер.

Часто компьютер сравнивают с телевизором и говорят, что они оба крадут у человека время. Но у меня другое мнение. Да, долго сидеть перед компьютером вредно для здоровья и для личности, потому что человек не двигается, портит зрение и не общается с живыми людьми. Но в чем виноват компьютер?! Человек сам крадет у себя время, а не машина.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Контрольная работа №3. «Начала программирования» Вариант 1. 1. Какой оператор используется для ввода данных в языке программирования Pascal? 2. В языке программирования Pascal для организации цикла используются операторы for, while и repeat. При применении которого (или которых) из них заранее точно известно число повторений цикла? 3. Определите значение переменных а и b после выполнения фрагмента программы: а := 10 b := 110 b := 110 + b/a a := b/11*a b := a mod 100 4. Было произведено девять запусков программы: var s, t: integer; begin readln(s); readln(t); if (s < 4) or (t < 4) then writeln('YES') else writeln('NO') end. при которых в качестве значений переменных s и t вводились следующие пары чисел: (5, 4); (5, 6); (–2, 1); (5, 8); (7, 8); (–5, 5); (–2, 2); (4, 3); (3, –8 Выпишите пары чисел, при которых программа напечатала «NO»? 5. Запишите число, которое будет напечатано в результате выполнения программы. var s, n: integer; begin s := 78; n := 0; while n < 12 do begin s := s – 8; n := n + 2 end; writeln(s) end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

soskadoa
Mark-Petrovich
Railyan
linda3930
ASRodichev
rstas
shumeikoElena362
tanyashevvvv
vorota-grupp
lenalevmax7937
ninaandreeva3179
АлександрАнатолий
zdanovich90764
Dr-motoshop
officem695