|
Решения задач на Паскале!Срочно нужно!
|
|
Доброго времени суток. помогите сделать программу, пожалуйста. задание такое:
Дан файл целых чисел A.DAT. Поменять местами наибольший и наименьший элементы файла.
помогите если можете!! буду очень благодарен! завтра нужно сдать эту программу
|
|
|
|
Quote (tinka-kartinka) Мне кажется люди сюда заходят специально за помощью,
А вам не кажется, что помощь нужна не в том случае, когда пример решения находится в конце главы учебника?
Одно дело когда человек не понимает какого то принципа или не может найти путь решения и совсем другое, когда он хочет, что бы за него написали готовое решение, вникать он в него и не собирается, учитывая что до этого он либо не пытался искать, либо оказался неспособен подставить свои значения в готовый пример, невольно задаешься вопросом - зачем нужны такие специалисты? Знал я одного "сисадмина", которого начальник к серверу не подпускал.
Минута поиска и вот - http://www.pascalguru.ru/resheniya.html
Давно пора уже сделать здесь такое, может хотя бы в виде отдельных разделов форума, соответственно дал ответ в основном форуме, продублировал в решебник, как минимум будет куда ссылаться.
|
|
|
|
|
|
|
http://primat.org/forum/10-1204-1
|
|
|
|
[quote=Fireleo]Минута поиска и вот - http://www.pascalguru.ru/resheniya.html[/quote]
Зачем внешние ссылки то?)
Тебе замечание :D
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Quote (Fireleo) http://primat.org/forum/10-1204-1
ну и?решения то нету -__-
|
|
|
|
народ, нужно 5 лаб, завтра сдавть иначе жопа на экзамене, вникать нету времени
1 Запишите в файл исходных данных числовой двумерный
массив.
2 Напишите программу, изменяющую в файле исходных
данных из задания 1 элементы, соответствующие вашему варианту: элементы (1;2) и (3;3);
3 Прочитать из полученного файла элементы,
соответствующие вашему варианту: последняя строка
4 Создать текстовый файл (3-4 строки). Дописать в конец
файла 2 строки. Вывести на монитор исходный и полученный файлы.
и 5 Составьте программу с использованием процедуры для
решения следующей задачи: Вычислить z=(x1+y2)/(x2-y2) , где x1 , x2 – корни уравнения 2x^2+x–4=0, y1 , y2 - корни уравнения 3y^2+2y – 1=0.
|
|
|
|
[quote=margo]http://primat.org/forum/10-1204-1 ну и?решения то нету -__-[/quote]
зато алгоритм есть))
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите плиз, я написал прогу но почему то выдает одно и тоже значение помогите понять где ошибка вот условие задачи
type
reals = file of real;
var f: reals;
Опишите рекурсивную функцию sum без параметров для
нахождения суммы элементов файла f.
а вот что я написал
type
reals = text;
var f:reals;
y,n,s:real;
function sum( f:reals):integer;
var
sum,num:integer;
begin
sum:=0;
if not eof(f) then begin
readln(f,num);
if num<>0 then begin
sum:=sum+num;
end;
end;
end;
begin
assign (f,'sum.txt');
reset(f);
n:=sum(f);
writeln('сумма элементов файла n=',n:4:3);
readln;
close(f);
end.
а вот что выводит сумма элементов файла n=1954051118.000
№ 569 | Автор: M@RECS |
2012-06-11, 10:40 | Изменено: M@RECS - Пн, 2012-06-11, 10:41
|
Репутация: [ + 0 ]
|
|
|
|
[quote=M@RECS]if num<>0 then begin sum:=sum+num; end;[/quote]
бегин-енд тут не нужен
а в чём ошибка - не пойму..
не люблю я читать чужие коды, не понятно ничего)
попробуй заново написать..должно помочь)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Всем доброго времени суток. Нужна помощь в решении задачи. Сортировочный автомат измеряет и направляет деталь в одну из n групп, на которые разбит допуск Т на выдерживаемый у детали номинальный диаметр d. Задайте количество и размеры деталей в партии, а затем рассортируйте их по группам.
Помогите пожалуйста!!!
|
|
|
|
Условия не понял..
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Там смысл в том что сначала вычисляется номинальный диаметр, а потом близкие значения разбрасываются по группам. Вроде так.
|
|
|
|
Так может формулки какие-нибудь напишешь ли мне вместо тебя гуглить и т.д.?)
А желательно - напиши алгоритм, тогда вообще будет отлично)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Сначала вводим кол-во деталей, затем номинальный диаметр с ним потом и будем все сравнивать, затем диаметры деталей, а вот потом и начинается самое интересное нужно что бы при сравнении диаметров с номинальным они отсеивались по группам, дальше не знаю как быть
вот начало
Program sortirovka;
USES CRT;
var
a:array[1..100] of real;
b:array[1..100] of real;
d:real;
i,j,n,k:integer;
begin
CLRSCR;
writeln('Êîëè÷åñòâî äåòàëåé');
readln(k);
writeln('Íîìèíàëüíûé äèàìåòð');
readln(d);
for i:=1 to k do
begin
writeln('Ðàçìåð äåòàëè #',i);
readln(a[i]);
d:=d+a[i];
end;
|
|
|
|
Всееем привет, нужна помощь по двум задачам на паскале(курсач такой курсач :c)
Решение логических задач с применением операторов цикла на языке программирования Pascal
Задача 1
Бригада из трех роботов собирает за день одного нового робота. Время жизни нового робота - пять дней, по истечении которых он погибает. Определить, сколько роботов будет успешно существовать через n дней, если на момент старта имеется 9 новых роботов. Роботы, не вошедшие в бригаду, простаивают.
Задача 2
Пароход в понедельник проплывает случайное расстояние от A до B; во вторник - в два раза больше, чем в понедельник; в среду - в три раза меньше, чем во вторник; в четверг - на 40% больше, чем в среду; в пятницу половину того, что он проплыл во вторник, среду и четверг вместе. В субботу и воскресенье пароход стоит. Определить полный путь парохода за n дней, если движение он начал в понедельник.
№ 576 | Автор: Altair4eg |
2012-06-13, 00:03 | Изменено: Altair4eg - Ср, 2012-06-13, 00:05
|
Репутация: [ + 0 ]
|
|
|
|
Quote (M@RECS) Помогите плиз, я написал прогу но почему то выдает одно и тоже значение помогите понять где ошибка вот условие задачи
может здесь
так нужно:
sum:=sum(f)+num;?Добавлено (13.06.12, 05:56)
---------------------------------------------
Quote (Berestovskiy) Зачем внешние ссылки то?)
Попытка наглядно показать, что поиском тоже можно пользоваться. И все-таки такая вещь не помешала бы и на "Примате".Добавлено (13.06.12, 08:23)
---------------------------------------------
Quote Бригада из трех роботов собирает за день одного нового робота.
Code Var robots: array [1..5] of byte;
n,i,sum:byte;
begin
robots:=[0,0,0,0,9];//массив роботов по оставшимся дням жизни
readln(n);
for i:=1 to n do
begin
sum:=robots[1]+robots[2]+robots[3]+robots[4]+robots[5];//считаем сколько всего роботов
if sum=0 then begin writeln('все роботы погибли, день:',n); exit; end; //если роботов больше нет сообщаем об этом и выходим
robots[1]:=robots[2];//уменьшаем всем роботам время жизни на 1 день
robots[2]:=robots[3];
robots[3]:=robots[4];
robots[4]:=robots[5];
robots[5]:=sum div 3;//новые роботы каждый строится бригадой из трех
end;
sum:=robots[1]+robots[2]+robots[3]+robots[4]+robots[5];
writeln('День:',n,'Осталось живых роботов:',sum);
end. |
|
|
|
Quote (Fireleo) robots:=[0,0,0,0,9];//массив роботов по оставшимся дням жизни
Fireleo, спасибо большое за решение, но вот тут после закрытия скобок(строка 4, столбец 22) выдаёт ошибку: "Ошибка:попытка присвоить переменной типа array [1..5] of byte выражение типа set of byte"
|
|
|
|
А ну тогда так нельзя :)
Делай так:
robots[1]:=0;
robots[2]:=0;
robots[3]:=0;
robots[4]:=0;
robots[5]:=9;
|
|
|
|
"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо
Это он не компиля писал наверное или завтыкал)
Сделай так:
robots[5]:=9;
for i:=1 to 4 do
robots[i]:=0;
вместо этой строки[quote=Fireleo] robots:=[0,0,0,0,9];//массив роботов по оставшимся дням жизни[/quote]
и должно пахать)
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
