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[i]);
writeln('dlina l=');
readln(l);
clrscr;
for i:=1 to 7 do
writeln(x[i]);
for i:=1 to 7 do
begin
if length(x[i])<l then
begin
s:=x[i];
for j:=1 to length(s) do
begin
n:=pos('a',s);
if n>0 then s[n]:='d';
end;
x[i]:=s;
end;
end;
for i:=1 to 7 do
write(x[i],' ');
readln;
end.

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

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

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

Миниатюры

 

Вложения

	7.doc (43.5 Кб, 219 просмотров)
	полный текст последнего задания.docx (44.0 Кб, 528 просмотров)

Vladimir_S

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

AlexZir

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

Tranzistor

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


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

Миниатюры

 

Изображения

 

Vladimir_S

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

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

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[i]);
End;
Procedure A1;
Begin
Assign (f, ‘rez. Txt’);
Rewrite (F);
For i:=1 to n do write (F, a[i]);
Close (F);
End;
Procedure A2;
Begin
Assign (f, ‘rez. Txt’);
Reset(F);
For i:=1 to n do
Begin
Read (F, a[i]);
Write (a[i], ‘ ‘);
Close (F);
End;
BEGIN
A;
A1;
A2;
Readln
end.

AlexZir

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

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