Идея вот в чем, я не знаю, как на паскале, но на С++ это #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; }
//Линейное уравнение от одной переменной вида 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
Чертежник вернется исходную точку, если сумма перемещений и по горизонтали, и по вертикали будет равна нулю. Перемещение по горизонтали: Sx=-3+n(a+27)-22=-25+n(a+27); Перемещение по вертикали: Sy=3+n(b+12)-7=-4+n(b+12). Решение надо найти в целых числах, поэтому и 25, и 4 должны делиться на n без остатка. Таким минимальным (и единственным) числом является n=1. Тогда a=25-27=-2, b=4-12=-8. ответ: n=1; a=-2; b=-8
Замечание: вернуться в исходную точку, т.е. нарисовать замкнутый контур, можно всегда за одно перемещение - это очевидно. Вот если нужно, чтобы n было больше 1, тогда нарисовать такой контур может оказаться невозможным. Как, например, в нашем случае.
#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;
}