|
Решения задач на Паскале!Срочно нужно!
|
|
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
|
|
|
|
Попробовал вставлять его после разных 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
: ( (
|
|
|
|
Quote (Altair4eg) А куда это дописать*?
После описания переменныхДобавлено (17.06.12, 13:16)
---------------------------------------------
Quote (Fireleo) Ошибка : функция RANDOM с параметрами указанных типов не найдена
Попробуй для переменных a и b установить тип integer;
|
|
|
|
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
|
|
|
|
Quote (Berestovskiy) total:=round(total+week[1]);
Вооот так дописал в каждом дне, дальше выдало ошибку тут
Quote (Fireleo) end;
{end;}//не помню нужен тут или нет.
Убрал этот end;
И дальше ещё одну ошибку прямо в конце выдало, вот здесь
Quote (Fireleo) writeln('всего за ',n, ' дней, пройдено ',total:3:2,' километров.');
Вот тут, после двойки выдаёт ошибку : Формат вывода :n:m применим только к данным типа real или complex
|
|
|
|
Помогите, пожалуйста, решить вот такую задачу. Это допуск к экзамену, но у меня самой ничего не выходит=(
Создать не текстовый файл news.Dat, содержащий информацию о выпускаемых газетах (название, тираж, дата выпуска (число, месяц)). Переписать в текстовый файл информацию о газетах, упорядоченную в алфавитном порядке, тираж которых превышает 10000. Вывести на экран название газеты, имеющей наибольший тираж. Ввести текущую дату, вывести на экран название самой свежей газеты.
Заранее огромное спасибо)
|
|
|
|
Quote (Altair4eg) Вот тут, после двойки выдаёт ошибку : Формат вывода :n:m применим только к данным типа real или complex
Убери её. А вообще total делать integer'ом я тебе не говорил, только a и b. Тогда и этот round Quote total:=round(total+week[1]); |
|
|
|
помогите, пожалуйста, написать на паскале
Найти численное решение задачи Коши
y′ =sin(y)−0.5, c начальными условиями y(0) = 1.
−0.5-это степень sin(y)
заранее спасибо
|
|
|
|
[quote=Altair4eg]Вот тут, после двойки выдаёт ошибку : Формат вывода :n:m применим только к данным типа real или complex[/quote]
значит убери :3:2 )))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Народ напишите программу для pascal abc, заранее спс.
Дан массив X(N). Найти среднеквадратичное всех элементов массива и заменить этим значение нулевые элементы массива.
|
|
|
|
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
|
|
|
|
1. Дана целочисленная прямоугольная матрица (задана случайным образом). Вычислить сумму элементов кратных числу 3 столбца массива с заданным индексом k.
2. Дан текстовый файл d1.txt, содержащий символьную информацию (запись некоторого материального выражения). Определить последний символ в файле. Результат вывести в текстовый файл d2.txt.
|
|
|
|
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
|
|
|
|
Помогите пожалуйста, очень срочно!
Вычислить 12 элементов, которые получены в результате вычисления арифметического выражения: Y=(b-a)/c , где c=1.7 b принадлежит [-3,5;3,5] с шагом =0,5 , a- любое число. Найдите отношение отрицательных элементов к общему количеству элементов.
|
|
|
|
|
помогите составить программу для решения системы дифференциальных уравнений(задача Коши).
|
|
|
|
Нужна помощь по двум задачам ,к ним нужны программы .Помогите пожалуйста !!!
1).Даны два числа а и в, а - числитель в - знаменатель.Написать программу сокращения дроби.Т.е
найти такие числа как p и q, с помощью которых можно бы было сократить.К примеру 9/6=3/2 или 8/12=2/3.
2).Дано целое число. Найти его наименьший делитель,отличный от 1.
|
|
|
|
Вот функция нахождения НОД.
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 - данное целое число.
|
|
|
|
|
Привет ребята! Срочно нужна помощ по решению задачи!!!!! Написать блок схему для решения задачи - найти максимальный и минимальный элемент в масиве 3х4 и заменить их на ноль. Помогите очь нада , ПОЖАЛУЙСТА!
|
|
|
|
|
помогите составить программу для решения системы дифференциальных уравнений(задача Коши).
|
|
|
|
