Нужны 2 программы в паскале ABC.
Задания на фото.
Приложения:
BobbyFresnel:
Найдете, где его скачать, чтобы было легально, решу.
Официально эта версия умерла 12 лет назад.
http://pascalabc.net/ssyilki-dlya-skachivaniya
Стоп, это PascalABC.NET - совсем не то, о чем Вы написали. Иной язык.
Там используется язык Паскаля, я писала рабочие программы именно в той программе, что указана по ссылке. И чужие программы у меня тоже отлично работают.
Я, видимо написал недостаточно ясно. PascalABC.NET умеет выполнять программы, написанные в Pascal ABC, но не наоборот. Я не знаю языка Pascal ABC, поэтому могу только на PascalABC.NET писать, но уже сто раз слышал, что в Pascal ABС мои коды не работают.
Поэтому и спросил, где взять этот АВС, чтобы про него почитать хоть.
Не сталкивалась с этой проблемой, всегда писала в PascalABC.NET, даже не знала, что есть Pascal ABС и PascalABC.NET, поэтому написала так как написала, поэтому то, что Вы напишите на PascalABC.NET мне подойдет
ОК
Ответы
Ответ дал:
1
===== PascalABC.NET =====
= 1 =
begin
var a, b: integer;
var x, z: real;
Write('Введите a, b, x, z: ');
Read(a, b, x, z);
var k := 1.0;
for var d := 1 to b do
begin
var c := 0.0;
for var s := 1 to a do
c += (d * d + x) / (s ** (3 / 2) + z);
k *= c
end;
Println('К =', k)
end.
= 2 =
begin
var b, n: integer;
var x, z: real;
Write('Введите b, n, x, z: ');
Read(b, n, x, z);
var g := 0.0;
for var c := 1 to b do
begin
var p := 1.0;
for var a := 1 to n do
p *= (a * a * a + z) / (c * c + x);
g += p
end;
Println('G =', g)
end.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
5 месяцев назад
2 года назад
7 лет назад
7 лет назад