Решение задачек на Turbo Pascal

[Mary]

Единственный совет, который я хотела получить, создавая эту тему - как решать мои задачи. Собственно, его я получила уже давно.  

Тогда зачем продолжать рассуждать на темы, в котрых вы заведомо некомпетентны? :)

[DimAce]

Не ссорьтесь, девочки.. :flowers: :flowers:
Вы обе правы :D

[at_hacker]

То есть что, вроде, я и чью-то судьбу могла порушить? А я не мать Тереза, это не моя проблема.

Подобное отношение для кармы вредно

[lameli]

at_hacker, главное чтоб чакры были в поряде :)

[WickedW00LF]

Помогите, пожалуйста.
Кто сколько сможет
С меня огромный респект и шоколадки (пиво)

[Azazelius]

WickedW00LF, парень, ты ошибся разделом. перенесу решение задач в форум СФ МЭИ... там тебе студни помогут.

[barmoglot]

Помогите, пожалуйста.
Кто сколько сможет
С меня огромный респект и шоколадки (пиво)

неужели на тп еще задачи дают, он при мне уже вымирал как вид, а это 20 лет назад было

[Azazelius]

barmoglot, да вымер он давно... еще при учебе в энерго уже на Дельфи перешли с ТП

[TheBest]

Так чо, помогать будем или как?

WickedW00LF, У тебя вообще никаких наработок или можно от твоего оттолкнуться?

[TheBest]

Задача 1. Покатит?
Если что, то пользуюсь http://pascalabc.net/WDE/

//
//
//

var
// Глобальные переменные для 3-х чисел
x1, x2, x3 : integer;
Summ : integer = 0;


// Процедура ввода чисел
procedure InputNumber;
begin
write ('Введите первое число: '); readln (x1);
write ('Введите второе число: '); readln (x2);
write ('Введите третье число: '); readln (x3);
end;

// Процедура суммирования чисел
procedure SummNumber;
begin
Summ := x1 + x2 + x3;
end;

// Выводим четные из x1, x2, x3
procedure ChetnNumber;
begin
if (x1 mod 2) = 0 then
writeln (x1 + ' - четное');
if (x2 mod 2) = 0 then
writeln (x2 + ' - четное');
if (x3 mod 2) = 0 then
writeln (x3 + ' - четное');
end;



begin
InputNumber;
SummNumber;
writeln ('Сумма введенных чисел = ' + Summ);
ChetnNumber;
end.

[TheBest]

Задание 2.

//
//
//

const
Str : string = 'строка 123434 проверка тест А увлвл 234фффааа';

var
i : integer = 0;
CountA : integer = 0;



begin
for i := 1 to length(Str) do begin
if Str = 'А' then
CountA := CountA + 1;
end;

writeln ('Количество вхождений "А" в строку "'+ Str + '" = ' + CountA);
end.

[TheBest]

Задания похоже по теме массивы, поэтому в Задании 3 буду делать с массивами, а не с Pos и Insert.

[TheBest]

//
//
//

var
i : integer = 0;
Str : string = 'стВока 123434 ВпроверкаВ тест А увлвл 234фффааа';



// Строка это массив символов. Str[1] - первый символ строки.
// На наличие пробела после В не сказано проверять, поэтому если пробел есть "В ", то будет два пробела "В "
begin
writeln ('Исходная строка - ' + Str);

for i := 1 to length(Str) do begin
if Str = 'В' then
Str := Copy(Str,1,i) + ' ' + Copy(Str,i+1,length(Str)-i);
end;

writeln('Строка с пробелами после В - ' + Str);
end.

[TheBest]

Задание 4.

//
//
//

var
a : array [1..100] of integer;
i : integer = 0;
Summ : integer = 0;



begin
randomize; // инициализируем (включаем) генератор случайных чисел
// Заполняем массив
for i := 1 to 100 do
a := random(2001) - 1000; // от -1000 до +1000

write('Содержимое массива - ');
// Показываем содержимое массива
for i := 1 to 100 do
write(a + ' ');

writeln;

// Считаем сумму положительных элементов
for i := 1 to 100 do begin
if a > 0 then Summ := Summ + a;
end;

writeln('Сумма положительных элементов массива - ' + Summ);
end.

[TheBest]

Задание 5.

//
//
//

var
a : array [1..100] of integer;
i : integer = 0;
MinEl : integer = 10000; IndMin : integer = 0; // Минимальный элемент, значение и индекс в массиве.
// Первоначально ставим значение выше любого элемента массива, иначе сравнение со значением MinEl по-умолчанию (0) отсечёт все положительные числа



