Для зачета по информатике нужно написать несколько програм, которые должны будут решать задачи. Делать всё нужно через паскаль. Я пары по изучению этих тем пропустил, а препод обьяснять не хочет. Вот прошу помощи у вас друзья. Напишите пожалуйста мне программы которые решили бы эти задачи:
2)Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
3)Арифметические действия над числами пронумерованы следующим образом: 1 — сложение, 2 — вычитание, 3 — умножение, 4 — деление. Дан номер действия N (целое число в диапазоне 1–4) и вещественные числа A и B (B не равно 0). Выполнить над числами указанное действие и вывести результат.
4)Дано вещественное число — цена 1 кг конфет. Вывести стоимость 0.1, 0.2, …, 1 кг конфет.
5) Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени.
6)Дано целое число N и набор из N пар чисел (m, v) — данные о массе m и объеме v деталей, изготовленных из различных материалов. Вывести номер детали, изготовленной из материала максимальной плотности, а также величину этой максимальной плотности. Плотность P вычисляется по формуле
P = m/v.
.заранее большое спс тому/тем кто сможет помч. Тему создал в полевых условиях с телефона.
Читай также
Лучшие комментарии
var a,b,c: integer;
begin
WriteLn('Vvedi dlinu otrezka A');
Readln(a);
Writeln('vvedi dlinu otrezka B');
readln(b);
c := a mod b;
writeln('Ostanetco ',c);
readln;
end.
2)берешь 2 переменных, потом if'ом прогоняешь числа на >0 <0, ну и делаешь инкремент соответсвующей переменной и выводишь…
3)выборка case'ом или что там в паскале… можно через if, но уныло…
4)тупо for'ом прогоняешь умножение на i, типа
for (i=0; i<=1; i+=0,1)
{k=цена_за_кг*i; cout<<k;}
5)обычный логарифм с основанием 2)
6)через массив элементарно решается)… for'ом берешь массив, вбиваешь массу/объем, делишь, загоняешь значение в i'ый элемент массива… потом поиск максимального значения и вывод…
кароче сорри, я ленивый)