begin31-40

Решение задач. День четвертый. Задачи Begin31-40.

Задачи Begin31-40, которые мы сегодня решаем, являются заключительными в блоке Begin. На данном этапе обучения, вы должны щелкать все эти задачи, как орешки. Если же у вас возникили какие-либо проблемы, оставьте комментарий с вопросом под этой статьей или напишите нам письмо.

Begin31. Дано значение температуры T в градусах Фаренгейта. Определить значение этой же температуры в градусах Цельсия. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением: TC = (TF – 32)·5/9.

Задачи  Begin
Задачи Begin
Решение Показать

Begin32. Дано значение температуры T в градусах Цельсия. Определить значение этой же температуры в градусах Фаренгейта. Температура по Цельсию TC и температура по Фаренгейту TF связаны следующим соотношением: TC = (TF – 32)·5/9.

Решение Показать

Begin33. Известно, что X кг конфет стоит A рублей. Определить, сколько стоит 1 кг и Y кг этих же конфет.

Обратите внимание насколько не понятны короткие названия.
Обратите внимание насколько непонятны короткие названия.
Решение Показать

Begin34. Известно, что X кг шоколадных конфет стоит A рублей, а Y кг ирисок стоит B рублей. Определить, сколько стоит 1 кг шоколадных конфет, 1 кг ирисок, а также во сколько раз шоколадные конфеты дороже ирисок.

 

Решение Показать

Begin35. Скорость лодки в стоячей воде V км/ч, скорость течения реки U км/ч  (U < V). Время движения лодки по озеру T1 ч, а по реке (против течения) — T2 ч. Определить путь S, пройденный лодкой (путь = время · скорость). Учесть, что при движении против течения скорость лодки уменьшается на величину скорости течения.

Решение Показать

Begin36. Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили удаляются друг от друга. Данное расстояние равно сумме начального расстояния и общего пути, проделанного автомобилями; общий путь = время · суммарная скорость.

Решение Показать

Begin37. Скорость первого автомобиля V1 км/ч, второго — V2 км/ч, расстояние между ними S км. Определить расстояние между ними через T часов, если автомобили первоначально движутся навстречу друг другу. Данное расстояние равно модулю разности начального расстояния и общего пути, проделанного автомобилями; общий путь = время · суммарная скорость.

Решение Показать

Begin38. Решить линейное уравнение A·x + B = 0, заданное своими коэффициентами A и B (коэффициент A не равен 0).

Решение Показать

Begin39. Найти корни квадратного уравнения A·x2 + B·x + C = 0, заданного своими коэффициентами A, B, C (коэффициент A не равен 0), если известно, что дискриминант уравнения положителен. Вывести вначале меньший, а затем больший из найденных корней. Корни квадратного уравнения находятся по формуле x1,2 = (−B ± √D ) / (2·A), где D — дискриминант, равный B2 – 4·A·C.

Решение Показать

Begin40. Найти решение системы линейных уравнений вида

A1·x + B1·y = C1,

Ax + B2·y = C2,

заданной своими коэффициентами A1, B1, C1, A2, B2, C2, если известно, что данная система имеет единственное решение. Воспользоваться формулами: x = (C1·B2 – C2·B1)/D, y = (A1·C2 – A2·C1)/D, где D = A1·B2 – A2·B1.

Решение Показать

Ну, вот и все. Через несколько дней начнем решать задачи из блока Integer.

  • лязка

    В блок схеме begin35 вывод неправильный!

    • Когда-нибудь я её исправлю. Но сейчас мне лень. Это так грустно.

  • Владислав

    Пусть я лучше спрошу это сейчас, чем никогда.

    1. Как и когда нужно писать Write и Writeln?

    2.Зачем нужна ширина поля вывода и как она выглядит на практике?

    • Sergey Haritonov

      после команды write(read) курсор не переносится на новую строку т.е. начинает прямо тут же без пробелов, а writeln(readln) переносит курсор на следующую строку.

  • Vic769

    В блок схеме 33 ошибка
    Должно быть не O:=X/A
    а O:=A/X
    в самой программе всё правильно

  • МаринаВ

    а я №39 усовершенствовала 🙂 (Очень хороший ВАШ сайт. Не пойму: почему не развиваете…)
    program Begin39;
    var
    x1, x2, A, B, C, D: real;
    begin
    writeln (‘Программа для решения уравнения A*x^2+B*x+C=0.’);
    write (‘Введите коэффициент А, причем он не равен 0: ‘);
    readln (A);
    write (‘Введите коэффициент В: ‘);
    readln (B);
    write (‘Введите коэффициент C: ‘);
    readln (C);
    D:=sqr(B)-4*A*C;
    writeln (‘D= ‘, D);
    if (D>0) or (D=0) then
    begin
    writeln (‘находим корни уравнения:’);
    x1:=(-B+sqrt(D))/(2*A);
    x2:=(-B-sqrt(D))/(2*A);
    writeln (‘х1 = ‘, x1:5:2);
    writeln (‘х2 = ‘, x2:5:2);
    end;
    if D<0 then writeln ('Уравнение не имеет корней.');
    end.

    • alen_marzz

      Молодец! 🙂
      Но тогда уже подкорректируйте и случай нулевого дискриминанта. Зачем усложнять себе жизнь, когда корни одинаковые?

  • Омар Шайхалиев

    program n_38;
    var a,b,x1,x2,d,c:real;
    begin
    writeln(‘Введите а и b,c’);
    readln(a);
    readln(b);
    readln(c);
    d:=sqr(b)-4*a*c;
    if d>0 then begin
    x1:=(-b-sqrt(d))/(2*a);
    x2:=(-b+sqrt(d))/(2*a);
    if (x1<x2) then begin
    writeln(x1);
    writeln(x2);
    end;
    if
    (x2<x1) then begin
    writeln(x2);
    writeln(x1);
    end;
    end;
    end.
    показывает больший из корней сначала, подскажите где ошибка

  • Омар Шайхалиев

    program n_38;
    var a,b,x1,x2,d,c:real;
    begin
    writeln(‘Введите а и b,c’);
    readln(a);
    readln(b);
    readln(c);
    d:=sqr(b)-4*a*c;
    if d>0 then begin
    x1:=(-b-sqrt(d))/(2*a);
    x2:=(-b+sqrt(d))/(2*a);
    if (x1<x2) then begin
    writeln(x1);
    writeln(x2);
    end;
    if
    (x2<x1) then begin
    writeln(x2);
    writeln(x1);
    end;
    end;
    end.
    где ошибка? показывает больший из корней сначала

  • Омар Шайхалиев

    program n_38;
    var a,b,x1,x2,d,c:real;
    begin writeln(‘Введите а и b,c’);
    readln(a);readln(b); readln(c);
    d:=sqr(b)-4*a*c;
    if d>0 then begin
    x1:=(-b-sqrt(d))/(2*a);
    x2:=(-b+sqrt(d))/(2*a);
    if (x1<x2) then begin
    writeln(x1); writeln(x2);
    end; if (x2<x1) then begin writeln(x2); writeln(x1); end; end; end.
    как сделать чтоб выводил меньший корень вначале, укажите ошибку

  • Омар Шайхалиев

    где ошибка, что сделать чтоб выводил больший из корней вначале

    • просто поменяйте знак «».