Новые сообщения · Правила  
Страница 31 из 38«1229303132333738»
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Решения задач на Паскале!Срочно нужно!
var
s:integer;
h:real;
begin
h:=5;
repeat
s:=s+(sqr(3*x+2)-sqrt(3*x))/sqr(3*x);
h:=h+0.1;
until h=7;
writeln(s);
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
601 | Автор: Berestovskiy | 2012-06-16, 11:48   |  Репутация: [ + 211 ]
Попробовал вставлять его после разных end;

Везде выдаёт ошибку в этой строке(последней с week[1])

Quote (Fireleo)
function Mon:real;//функции по дням недели
begin
  randomize;
  week[1]:=random(b-a+1)+a;


Пишет ошибку после закрытия скобок, то есть перед плюсованием "a", вот какая ошибка :
Ошибка : функция RANDOM с параметрами указанных типов не найдена

Добавлено (16.06.12, 23:47)
---------------------------------------------
А если ставлю же после этого end;

Quote (Fireleo)
 case (i mod 7) of
    1: writeln('День ',n,' пон, пройдено', mon:3:2,'км');
    2: writeln('День ',n,' втр, пройдено', Tue:3:2,'км');
    3: writeln('День ',n,' срд, пройдено', Wed:3:2,'км');
    4: writeln('День ',n,' чет, пройдено', Thu:3:2,'км');
    5: writeln('День ',n,' птн, пройдено', Fri:3:2,'км');
    6: writeln('День ',n,' сбт, пройдено 0 км');
   else  
    begin
     ClearWeek;
     writeln('День ',n,' вск, пройдено 0 км');
    end;


То выдаёт эту ошибку :
Неизвестный идентификатор mon

: ( (
602 | Автор: Altair4eg | 2012-06-16, 23:47   |  Репутация: [ + 0 ]
602 | Автор: Altair4eg | 2012-06-16, 23:47   |  Репутация: [ + 0 ]
Quote (Altair4eg)
А куда это дописать*?

После описания переменных

Добавлено (17.06.12, 13:16)
---------------------------------------------

Quote (Fireleo)
Ошибка : функция RANDOM с параметрами указанных типов не найдена

Попробуй для переменных a и b установить тип integer;
603 | Автор: Fireleo | 2012-06-17, 13:16   |  Репутация: [ + 30 ]
Quote (Fireleo)
Попробуй для переменных a и b установить тип integer;


Блиииин, теперь пишет такое в этой строке

Quote (Altair4eg)
  total:=total+week[1];


"Ошибка : Попытка присвоить переменной типа integer выражение типа real" в этой строке, до точки с запятой
604 | Автор: Altair4eg | 2012-06-17, 16:42 | Изменено: Altair4eg - Вс, 2012-06-17, 16:42   |  Репутация: [ + 0 ]
Напиши вот так)

total:=round(total+week[1]);


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
605 | Автор: Berestovskiy | 2012-06-17, 21:40   |  Репутация: [ + 211 ]
Quote (Berestovskiy)
total:=round(total+week[1]);


Вооот так дописал в каждом дне, дальше выдало ошибку тут

Quote (Fireleo)
end;
   {end;}//не помню нужен тут или нет.


Убрал этот end;

И дальше ещё одну ошибку прямо в конце выдало, вот здесь

Quote (Fireleo)
  writeln('всего за ',n, ' дней, пройдено ',total:3:2,' километров.');


Вот тут, после двойки выдаёт ошибку : Формат вывода :n:m применим только к данным типа real или complex
606 | Автор: Altair4eg | 2012-06-17, 22:50   |  Репутация: [ + 0 ]
606 | Автор: Altair4eg | 2012-06-17, 22:50   |  Репутация: [ + 0 ]
Помогите, пожалуйста, решить вот такую задачу. Это допуск к экзамену, но у меня самой ничего не выходит=(

Создать не текстовый файл news.Dat, содержащий информацию о выпускаемых газетах (название, тираж, дата выпуска (число, месяц)). Переписать в текстовый файл информацию о газетах, упорядоченную в алфавитном порядке, тираж которых превышает 10000. Вывести на экран название газеты, имеющей наибольший тираж. Ввести текущую дату, вывести на экран название самой свежей газеты.

Заранее огромное спасибо)
607 | Автор: Tania320 | 2012-06-18, 04:53   |  Репутация: [ + 0 ]
Quote (Altair4eg)
Вот тут, после двойки выдаёт ошибку : Формат вывода :n:m применим только к данным типа real или complex

Убери её. А вообще total делать integer'ом я тебе не говорил, только a и b. Тогда и этот round
Quote
total:=round(total+week[1]);
не понадобиться.
608 | Автор: Fireleo | 2012-06-18, 06:14   |  Репутация: [ + 30 ]
помогите, пожалуйста, написать на паскале
Найти численное решение задачи Коши
y′ =sin(y)−0.5, c начальными условиями y(0) = 1.
−0.5-это степень sin(y)
заранее спасибо
609 | Автор: alenka_shokolad_ | 2012-06-18, 18:44   |  Репутация: [ + 0 ]
[quote=Altair4eg]Вот тут, после двойки выдаёт ошибку : Формат вывода :n:m применим только к данным типа real или complex[/quote]

значит убери :3:2 )))


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
610 | Автор: Berestovskiy | 2012-06-20, 15:37   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
610 | Автор: Berestovskiy | 2012-06-20, 15:37   |  Репутация: [ + 211 ]
Народ напишите программу для pascal abc, заранее спс.
Дан массив X(N). Найти среднеквадратичное всех элементов массива и заменить этим значение нулевые элементы массива.
611 | Автор: botinok23 | 2012-06-21, 18:35   |  Репутация: [ + 0 ]
611 | Автор: botinok23 | 2012-06-21, 18:35   |  Репутация: [ + 0 ]
var
a:array[1..100]of integer;
s,i,n:integer;
begin
read(n);
s:=0;
for i:=1 to n do begin
read(a[i]);
s:=s+a[i];end;
s:=round(s/n);
for i:=1 to n do begin
if a[i]=0 then a[i]:=s;
write(a[i],' ');end;
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
612 | Автор: Berestovskiy | 2012-06-24, 14:00   |  Репутация: [ + 211 ]
1. Дана целочисленная прямоугольная матрица (задана случайным образом). Вычислить сумму элементов кратных числу 3 столбца массива с заданным индексом k.

