задачи в PascalABC

[Dexter33]

Поморите пожалуйста решить задачки в Pascal...
Фото заданий ниже)
Спасибо.

[ZX Spectrum-128]

Хотелось бы увидеть ваши наработки. И еще, в третьей задаче не совсем ясен смысл задачи. Что означает "вывести ... в первой строке", если введена одна строка.

[Dexter33]

Сообщение от ZX Spectrum-128

Хотелось бы увидеть ваши наработки. И еще, в третьей задаче не совсем ясен смысл задачи. Что означает "вывести ... в первой строке", если введена одна строка.

Спасибо что отозвались, но уже сделал вроде, можно попросить проверить?)
1)

program v9_1;
var
a, b, x, y: real;
begin
a := -0.75;
b := 51;
Write('x = ');
ReadLn(x);
y := 1 + abs(x - b) + (exp(ln(x - a) * 2)/2);
WriteLn('y = ', y);
ReadLn;
end.

2)

program v9_2;
var
i: integer;
a: array [1..10] of integer;
begin
for i := 1 to 10 do
begin
Write('a[',i,'] = ');
ReadLn(a[i]);
end;
for i := 1 to 10 do
if a[i] mod 3 = 0 then
Write(a[i], ' ');
ReadLn;
end.

3)

program v9_3;
var
i: integer;
s: string;
n: string;
begin
Write('Str = ');
ReadLn(s);
n := '';
for i := 1 to Length(s) do
if s[i] in ['0'..'9'] then
n := n + s[i];
WriteLn(n);
ReadLn;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[ZX Spectrum-128]

Кхммм, какой-то нетипичный студент попался
Пожалуй, поставлю-ка я плюсик

[Serge_Bliznykov]

на мой взгляд все три задачи решены верно (с маленькой оговоркой .

единственно.
я бы в первой задаче настоятельно рекомендовал обойтись без логарифма и exp,
есть функция возведения в квадрат sqr()
Возведение в квадрат будет работать при любых входных числах, в отличие от ln(), которая имеет ограниченную ОДЗ

и ещё, в первой задаче стоит создать подпрограмму-функцию... Это не сделано.

[Dexter33]

Сообщение от Serge_Bliznykov

на мой взгляд все три задачи решены верно (с маленькой оговоркой .

единственно.
я бы в первой задаче настоятельно рекомендовал обойтись без логарифма и exp,
есть функция возведения в квадрат sqr()
Возведение в квадрат будет работать при любых входных числах, в отличие от ln(), которая имеет ограниченную ОДЗ

и ещё, в первой задаче стоит создать подпрограмму-функцию... Это не сделано.

Так лучше?
1)

program v9_1;
const A=-0.75;
B=51;
var y,x:real;
begin
writeln('Введите X:');
read(x);
y:=1+abs(x-b)+sqr(x-a)/2;
writeln('Y = ',y);
end.

[Serge_Bliznykov]

Сообщение от Dexter33

Так лучше?
1)

program v9_1;
const A=-0.75;
B=51;
var y,x:real;
begin
writeln('Введите X:');
read(x);
y:=1+abs(x-b)+sqr(x-a)/2;
writeln('Y = ',y);
end.

Намного!
Вот в таком виде уже можно смело сдавать.

В Pascal/Delphi большие(прописные)/малые(строчные) буквы в именах переменных не различаются. Но я бы Вам (для себя) рекомендовал использовать один регистр (если будете изучать C/C#/Java - эта привычка Вам сильно пригодится):
я о чём - либо:

const 
  A=-0.75;
  B=51;
...
y:=1+abs(x-B)+sqr(x-A)/2;

либо

const 
  a=-0.75;
  b=51;
...
y:=1+abs(x-b)+sqr(x-a)/2;

но ещё раз повторю - в данном случае это не ошибка! Просто неаккуратность...