Ksuxxxa
Новичок
|
       
Здравствуйте! помогите мне пожалуста решить систему и записать на программа Pascal. воообще срочно надо, дело горит! {(sin⁡〖x^2+аx-1,x>1〗@tan⁡〖bx+x^2+4ax,x≤1〗 )┤а=6, b=13; изменение интервала (0,2; -1,8), с шагом 0,1
|
Всего сообщений: 1 | Присоединился: март 2010 | Отправлено: 21 марта 2010 14:10 | IP
|
|
nastya2010
Новичок
|
14.Даны действительные числа а, b, с. Удвоить эти числа, если а<b<с, и заменить их абсолютными значениями, если это не так.
|
Всего сообщений: 9 | Присоединился: март 2010 | Отправлено: 27 марта 2010 14:28 | IP
|
|
nastya2010
Новичок
|
14.Найти произведение двузначных нечетных чисел, кратных 13.
|
Всего сообщений: 9 | Присоединился: март 2010 | Отправлено: 27 марта 2010 14:29 | IP
|
|
MaJlbBuHa
Новичок
|
Для nastya2010
Program zadacha13;
Uses crt;
Var a,b,c:longint;
Begin
Clrscr;
a:=13;
b:=1;
Write('Произведение нечётных двузначных чисел кратных 13 = ');
Repeat
If a mod 2 <> 0 then
begin
c:=a*b;
b:=c;
a:=a+13;
end
else a:=a+13;
Until a>99;
Write(b);
End.
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 29 марта 2010 18:56 | IP
|
|
MaJlbBuHa
Новичок
|
Проверьте пожалуйста задачу на текстовый тип:
Удалите из массива минимальный элемент. Массив считывается из файла, новый массив записывается в файл.
Вот мой код:
program mis;
uses crt;
const n=5;
type tMas = record
e:array[1..n] of integer;
col:integer;
end;
var mas:tMas;
i,j,minim:integer;
procedure readFile (var a:tMAs);
var f:text;
i:integer;
begin
assign (f,'input.txt');
reset(f);
for i:=1 to n do
read (f,a.e);
a.col:=n;
close(f);
end;
function findMin (a:tMas): integer;
var m:integer;
begin
{m:=32767; }
m:=a.e[1];
for i:=1 to n do
if m<a.e then m:=a.e;
findMin:=m;
end;
procedure deletemin (var a:tMas; m:integer);
begin
i:=1;
While i<=a.col do begin
If a.e=m then
begin
for j:=i to a.col do
a.e[j]:=a.e[j+1];
dec(a.col);
end
else
inc(i);
end;
end;
procedure print (a:tMas);
begin
for j:=1 to a.col do
write (a.e[j]:3);
writeln(' ' );
end;
begin
clrscr;
readFile(mas);
print(mas);
deleteMin (mas,findMin(mas));
print (mas);
end.
Почему то у меня не удаляется минимальный элемент(((
Заранее спасибо
|
Всего сообщений: 48 | Присоединился: январь 2009 | Отправлено: 29 марта 2010 18:58 | IP
|
|
nastya2010
Новичок
|
спасибо большое MaJlbBuHa )))
|
Всего сообщений: 9 | Присоединился: март 2010 | Отправлено: 30 марта 2010 15:48 | IP
|
|
nastya2010
Новичок
|
внешняя ссылка удалена как ее решить?какой код
|
Всего сообщений: 9 | Присоединился: март 2010 | Отправлено: 30 марта 2010 16:24 | IP
|
|
Korvet
Новичок
|
Цитата: nastya2010 написал 30 марта 2010 16:24
http://slil.ru/28879911 как ее решить?какой код
Program nasty2010;
var
e,z:real;
i,j:byte;
a:array[1..20] of real;
begin
Write('vvedite epsilon');
Readln(e);
i:=1;
a[1]:=sqrt(sqrt(sqr(i)-i+1))/10;
while a[ i ]>= e do
begin
inc(i);
z:=10;
for j:=2 to i do
z:=z*10;
a:=sqrt(sqrt(sqr(i)-i+1))/z;
end;
Writeln(i);
for j:=1 to i do
Writeln('a[',j,']=',a[j]:11:10);
readln;
end.
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 30 марта 2010 21:12 | IP
|
|
Archer
Новичок
|
Составить алгоритм решения задачи, блок схему и программную реализацию:
Подсчитать количество натуральных чисел, принадлежащих отрезку[a,b] в записи которых нечетные цифры отсутствуют
|
Всего сообщений: 6 | Присоединился: март 2010 | Отправлено: 31 марта 2010 14:40 | IP
|
|
nastya2010
Новичок
|
14.Вычислить среднее арифметическое значение тех элементов одномерного массива, которые расположены за первым по порядку минимальным элементом
|
Всего сообщений: 9 | Присоединился: март 2010 | Отправлено: 31 марта 2010 17:50 | IP
|
|
Форум
Решение задач на Pascal. Форум 3.
