Перевести этот код delphi в паскаль, program taskformula; uses var x, a, xn, xk, dx, sum, multiplnegative: real; countnegative: integer; j,m,f: real; y: real; begin writeln('a --> '); read(a); writeln(' xn --> '); read(xn); writeln(' xk --> '); read(xk); writeln(' dx --> '); read(dx); sum : = 0; multiplnegative : = 1; countnegative : = 0; x : = xn; while (x < = xk) do begin if (a+x < 0) then begin f: =(a+x)*-1; f: =ln(f)*(-1); j: = roundto(abs(a-sqr(x)) * f,-5); end else j: = roundto(abs(a-sqr(x)) * ln(a+); m: = power(sqr(x),1/3)+ power(a,1/5); if j< 0 then begin j: =j*(-1); j: = power(j, 1/3); j: =j*(-1); end else j: = power(j, 1/3); y: = roundto(j/m,-5); write('x= ',x: 5: 3,' '); writeln('y= ',y: 7: 5); if y< 0 then begin sum : = sum + y; multiplnegative : = multiplnegative * y; inc(countnegative); end; x: = x + dx; end; writeln; writeln(' y = ',countnegative); writeln('y = ',sum: 7: 5); writeln(' y = ',multiplnegative: 7: 5); readln; end.
181
381
Ответы на вопрос:
Var y, x, a, xn, xk, dx, sum, multiplnegative: real; countnegative: integer; j, m, f: real; begin write('a --> '); read(a); write(' xn --> '); read(xn); write(' xk --> '); read(xk); write(' dx --> '); read(dx); sum : = 0; multiplnegative : = 1; countnegative : = 0; x : = xn; while (x < = xk) do begin if (a + x < 0) then begin f : = (a + x) * -1; f : = ln(f) * (-1); j : = round(abs(a - sqr(x)) * f * 100000) / 100000; end else j : = round(abs(a - sqr(x)) * ln(a + x) * 100000) / 100000; m : = power(sqr(x), 1 / 3) + power(a, 1 / 5); if j < 0 then begin j : = j * (-1); j : = power(j, 1 / 3); j : = j * (-1); end else j : = power(j, 1 / 3); y : = round(j / m * 100000) / 100000; write('x= ', x: 5: 3, ' '); writeln('y= ', y: 7: 5); if y < 0 then begin sum : = sum + y; multiplnegative : = multiplnegative * y; inc(countnegative); end; x : = x + dx; end; writeln; writeln(' y = ', countnegative); writeln('y = ', sum: 7: 5); writeln(' y = ', multiplnegative: 7: 5); readln; end.
Вот программа (короче я не понял ваше условие - там какие то с в кавычках, с без uses crt; var s: string; i, len, sum: integer; begin clrscr; write(' slovo = '); readln(s); len: =length(s); for i: =1 to len do if s[i]='c' then sum: =sum+1; writeln(' colichestwo c = ', sum); readln; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
орлыварив04.01.2020 23:57
-
Anrehah28.12.2021 08:28
-
ElDiablo133708.11.2020 22:35
-
MrShkololo29.07.2021 15:28
-
Maria2051111.08.2022 07:01
-
Эмиральд07.02.2021 08:01
-
aruzakova0523.04.2021 21:55
-
ISZ200227.03.2022 14:46
-
myatlick08.12.2020 22:19
-
muslim3802.05.2020 20:48
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.