Родной Паскаль

[Tranzistor]

Родной Паскаль

Здравствуйте! Форумчане, не за себя прошу, за девушку хорошую. Помогите пожалуйста с задачами по паскалю.

Первая задача на первой картинке. Там требуется составить еще блок-схему.

Вторая задача:

program logarifm;
uses crt;
function log( a,b,c,x:real):real;
begin
log:=a*ln(b*x)+c;
end;
var
a,b,c,x:real;
i:real;
begin
clrcsr;
write('a='); readln(a);
write('b='); readln(b);
write('c=');readln(c);
x:=9;
while x<=11 do
begin
i:=log(a,b,c,x);
writeln(i:5:6);
x:=x+0.5
end;
Readln
end.

Здесь тоже требуется составить блок-схему.

Третья задача:

program lab5;
usescrt;
var x: array[1..7] of string[8];
s:string[8];
dl, n, i,j,l:byte;
begin
writeln('vvedite 7 sloviz 5-8 bukv:');
for i:=1 to 7 do
readln(x);
writeln('dlina l=');
readln(l);
clrscr;
for i:=1 to 7 do
writeln(x);
for i:=1 to 7 do
begin
if length(x)<l then
begin
s:=x;
for j:=1 to length(s) do
begin
n:=pos('a',s);
if n>0 then s[n]:='d';
end;
x:=s;
end;
end;
for i:=1 to 7 do
write(x,' ');
readln;
end.

И здесь также требуется составить блок-схему.

И последнее задание в Документе. Я обрезал его, оставил только задание, если кому-понадобится, второй файл полный.

Заранее благодарю.

 

[Vladimir_S]

Здравствуйте! Форумчане, не за себя прошу, за девушку хорошую. Помогите пожалуйста с задачами по паскалю.

М-да... Запрос составлен в худших традициях форума. Нет, Алексей, так дело не пойдёт.
1. По первой задаче. Как следует понимать сию запись - так: или так: ? И правильно ли я понимаю, что α не есть множитель под знаком суммы, а просто мера точности, составляющая 0.01? В приведенной формуле это как-то не ясно.
2. По следующим двум. Где сами формулировки задач? Или Вы предлагаете нам делать обратную дешифровку не вполне отлаженных программ, догадываться, что имел в виду программист и, исходя из наших догадок, править? Нет уж, увольте!
3. По последнему заданию. А можно кратко, ясно и четко сформулировать, что требуется? Без этого идиотско-высокопарного (на пустом месте) нагромождения слов?

 

[AlexZir]

Насколько я понимаю, во второй задаче выводится таблица значений логарифмической функции с заданными коэффициентами для аргумента на промежутке от 9 до 11 с приращением 0,5. Блок-схема состоит из 2-х частей: основной программы и функции, в схеме основной программы должны присутствовать операторы ввода коэффициентов, присвоения начального значения аргумента, конструкция цикл, в цикле конструкция вызова функции, вывода текущего значения, вычисления нового значения аргумента, после цикла нужно предусмотреть конструкцию ввода для перехода на конец программы. Все необходимые конструкции и их представление вы найдете в ГОСТе, составить схему не трудно, но муторное это дело - стрелочки вырисовывать, так что пробуйте сами, тем более девушка "хорошая"

 

[Tranzistor]

Извините пожалуйста.
В первой задаче альфа- точность.
вот более правильная формула:


И для третьей задачи условие в большой картинке.

 

[Vladimir_S]

Ну значит так.
По первой задаче (кстати, там при такой грубой точности "играют" всего два слагаемых):

CONST
 Alpha=0.01;
VAR
 S,a:Real;
 n,k:Word;
BEGIN
 a:=-1/6;
 S:=a;
 n:=1;
 Repeat
  Inc(n);
  k:=3*n;
  repeat
   a:=a/k;
   Dec(k);
  until k=3*(n-1);
  a:=-a;
  S:=S+a;
 Until Abs(a)<Alpha;
 Writeln('S= ',S:0:5);
 Readln;
END.

Теперь по второй задаче (которую Вы с последнем посте почему-то обозвали третьей). Тут я малость "причесал" и привел код в соответствие с дебильным указулями ("программа должна состоять..." и далее по составленному дебилами дебильному тексту):

uses crt;

var
 a,b,c,x:real;

Function log(x1:real):real;
begin
 log:=a*ln(b*x1)+c;
end;

Procedure Inp_data;
 begin
  write('a= '); readln(a);
  write('b= '); readln(b);
  write('c= '); readln(c);
 end;

Procedure Out_data(x2:real);
begin
 writeln('x = ',x:4:1,'      f = ',log(x2):9:5);
end;

BEGIN
 clrscr;
 Inp_data;
 x:=9;
 while x<=11 do
  begin
   Out_data(x);
   x:=x+0.5;
  end;
 Readln
END.

Что касается реально третьей задачки, где работа со строками, словами и т.д., то, увы, ее формулировки я так и не увидел.
Равно как и последней задачи, где вместо ясной формулировки я вижу какую-то ужасно многословную галиматью с предписаниями что-то там "изучить", устно на что-то там ответить, как-то там оформить отчет в соответствии еще с чем-то, потом набор каких-то неудобопонятных таблиц с кучей вариантов задания - и при этом даже ни малейшего намека на то, какой именно вариант требуется взять в работу.

В общем, так. Будет нормальная формулировка задания - будет и дальнейший разговор о помощи.

 

[Tranzistor]

Вот вариант решения последнего задания, но программа выдает ошибку. Преподаватель сам написал прогу, там в общем 3 действия, Ввод с клавиатуры и запись в массив, запись из массива в файл, чтение из файла и вывод на экран... вот их все надо в проге составить..он ей помог составить.. написал на листочке, она с её в электронном виде написала и проверять начала, и паскаль выдаёт ошибку 36 не хватает Begin

Programm lab 7;
Conts n=10;
Var
F:text;
I: real;
Procedure A;
Begin
Write (‘ введите 10 чисел через пробел’);
For i:=1 to n do read (a);
End;
Procedure A1;
Begin
Assign (f, ‘rez. Txt’);
Rewrite (F);
For i:=1 to n do write (F, a);
Close (F);
End;
Procedure A2;
Begin
Assign (f, ‘rez. Txt’);
Reset(F);
For i:=1 to n do
Begin
Read (F, a);
Write (a, ‘ ‘);
Close (F);
End;
BEGIN
A;
A1;
A2;
Readln
end.

 

[AlexZir]

Сходу:

Write (‘ введите 10 чисел через пробел’);

Assign (f, ‘rez. Txt’);

Assign (f, ‘rez. Txt’);

Write (a, ‘ ‘);

Исправьте кавычки на такие апострофы: '

Переменную I определите как целочисленную, то есть задайте ей тип Integer. Дело в том, что при использовании переменной в качестве счетчика она должна быть перечислимого типа, а такому типу соответствуют только целочисленные значения.