|
Решения задач на Паскале!Срочно нужно!
|
|
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) Метод-то какой использовать?
Рунге-Кутта
№ 608 | Автор: 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
|
|
|
|
|
помогите решить задачу!!!надо на экзамен !понять производную.у=х в 4
|
|
|
|
не понял задания
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите пожалуйста. завтра нужно сдать, а я не знаю как делать...
1. Записать фрагмент программы, позволяющей пользователю открыть файл и прочитать из него некоторые числа и записать в другой файл их среднее арифметическое.
2. Дан целочисленный файл. Создать из него 2 новых файла: в один поместить все числа, заканчивающиеся на 0, а в другой - все кратные 3 отрицательные числа. Вывести на экран содержимое всех трёх файлов.
3. Дан файл, содержащий символьную строку, удвоить все символы в строке, исключая цифры, вывести получившуюся строку в файл результата, а этот файл на экран.
|
|
|
|
Помогите пожалуйста написать программу. ОЧЕНЬ надо...
Задана матрица вещественных чисел A размерности NxN. Поменять мес-тами элементы, расположенные над главной и побочной диагоналями с эле-ментами, расположенными под ними ( первую строку с последней, вторую с предпоследней и т.д.). Размерность матрицы и значения ее элементов ввести с клавиатуры.
|
|
|
|
Помогите пожалуйста!
Составьте алгоритм и напишите программу, которая определяет сдачу с 50 рублей, возвращаемую покупателю, совершившему покупку стоимостью менее 50 рублей. Предполагается, что стоимость покупки выражается целым числом рублей. Количество банкнот (достоинством 10 рублей) и монет (достоинством 1, 2 и 5 рублей) должно быть минимальным.
|
|
|
|
Joy555
Code var pokup, rub10, mon2, mon5:integer;
begin
writeln('Введите сумму покупки (менее 50 рублей)');
readln(pokup);
if pokup<50 then
begin
rub10:=pokup div 10;
pokup:=pokup-(rub10*10);
mon5:=pokup div 5;
pokup:=pokup-(mon5*5);
mon2:=pokup div 2;
pokup:=pokup-(mon2*2);
writeln('Для сдачи необходимо выдать:');
writeln('Банкноты достоинством в 10 рублей: ',rub10);
writeln('Монеты достоинством в 5 рублей: ',mon5);
writeln('Монеты достоинством в 2 рублей: ',mon2);
writeln('Монеты достоинством в 1 рублей: ',pokup);
end else writeln('Вы ввели больше 50 рублей');
end.
№ 616 | Автор: HWOARANG |
2012-10-22, 22:22 | Изменено: HWOARANG - Пн, 2012-10-22, 22:22
|
Репутация: [ + 20 ]
|
|
|
|
Quote (HWOARANG) var pokup, rub10, mon2, mon5:integer;
begin
writeln('Введите сумму покупки (менее 50 рублей)');
readln(pokup);
if pokup<50 then
begin
rub10:=pokup div 10;
pokup:=pokup-(rub10*10);
mon5:=pokup div 5;
pokup:=pokup-(mon5*5);
mon2:=pokup div 2;
pokup:=pokup-(mon2*2);
writeln('Для сдачи необходимо выдать:');
writeln('Банкноты достоинством в 10 рублей: ',rub10);
writeln('Монеты достоинством в 5 рублей: ',mon5);
writeln('Монеты достоинством в 2 рублей: ',mon2);
writeln('Монеты достоинством в 1 рублей: ',pokup);
end else writeln('Вы ввели больше 50 рублей');
end.
Ностальгия...:D
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
Cпасибо) Добавлено (23.10.12, 13:49)
---------------------------------------------
Еще 1 задачку пожалуйста, если не трудно.....
Массивы.
В заданном векторе выполните нормировку по максимальному элементу.Для этого необходимо поделить значение всех элементов вектора на значение максимального элемента.
|
|
|
|
Помогите решить пожалуйста!
1) В условии одной из задач на этом сайте написано: “Если данное четырехзначное число является симметричным, выведите 1, иначе выведите любое другое целое число”. Для проверки задачи используются заранее подготовленные примеры и правильные ответ на них
Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого, что он выводит не то любое другое число, которое записано в правильных ответах.
Напишите программу, которая по ответу, записанному в тестирующей системе и по ответу школьника определяет, верно ли школьник решил задачу. Программа получает на вход два числа: ответ, записанный в тестирующей системе и ответ школьника. Программа должна вывести YES, если школьник дал верный ответ и NO в противном случае.
Ввод
11 -1 Вывод YES, Ввод 3 1 - NO
2) Требуется определить, бьет ли слон, стоящий на клетке с указанными координатами (номер строки и номер столбца), фигуру, стоящую на другой указанной клетке. Вводятся четыре числа: координаты слона и координаты другой фигуры.
Ввод: 1 1 2 2 Вывод: YES
Ввод:1 1 2 1 Вывод: NO
3) Поле шахматной доски определяется парой чисел (a, b), каждое от 1 до 8, первое число задает номер столбца, второе – номер строки. Заданы две клетки. Определите, может ли шахматный король попасть с первой клетки на вторую за один ход.
Формат входных данных
Даны 4 целых числа от 1 до 8 каждое, первые два задают начальную клетку, вторые два задают конечную клетку. Начальная и конечная клетки не совпадают. Числа записаны в отдельных строках.
Формат выходных данных
Программа должна вывести YES, если из первой клетки ходом короля можно попасть во вторую, или NO в противном случае.
4) Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.
№ 619 | Автор: vil_99 |
2012-10-23, 16:29 | Изменено: vil_99 - Вт, 2012-10-23, 16:29
|
Репутация: [ + 0 ]
|
|
|
|
Quote (Joy555) В заданном векторе выполните нормировку по максимальному элементу.Для этого необходимо поделить значение всех элементов вектора на значение максимального элемента.
Const
n=10;
var
a:array[1..10]of real;
i:byte;
m:real;
begin
m:=low(m);
for i:=1 to n do begin
read(a[i]);
if a[i]>m then m:=a[i];end;
for i:=1 to n do begin
a[i]:=a[i]/m;
write(a[i],' ');end;
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