2. Дан текстовый файл d1.txt, содержащий символьную информацию (запись некоторого материального выражения). Определить последний символ в файле. Результат вывести в текстовый файл d2.txt.
613 | Автор: Sonia | 2012-06-24, 14:14   |  Репутация: [ + 0 ]
var
a:array[1..100,1..100]of integer;
i,n,m,s,k:integer;
begin
read(n,m,k);
for i:=1 to n do
for s:=1 to n do
read(a[i,s]);
s:=0;
for i:=1 to n do
s:=s+a[k,i];
writeln(s);
end.

Про файлы можешь на сайте тут почитать, примеры есть

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:). Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
614 | Автор: Berestovskiy | 2012-06-24, 14:31   |  Репутация: [ + 211 ]
Помогите пожалуйста, очень срочно!
Вычислить 12 элементов, которые получены в результате вычисления арифметического выражения: Y=(b-a)/c , где c=1.7 b принадлежит [-3,5;3,5] с шагом =0,5 , a- любое число. Найдите отношение отрицательных элементов к общему количеству элементов.
615 | Автор: Диля | 2012-06-27, 13:02   |  Репутация: [ + 0 ]
помогите составить программу для решения системы дифференциальных уравнений(задача Коши).
616 | Автор: hap3ah | 2012-06-30, 20:22   |  Репутация: [ + 0 ]
616 | Автор: hap3ah | 2012-06-30, 20:22   |  Репутация: [ + 0 ]
Нужна помощь по двум задачам ,к ним нужны программы .Помогите пожалуйста !!!
1).Даны два числа а и в, а - числитель в - знаменатель.Написать программу сокращения дроби.Т.е
найти такие числа как p и q, с помощью которых можно бы было сократить.К примеру 9/6=3/2 или 8/12=2/3.

2).Дано целое число. Найти его наименьший делитель,отличный от 1.
617 | Автор: Paskall | 2012-07-01, 12:53   |  Репутация: [ + 0 ]
Вот функция нахождения НОД.
Code
function NOD(m, n: integer): integer;
var modulo: integer;
begin
  modulo := m mod n;
  if modulo = 0 then
    NOD := n
  else
    NOD := NOD (n, modulo)
end;


Потом просто делишь a и b на полученное значение.

---------------------------------------------------------------------------------
Code
for i:=2 to n do
  if n mod i=0 then
   begin
    writeln(i);
    break;
   end;

, где n - данное целое число.
618 | Автор: Fireleo | 2012-07-02, 04:38   |  Репутация: [ + 30 ]
Привет ребята! Срочно нужна помощ по решению задачи!!!!! Написать блок схему для решения задачи - найти максимальный и минимальный элемент в масиве 3х4 и заменить их на ноль. Помогите очь нада , ПОЖАЛУЙСТА!
619 | Автор: Anutka | 2012-07-03, 10:44   |  Репутация: [ + 0 ]
помогите составить программу для решения системы дифференциальных уравнений(задача Коши).
620 | Автор: hap3ah | 2012-07-03, 10:54   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решения задач на Паскале!Срочно нужно!
Страница 31 из 38«1229303132333738»
Поиск: