Новые сообщения · Правила  
Модератор форума: Berestovskiy  
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Решение задач в Паскале
здравствуйте! Помогите плиз решить две задачки, а то препод мозг выносит а я их вообще не понимаю тк тему пропустил...........
№1. Разработать алгоритм метод пошаговой детализации и программу решения задачи, в которой найти сумму всех элементов, расположенных ниже побочной диагонали матрицы размером 4х4 состояжей из элементов целого типа. Основные функции программы оформить ввиде процедур и функций.
№2. Разработать алгоритм и программу решения задачи с использованием модуля пользователя в которой заменить нулями все положительные элементы, расположенные на побочной диагонали и ниже ее матрицы размером 6х6, состоящей из элементов целого типа.

Если кто сможет помочь я буду очень благодарен.
Просьба если что выслать решение либо сюда либо мне на мыло
lopatik16@tut.by
41 | Автор: lopatik | 2012-12-03, 18:12   |  Репутация: [ + 0 ]
Вывести на экран массив, каждый элемент какого есть кубом соответствующего элемента заданного массива.
42 | Автор: mihalych814 | 2012-12-16, 23:45   |  Репутация: [ + 0 ]
42 | Автор: mihalych814 | 2012-12-16, 23:45   |  Репутация: [ + 0 ]
Помогите, пожалуйста!

3. Создать массив случайных чисел Y[1..10,1..10]. Все элементы массива, расположенные ниже главной диагонали сделать равными "-1".

4. Составить программу, выводящую на экран элементы массива A[1..16] в два столбика: в первый - элементы с нечетными индексами, во второй - с чётными.

5. для данного массива установить наибольшую длину последовательности одинаковых элементов, которые расположены рядом.
43 | Автор: shkolota | 2012-12-24, 19:55   |  Репутация: [ + 0 ]
ищи на форуме, много подобного тут есть

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
44 | Автор: Berestovskiy | 2012-12-25, 20:54   |  Репутация: [ + 211 ]
Помогите решить задачи, пропустил много пар теперь ни чего понять не могу....

1) Найти сумму отрицательных и положительных чисел двухзначных, введенных с клавиатуры.

2) Дано N двухзначных чисел, введенных с клавиатуры. Найти большую цифру в двухзначном числе или которая делится на 2.

3) Дано N чиселв интервале отрезка CD. Найти кол-во чисел, которое >5 и делится на 3 и на 6.
45 | Автор: FENIKS72 | 2012-12-27, 19:35 | Изменено: FENIKS72 - Пт, 2012-12-28, 12:27   |  Репутация: [ + 0 ]
С НАСТУПАЮЩИИИИМММММ!!!))))

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
46 | Автор: Berestovskiy | 2012-12-31, 22:13   |  Репутация: [ + 211 ]
Помогите пожалуйста двоечнику решить задачку - Во входном файле даны действительные числа про общее количество которых известно только, что оно кратно шестнадцати. Получить в файле f последовательность матриц размера 4 на 4 .
47 | Автор: den84 | 2013-01-08, 15:03 | Изменено: den84 - Вт, 2013-01-08, 15:04   |  Репутация: [ + 0 ]
Тема: Разработка диалоговых программ.
Выполнить диалоговую программу проверяющую знание обучаемым теоремой Виетта. Обучаемому выдается основное задание.Написать квадратное уравнение, если его корнями являются х1 и х2. Значение корней случайные числа из диапозона от -9 до 9. Если ответ правильный, то можно переходить к следующему заданию приняв новое значение х1 и х2. Если ответ не правильный, то предложить ответить на тоже задание. Если после второй попытки ответ опять несовпал с эталоном, то предложить новые дополнительные вопросы:
1)Вывести кэффицент перед Х в первой степени со знаком;
2)Ввести свободный член со знаком, если оба эти ответы правильны вывести и перейти к следующему заданию, если ответ на какой либо из этих заданий неправильный, то можно судить о причине ошибки.
Выполнение программы закончить, если подряд три ответа на вопросы были правильны с первой попытки или общее число вопросов равно 10. В программе предусмотреть помощь обучаемому подсчитать число основных заданий N ,число правильных ответов с первой попытки N0, общее число ответов N1.
По результатам контроля определить оценку:
5 - если N0=N
4 - если N-N0<=2
3 - если N-N0<=4
2 - если N-N0>4 или N>=10
48 | Автор: Техникум | 2013-01-23, 18:02   |  Репутация: [ + 0 ]
Здравствуйте помогите решить задачи в паскале пожалуйста 

1)Среди 10 студентов фамилии, рост и пол которых известны найти самого высокого мальчика.
13:07

2)Составить программу, выводящую на экран расписание полетов самолетов (пункт посадки, время отправления, время прибытия, время полета, стоимость билета).
13:07

3).Среди 10 студентов фамилии,вес и пол которых известны найти самую худую девочку. 08:33:21 
 4).В аптечке 10 лекарств у которых известны названия,цены и сроки хранения.Найти самое дорогое лекарство среди тех у которых срок хранения больше месяца
