М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
limbo03rus
limbo03rus
14.01.2023 13:06 •  Информатика

Имеется текстовый файл, в каждой строке которого первые два символа являются буквами. получить слово, образованное первыми буквами каждой строки.

👇
Ответ:
Идея вот в чем, я не знаю, как на паскале, но на С++ это
#include < iostream >
#include < fstream >
#include < string >
using namespace std;
int main(){
fstream f("путькфайлу.txt", ios::in);
string s, r="";
//Пока не конец файла
while(!f.eof()){
//Считать очередную строку
getline(cin, s);
//К r добавить первый символ
r+=S[0];
}
//Результат в r
cout << r;
f.close();
return 0;
}
4,7(85 оценок)
Открыть все ответы
Ответ:
Дамир2207
Дамир2207
14.01.2023
//Линейное уравнение от одной переменной вида ax+b=0
procedure lin1(a,b: real; var x: real);
  begin
    x:=-b/a;
  end;

//Линейное уравнение двух переменных вида ax+by+c=0
//имеет бесконечное множество решений (корней)
procedure lin2(a,b,c: real);
  var x,y: real; 
  n,i: integer;
  begin
    write ('Сколько пар корней вы хотите получить? ');
    readln (n);
    for i:=1 to n do begin
      write ('Введите x=');
      read (x);
      y:=(-c-a*x)/b;
      writeln ('   y=',y);
    end;
  end;
  
var
  a,b,c,x,y: real;
  n: integer;
begin
  write ('Сколько переменных в уравнении - 1 или 2? ');
  readln (n);
  if n=1 
    then begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите свободный коэффициент b=');
      readln (b);
      lin1(a,b,x);
      writeln ('x=',x);
    end
    else begin
      write ('Введите коэффициент при х: а=');
      readln (a);
      write ('Введите коэффициент при y: b=');
      readln (b);
      write ('Введите свободный коэффициент c=');
      readln (c);
      lin2(a,b,c);
    end;
end.
пример 1
Сколько переменных в уравнении - 1 или 2? 1
Введите коэффициент при х: а=3
Введите свободный коэффициент b=9
x=-3
пример 2
Сколько переменных в уравнении - 1 или 2? 2
Введите коэффициент при х: а=2
Введите коэффициент при y: b=2
Введите свободный коэффициент c=-4
Сколько пар корней вы хотите получить? 3
Введите x=0
   y=2
Введите x=2
   y=0
Введите x=-2
   y=4
4,4(68 оценок)
Ответ:
katarakta
katarakta
14.01.2023
Чертежник вернется исходную точку, если сумма перемещений и по горизонтали, и по вертикали будет равна нулю.
Перемещение по горизонтали: Sx=-3+n(a+27)-22=-25+n(a+27);
Перемещение по вертикали: Sy=3+n(b+12)-7=-4+n(b+12).
\begin {cases} S_x=0 \\ S_y=0 \end {cases}; \ \begin {cases} -25+n(a+27)=0 \\ -4+n(b+12)=0 \end {cases}; \ \begin {cases} n(a+27)=25 \\ n(b+12)=4 \end {cases} \\ \begin {cases} a+27= \frac{25}{n} \\ b+12= \frac{4}{n} \end {cases} \to \begin {cases} a=\frac{25}{n}-27 \\ b=\frac{4}{n}-12 \end {cases}
Решение надо найти в целых числах, поэтому и 25, и 4 должны делиться на n без остатка. Таким минимальным (и единственным) числом является n=1.
Тогда a=25-27=-2, b=4-12=-8.
ответ: n=1; a=-2; b=-8

Замечание: вернуться в исходную точку, т.е. нарисовать замкнутый контур,  можно всегда за одно перемещение - это очевидно. Вот если нужно, чтобы n было больше 1, тогда нарисовать такой контур может оказаться невозможным. Как, например, в нашем случае.
4,5(34 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