Для зачета по информатике нужно написать несколько програм, которые должны будут решать задачи. Делать всё нужно через паскаль. Я пары по изучению этих тем пропустил, а препод обьяснять не хочет. Вот прошу помощи у вас друзья. Напишите пожалуйста мне программы которые решили бы эти задачи:
1)Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка A
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,V,S: integer;
begin
writeln ('vvedite dlinu rebra kuba a=');
readln (a);
V:=a*a*a;
S:=6*a*a;
writeln ('Objem raven V=',V,' Ploshad Poverhnosti ravna S=',S);
end.
Но в таком случае программа растолстеет неимоверно.
Нецелесообразно здесь запариваться с такой хренотой
begin
write ('Vvedite dlinu rebra kuba a=');
readln (a);
writeln ('Objem raven V=',a*a*a,'; Ploshad Poverhnosti ravna S=',6*a*a);
Redkey;
end.
И тогда программа некорректно сработает.
uses crt;
var
a,v,s:real;
begin
clrscr;
writeln('Введите длину ребра куба и нажмите enter');
read(a);
if a<0
then
writeln('Некорректно задана длина ребра');
writeln('Нажмите любую клавишу для завершения программы');
else
begin
v:=a*a*a;
s:=a*a*6;
writeln('Объем куба равен ',v:0:3,'. Площадь поверхности равна ',s:0:3)
end;
readkey;
end.
В реальных системах так никто не делает.
К тому же за счет неграмотного использования суффикса «ln» в read и write твой вариант будет выглядеть… странно несколько на экране.