49 | Автор: Shurochka | 2013-02-28, 14:03   |  Репутация: [ + 0 ]
1)
var
maxheight,height:real;
msecond,msex,secondname,sex:string;
i:byte;
begin
for i:=1 to 10 do begin
read(secondname);
read(sex);
read(height);
if height>maxheight then begin
maxheight:=height;msecond:=secondname;msex:=sex;end;end;
writeln(msecond);
writeln(msex);
writeln(maxheight);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
50 | Автор: Berestovskiy | 2013-03-07, 12:57   |  Репутация: [ + 211 ]
Здравствуйте, помогите пожалуйста с заданием
Составьте программу на Паскале для задания переменных a, b, c , следующих значений соответственно: 666, 0.55 и #12. Описать переменные в соответствии с типом присваиваемых им значений. Введите эти значения на экран с помощью процедуры: Writeln (a, b, c) .

Я наверное, не правильно думаю:
 var a : word;
 var b : real;
 var c : char   или нет
51 | Автор: джаным | 2013-03-17, 09:35   |  Репутация: [ + 0 ]
правильно

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
52 | Автор: Berestovskiy | 2013-03-17, 16:38   |  Репутация: [ + 211 ]
скажите пожалуйста, а это полная программа?
53 | Автор: джаным | 2013-03-17, 16:51   |  Репутация: [ + 0 ]
53 | Автор: джаным | 2013-03-17, 16:51   |  Репутация: [ + 0 ]
нет

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
54 | Автор: Berestovskiy | 2013-03-18, 01:37   |  Репутация: [ + 211 ]
Помогите,пожалуйста,решить в Паскале:
1)Вклад в банке составляет x рублей. Ежегодно он увеличивается на p процентов, после чего дробная часть копеек отбрасывается. Каждый год сумма вклада становится больше. Определите, через сколько лет вклад составит не менее y рублей.

Программа получает на вход три натуральных числа: x, p, y и должна вывести одно целое число.
Ввод 100 10 200 Вывод 8
2)Исполнитель “Раздвоитель” преобразует натуральные числа. У него есть две команды: “Вычесть 1” и “Разделить на 2”, первая команда уменьшает число на 1, вторая команда уменьшает число в два раза, если оно чётное, иначе происходит ошибка.

Дано два натуральных числа A и B (A>B). Напишите алгоритм для Развоителя, который преобразует число A в число B и при этом содержит минимальное число команд. Команды алгоритма нужно выводить по одной в строке, первая команда обозначается, как -1, вторая команда как :2.
Ввод 179 20 Вывод -1 :2 -1 :2 :2 -1 -1
55 | Автор: ASDF2679 | 2013-03-21, 16:56   |  Репутация: [ + 0 ]
55 | Автор: ASDF2679 | 2013-03-21, 16:56   |  Репутация: [ + 0 ]
1)
var
years,x,y:integer;
p:real;
begin
years:=0;
read(x,p,y);
while x<y do begin
x:=x+x/100*p;
years:=years+1;end;
writeln(years);
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
56 | Автор: Berestovskiy | 2013-03-22, 17:40   |  Репутация: [ + 211 ]
помогите))
Запишите на языке Pascal программу задачи:
Определить величину дисконта в пользу банка и сумму, полу-ченную владельцем векселя, если простой вексель на сумму S д.е. с опла-той через m дней учитывается в банке за n дней до погашения. Учетная ставка банка p %.
57 | Автор: Zenovaani | 2013-04-22, 17:25   |  Репутация: [ + 0 ]
Всем доброго времени суток) Помогите пожалуйста решить задачи...

1) в матрице размером 5х5 определить сумму элементов выше главной диагонали и ниже главной диагонали. Какая из них больше?

2) удалить из массива элемент, стоящий на месте N. Массив сдвинуть. Размерность массива выбрать самостоятельно. N ввести с клавиатуры.

3) дана строка. разбить ее на слова и создать массив А из этих слов. слова в строке разделены любым количеством пробелов. перед текстом тоже могут быть проблемы.
58 | Автор: svetas91 | 2013-05-14, 11:54   |  Репутация: [ + 0 ]
Цитата (svetas91)
1) в матрице размером 5х5 определить сумму элементов выше главной диагонали и ниже главной диагонали. Какая из них больше?
Const
n=5;
var
matix:array[1..n,1..n]of integer;
i,j,firstsum,secondsum:integer;
begin
for i:=1 to n do
for j:=1 to n do
read(matrix[i,j]);
for i:=1 to n do
for j:=1 to n do begin
if i>j then firstsum:=firstsum+matrix[i,j];
if i<j then secondsum:=secondsum+matrix[i,j];end;
writeln(firstsum);
writeln(secondsum);
if firstsum > secondsum then writeln('сумма элементов ниже главное диагонали');
if firstsum < secondsum then writeln('сумма элементов выше главное диагонали') else
wriiteln('суммы равны');
end.


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
59 | Автор: Berestovskiy | 2013-05-14, 16:57   |  Репутация: [ + 211 ]
Цитата (svetas91)
перед текстом тоже могут быть проблемы.
какие? :D


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
60 | Автор: Berestovskiy | 2013-05-14, 16:58   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задач в Паскале
Поиск: