|
Решения задач на Паскале!Срочно нужно!
|
|
Quote (Fireleo) Попробуй для переменных a и b установить тип integer;
Блиииин, теперь пишет такое в этой строке
Quote (Altair4eg) total:=total+week[1];
"Ошибка : Попытка присвоить переменной типа integer выражение типа real" в этой строке, до точки с запятой
№ 601 | Автор: 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 и заменить их на ноль. Помогите очь нада , ПОЖАЛУЙСТА!
|
|
|
|
Quote (hap3ah) помогите составить программу для решения системы дифференциальных уравнений(задача Коши).
Метод-то какой использовать?
|
|
|
|
Добавлено (05.07.12, 22:51)
---------------------------------------------
Quote (Fireleo) Метод-то какой использовать?
Рунге-Кутта
№ 618 | Автор: hap3ah |
2012-07-05, 22:51 | Изменено: hap3ah - Чт, 2012-07-05, 22:51
|
Репутация: [ + 0 ]
|
|
|
|
Помогите решить задачу:
Из N вещественных чисел найти минимальное среди положительных и максимальное среди отрицательных значений (N водится с клавиатуры). Учесть, что массив может только содержать только отрицательные числа.
Результат выполнения программы может выглядеть следующим образом:
Введите количество значений массива:
5
Введите 1 значение - 6
Введите 2 значение - 9
Введите 3 значение - 11
Введите 4 значение - 18
Введите 5 значение - 99
РЕЗУЛЬТАТ:
Минимальное число среди положительных = 6
Отрицательных чисел нет!Добавлено (11.07.12, 12:00)
---------------------------------------------
Помогите решить задачу пожалуйста!!!
|
|
|
|
На сайте ранее было решение, ищи на форуме
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