begin
randomize; // инициализируем (включаем) генератор случайных чисел
// Заполняем массив
for i := 1 to 100 do
a := random(2001) - 1000; // от -1000 до +1000

write('Содержимое массива - ');
// Показываем содержимое массива
for i := 1 to 100 do
write(a + ' ');

writeln;

// Находим минимальный
for i := 1 to 100 do begin
if a < MinEl then begin
MinEl := a;
IndMin := i;
end;
end;

writeln('Минимальное число в массиве "'+MinEl+'" находится в ячейке '+IndMin);
end.

[TheBest]

Задача 6.

//
//
//

var
a : array [1..70] of integer; // Массив 70 семей, в каждом элементе количество членов семьи
i : integer = 0;
CountChel : integer = 0; IndMax : integer = 0;



begin
randomize; // инициализируем (включаем) генератор случайных чисел
// Заполняем массив
for i := 1 to 70 do
a := random(9) + 1; // ограничиваем количество членов семьи 10 и отсекаем значение 0. random(9) дает от 0 до 9. С +1 от 1 до 10.

write('Содержимое массива - ');
// Показываем содержимое массива
for i := 1 to 70 do
write(a + ' ');

writeln;

// Находим самую большую семью
// при одинаковом количестве человек наибольшей выбирается семья в следующей квартире
// если при равенстве человек нужно оставлять имеющуюся семью, то сделать if a > CountChel then begin
for i := 1 to 70 do begin
if a >= CountChel then begin
CountChel := a;
IndMax := i;
end;
end;

writeln('Семья с максимальным количеством человек - '+CountChel+' живет в квартире - '+IndMax);
end.

[mamrot]

TheBest, блин. дай ты отчислить двоечников :)

[FreemanNow]

TheBest, блин. дай ты отчислить двоечников :)

плюсую))

[TheBest]

Не нагнетайте.
Если специалист стремится минимизировать напряги в достижении цели - это хороший специалист.
Я на первых курсах тоже списывал, потом понравилось и сам делать стал.

[WickedW00LF]

Бестушка, спасибо тебе огромное)
На автофоруме залайкаю

[TheBest]

Бестушка, спасибо тебе огромное)
На автофоруме залайкаю

Былоп за што. :)
А спасибы на автофоруме это фигня типа народного контроля. :)

[mamrot]

TheBest, а я их вижу, и они не способны ничего далее делать сами. Минимизировать напряги - это подойти к преподу взять все лабы, сделать за неделю и сдать, отдыхать семестр по этому предмету, получить автомат.
а по поводу задачек, 29 - последняя официальная пересдача, экзамен последний был в районе 22-23 числа. Задачи в основном - для зачета (тем более в таком количестве). Нормальному студенту они 28 числа не могут быть нужны. Можно конечно поверить, что он не получил единственный допуск по программированию/информатике... но что-то не верится.

[TheBest]

mamrot, Я конкретную ситуацию не знаю, поэтому судить не берусь.
Опять же, может в той специальности программирование не профильный предмет или у человека просто оно туговато идёт. Кстати, сложности с предметом могут быть и из-за качества преподавания. ;)

[FreemanNow]

mamrot, добавлю к этому, что задачки то детсадовские, больше времени потрачено на получения ответа на форуме, нежели на то, чтобы самому их решить, а следовательно, нет ни малейшего желания учиться. Нафига помогать таким студентам ?

[mamrot]

TheBest, радует, что данный студент неконкурентоспособен, по сравнению с тобой.

[TheBest]

mamrot, Старый я уже для студенчества.
СФ МЭИ, ВМ-1-96.

[mamrot]

TheBest, так и я о том же. Вроде как выпускники - конкуренты работающим инженерам. Но этот 100% нет :)
П.С. судя по всему заочник, вроде как 92 года. Возможен вариант, что нужна только корочка, не знания.
И все же, по информатике главное - уметь гуглить, и понимать, анализировать найденное, а не тупо на непрофильном форуме просить помощи.

[Azazelius]

mamrot, так ты ему пару вхерачь за списывание с форума... ))) он же, так понимаю, один в один перенесет с форума на бумагу и тебе принесет показывать, вот мол справился )))

[Лесн@я]

я институте всем курсовые по экономике делала, ну и что, ни мне, ни кому из тех кому я их делала не пригодились эти знания, разве только как дополнительная тренировка технического разума
так что не факт, что понадобится этому челу эти знания, а нужны будут-освоит
в этом отношении любили все у нас Селищева, который считал, что если тебе это надо-будешь учить, а нет-сильно не мучал, вернее совсем не мучал
вот я когда-то ТП знала, но за 19 лет его не применения, совсем ничего не помню