Цитата:
Сообщение от Radist61
Здравствуйте уважаемые форумчане!! Если есть у кого нибудь свободное время или желание помочь студенту,будьте любезны помочь в решении 4-х задач и составлении для них блок схем на языке Паскаль.
|
Да пожалуйста:
Цитата:
1. Каждая бактерия делится на две в течение минуты. В начальный момент времени имеется одна бактерия. Написать программу для расчета кол-ва бактерий за введенное время??
|
Код:
VAR
n:Real;
BEGIN
Write('Enter n (minutes) ');
Readln(n);
WriteLn(ROUND(Exp(n*Ln(2))));
ReadLn;
END.
Цитата:
2. Написать программу генерирования одномерного массива чисел(с помощью генератора случайных чисел). И чтобы программа так же выполняла след.действия:
1)опрелеляла сумму всех элементов массива;
2) изменяла знаки всех элементов массива на противоположные;
|
Код:
CONST
N=10;
VAR
A:ARRAY[1..N] of INTEGER;
SUM:LongInt;
i:INTEGER;
BEGIN
RANDOMIZE;
SUM:=0;
For i:=1 to N do
begin
A[i]:=RANDOM(1000)-500;
SUM:=SUM+A[i];
Write(A[i]:6);
end;
WriteLn;
WriteLn('SUM= ',SUM);
For i:=1 to N do
begin
A[i]:=-A[i];
Write(A[i]:6);
end;
WriteLn;
ReadLn;
END.
Цитата:
Уверен у многих вызовит смех,но мне не до смеха хотелось бы получить помощь,я занимаюсь ремонтом сотовых телефонов и далек от Паскаля. Так же буду навищать ваши разделы по ремонту и стараться оказать помощь
|
К сожалению, с блок-схемами помочь не могу. Не умею.