Версия для печати темы

Автор: IceGirl 24.10.2009, 6:27

бьюсь несколько дней над задачами, суть их я вполне понимаю, а вот как это написать незнаю... помогите


1) Задать требуемый объем цистерны. Вводить значения радиуса и высоты, выдавать получаемый объем цистерны с примечанием: меньше, больше или равно заданному. Ввод прекратить, если радиус равен 0. В конце программы выдать номер цистерны, у которой наименьший расход материала (площадь листа) и объем больше или равен заданному.

2) 1. Описать символьный массив длиной 80 символов.
2. Ввести предложение, состоящее из слов, разделенных пробелами.
3. При необходимости ввести задание, например, заданную букву.
4. Массив просмотреть до точки, если она есть, или до последнего введеного символа. Выдать слова с указанием их длины, слова, удовлетворяющие заданию, пометить примечанием, например, "Начинается на заданную букву".
5. В случае исключительных ситуаций выдать сообщение
Задание: Слово короче указанной длины

3) 1. Описать матрицу 8х8 вещественных элементов.
2. Заполнить элементы матрицы согласно варианту случайными вещественными числами в диапазоне от –7 до 7.
3. Распечатать элементы матрицы с помощью подпрограммы с указанием сумм по каждой строке и каждому столбцу, а также общей суммы.
4. Преобразовать матрицу согласно варианту.
5. Повторно распечатать элементы матрицы с суммами.
6. Исключительные ситуации и форматы вывода определить самостоятельно.

Вариант заполнения матрицы

. . . . . . . . 17
9 10 . . . 15 16
8 7 . . . . . 2 1

Автор: tig81 24.10.2009, 8:03

http://www.prepody.ru/ipb.html?act=boardrules
Где ваши наработки?

Автор: kaa 24.10.2009, 12:03

создать переменную

создать 2 переменные

проверка с помощью оператора сравнения

Автор: IceGirl 26.10.2009, 8:40

program cistern;
var v, r, h, nom, bestnom: integer;
minmaterial, material, vbest, vcurr: real;

begin
bestnom:= 0;
nom:= 0;

repeat
writeln ('Введите необх объём цистерны');
readln (v);
if v<=0 then writeln ('объём должен быть >0');
until v>0;

это начало первой программы

Автор: Julia 2.11.2009, 9:40

Маловато что-то.

Автор: IceGirl 2.11.2009, 9:55

а вы можете что то больше написать??!!

Автор: Julia 5.11.2009, 17:06

Могу, но не буду, пока не увижу ваших собственных идей или попыток решения. Пока нет ни одной.

Автор: IceGirl 7.11.2009, 7:04

ваши форумы для того и существуют чтобы помогать!!! а вы я смотрю только и делаете что строите из себя умных!!! ну что сделать если я не понимаю как написать эти задачки, ну помогли бы мне и всё, и не выпендривались!!!!!

Автор: Julia 7.11.2009, 8:44

Вы со всеми преподавателями в таком тоне разговариваете?

Автор: tig81 7.11.2009, 9:05

Действительно, чтобы помогать, а не делать все за вас.

У вас даже это не получается, выбирайте тон и умейте себя правильно вести.

ходить на пары, читать учебники, смотреть примеры, консультироваться у преподавателя.
А то в течении семестра гуляете, а потом еще преподаватели и виноваты, что вы не можете получить оценку. Запомните: вам никто ничего не обязан делать!!!! Тем более если просьба исходит подобным образом.

и все? А экзамен за вас сдавать не надо?

Это уж наше дело, что нам делать.