Форум
» Назад на решение задач по физике и термеху
Регистрация | Профиль | Войти | Забытый пароль | Присутствующие | Справка | Поиск

» Добро пожаловать, Гость: Войти | Регистрация
    Форум
    Информационные технологии
        Решение задач на Pascal. Форум 3.
Отметить все сообщения как прочитанные   [ Помощь ]
» Добро пожаловать на форум "Информационные технологии" «

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]
Модераторы: paradise, KMA
  

Ksuxxxa


Новичок

Здравствуйте! помогите мне пожалуста решить систему и записать на программа Pascal. воообще срочно надо, дело горит! {(sin&#8289;&#12310;x^2+аx-1,x>1&#12311;@tan&#8289;&#12310;bx+x^2+4ax,x&#8804;1&#12311; )&#9508;а=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


Новичок

http://slil.ru/28879911 как ее решить?какой код

Всего сообщений: 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

Отправка ответа:
Имя пользователя   Вы зарегистрировались?
Пароль   Забыли пароль?
Сообщение

Использование HTML запрещено

Использование IkonCode разрешено

Смайлики разрешены

Опции отправки

Добавить подпись?
Получать ответы по e-mail?
Разрешить смайлики в этом сообщении?
Просмотреть сообщение перед отправкой? Да   Нет
 

Переход к теме
<< Назад Вперед >>
Несколько страниц [ 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 ]

Форум работает на скрипте © Ikonboard.com