|
Решение задач в Паскале
|
|
здравствуйте! Помогите плиз решить две задачки, а то препод мозг выносит а я их вообще не понимаю тк тему пропустил...........
№1. Разработать алгоритм метод пошаговой детализации и программу решения задачи, в которой найти сумму всех элементов, расположенных ниже побочной диагонали матрицы размером 4х4 состояжей из элементов целого типа. Основные функции программы оформить ввиде процедур и функций.
№2. Разработать алгоритм и программу решения задачи с использованием модуля пользователя в которой заменить нулями все положительные элементы, расположенные на побочной диагонали и ниже ее матрицы размером 6х6, состоящей из элементов целого типа.
Если кто сможет помочь я буду очень благодарен.
Просьба если что выслать решение либо сюда либо мне на мыло
lopatik16@tut.by
|
|
|
|
|
Вывести на экран массив, каждый элемент какого есть кубом соответствующего элемента заданного массива.
|
|
|
|
Помогите, пожалуйста!
3. Создать массив случайных чисел Y[1..10,1..10]. Все элементы массива, расположенные ниже главной диагонали сделать равными "-1".
4. Составить программу, выводящую на экран элементы массива A[1..16] в два столбика: в первый - элементы с нечетными индексами, во второй - с чётными.
5. для данного массива установить наибольшую длину последовательности одинаковых элементов, которые расположены рядом.
|
|
|
|
ищи на форуме, много подобного тут есть
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите решить задачи, пропустил много пар теперь ни чего понять не могу....
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
|
|
|
|
Помогите пожалуйста двоечнику решить задачку - Во входном файле даны действительные числа про общее количество которых известно только, что оно кратно шестнадцати. Получить в файле 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
|
|
|
|
Здравствуйте помогите решить задачи в паскале пожалуйста
1)Среди 10 студентов фамилии, рост и пол которых известны найти самого высокого мальчика.
13:07
2)Составить программу, выводящую на экран расписание полетов самолетов (пункт посадки, время отправления, время прибытия, время полета, стоимость билета).
13:07
3).Среди 10 студентов фамилии,вес и пол которых известны найти самую худую девочку. 08:33:21
4).В аптечке 10 лекарств у которых известны названия,цены и сроки хранения.Найти самое дорогое лекарство среди тех у которых срок хранения больше месяца
|
|
|
|
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
|
|
|
|
Здравствуйте, помогите пожалуйста с заданием
Составьте программу на Паскале для задания переменных a, b, c , следующих значений соответственно: 666, 0.55 и #12. Описать переменные в соответствии с типом присваиваемых им значений. Введите эти значения на экран с помощью процедуры: Writeln (a, b, c) .
Я наверное, не правильно думаю:
var a : word;
var b : real;
var c : char или нет
|
|
|
|
правильно
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
|
скажите пожалуйста, а это полная программа?
|
|
|
|
нет
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
Помогите,пожалуйста,решить в Паскале:
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
|
|
|
|
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
|
|
|
|
помогите))
Запишите на языке Pascal программу задачи:
Определить величину дисконта в пользу банка и сумму, полу-ченную владельцем векселя, если простой вексель на сумму S д.е. с опла-той через m дней учитывается в банке за n дней до погашения. Учетная ставка банка p %.
|
|
|
|
Всем доброго времени суток) Помогите пожалуйста решить задачи...
1) в матрице размером 5х5 определить сумму элементов выше главной диагонали и ниже главной диагонали. Какая из них больше?
2) удалить из массива элемент, стоящий на месте N. Массив сдвинуть. Размерность массива выбрать самостоятельно. N ввести с клавиатуры.
3) дана строка. разбить ее на слова и создать массив А из этих слов. слова в строке разделены любым количеством пробелов. перед текстом тоже могут быть проблемы.
|
|
|
|
Цитата (svetas91) 1) в матрице размером 5х5 определить сумму элементов выше главной диагонали и ниже главной диагонали. Какая из них больше?
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
|
|
|
|
Цитата (svetas91) перед текстом тоже могут быть проблемы.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
