nvlasc
13.04.2020 20:29

Напишите на С, (не на С++) программы по задачам приведенным ниже, только без особых мудреностей, чтобы выглядело как-будто новичок написал. 1. Задан массив целых чисел из 22 элементов и некоторое целое число target. Найти все пары элементов массива, произведение которых равно числу target. Вывести на консоль индексы и значения найденных пар.

2. Каждая строка в двумерной матрице представляет собой восьмеричное число (элементы строки могут принимать только значения от нуля до семи). Найти строку с минимальным числом и сформировать новую матрицу путем вычитания найденного числа из всех остальных строк.

3. Задана строка, в которой все слова записаны в обратном порядке. Восстановить правильный порядок каждого слова. (используется английский алфавит)

4. Заполнить массив структур, определенных заданием, и произвести над его элементами некоторые вычисления.
Структура: информация об абоненте интернет-провайдера
Поля: 1) ФИО, 2) номер договора, 3) дата подключения (число, месяц, год), 4) текущий баланс
Задача: найти всех абонентов с балансом меньше нуля.

5. С функций потокового ввода/вывода переработать программу из задания (задания №4) на использование файлов для хранения. Добавить возможность вывести отдельный объект структуры (из всех сохраненных) по его номеру.

Если не знаете как решить какое-то задание, а как решить остальные знаете, то пишите что можете решить.

Заранее огромное

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Topolok121289
26.04.2020 08:28
Program primer;
Uses crt;

var a,b,c,d: real;

begin clrscr;
      write('Введите длину отрезка a = ');
      readln(a);
      write('Введите длину отрезка b = ');
      readln(b);
      write('Введите длину отрезка c = ');
      readln(c);
      write('Введите длину отрезка d = ');
      readln(d);
     
      writeln;
      if (a<=0) or (b<=0) or (c<=0) or (d<=0) then
         writeln('Длины не могут быть отрицательными или равляться нулю')
        
         else
         begin
      if (a=b) and (a=c) and (a=d) then
         writeln('Отрезки могут быть стороами квадрата')
      else
          writeln('Отрезки не могут быть стороами квадрата');

       if ((a=b) and (c=d)) or ((a=d) and(c=b)) or ((a=c) and (d=b)) then
          writeln('Отрезки могут быть стороами прямоугольника')
       else
       writeln('Отрезки не могут быть стороами прямоугольника');
        end;

      readln;
end.
0,0(0 оценок)
Ответ:
da0ri0da0
20.09.2021 13:31


var x1,y1,x2,y2,x3,y3,x4,y4:integer;

N1,N2:real;

begin

writeln('Введите координаты первой точки - ');

readln(x1,y1);

writeln('Введите координаты второй точки - ');

readln(x2,y2);

writeln('Введите координаты третьей точки - ');

readln(x3,y3);

writeln('Введите координаты четвертой точки - ');

readln(x3,y3);

n1:= sqrt( (x3-x1) * (x3-x1) + (y3 - y1) * (y3-y1) );

n2:= sqrt( (x4-x2) * (x4-x2) + (y4 - y2) * (y4-y2) );

writeln('Длина первой диагонали - ',n1);

writeln('Длина второй диагонали - ',n2);

readln;

end.

Держи.

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