1970 жылы ең алғашқы графикалық операциялық жүйенің интерфейсін жасаған компания ???

Заполнить двоичный файл целыми числами из интервала [-3000; 8000]. Количество компонент файла вводится с клавиатуры. Поменять ме

sega8484

#include <iostream>
#include <ctime>
using namespace std;

int main() {
 int n,m;
 FILE *fpt;
 cout<<"n = "; cin>>n;
 fpt=fopen("input.dat","wb");
 srand(time(NULL));
// запись файла
 for (int i=0; i<n; i++) {
 m=rand()%8000-3000;
 cout<<m<<" ";
 fwrite(&m,sizeof(int),1,fpt);
 }
 cout<<endl;
 fclose(fpt);
 fpt=fopen("input.dat","rb+");
 int indf=0,indl=0,vf=0,vl=0,k=0;
// чтение файла
 while (fread(&m,sizeof(int),1,fpt)!=0) {
 k++;
 if (!(m%2==0) && (indf==0)) { indf=k-1; vf=m; }
 if ((!m==0) && (m%2==0)) { indl=k-1; vl=m; }
 }
 cout<<"first odd = "<<vf<<" index = "<<indf<<endl;
 cout<<"last even = "<<vl<<" index = "<<indl<<endl;
// обмен первого нечетного и последнего четного
 if (indf>0) {
 fseek(fpt,sizeof(int)*indf,SEEK_SET);
 fwrite(&vl,sizeof(int),1,fpt);
 }
 if (indl>0) {
 fseek(fpt,sizeof(int)*indl,SEEK_SET);
 fwrite(&vf,sizeof(int),1,fpt);
 }
 fclose(fpt);
 system("pause");
 return 0;
}

n = 6
4368 2733 1112 2620 1941 753
first odd = 2733 index = 1
last even = 2620 index = 3

0 0

4 года назад

С++ Задан одномерный массив. Нужно все элементы с четными индексами сдвинуть в начало массива, а нечетными в конец, сохраняя пор

Arailym Tiulegen

#include <iostream>
#include <cstdlib>
// содержит srand() и rand()
#include <ctime>
using namespace std;

int main()
{
int n=10;
 int mas[n] = {};
 int tmp,j=0;
 cout<<"random number";
cout<<endl;
// начальная установка генератора случ. чисел
srand(time(NULL));
// заполнение массива случайными числами
 for (int i = 0; i < n; i++)
{
 mas[i] = rand()/100; cout<<mas[i]<<" ";
 }
cout<<endl;
// перестановка элементов
for (int i = 0; i < n/2; i++)
 {
 tmp=mas[i]; mas[i]=mas[2*(i+1)-1]; j=2*i;
 while (j>i)
{
 mas[j+1]=mas[j]; j--;
 }
 mas[i+1]=tmp;
 }
//"массив после замены"
 for (int i = 0; i < n; i++) cout<<mas[i]<<" ";
 cout<<endl;
 system("pause");
 return 0;
}

0 0

4 года назад

Даны натуральные числа n, A1,A2,..,An. Выдать на печать номера и значения элементов последовательности A1,A2,..,An, имеющих чётн

doomss9

var n,i,posmax:integer; max:real; a:array of real; begin

0 0

4 года назад

Пепеведите числа 8888^10 в восьмиричную систему

Bogdanych66 [38]

21270 в восьмиричной

0 0

4 года назад