Ты шутишь?
Или тебе с графическим интерфейсом надо?
Или тебе с графическим интерфейсом надо?
Для зачета по информатике нужно написать несколько програм, которые должны будут решать задачи. Делать всё нужно через паскаль. Я пары по изучению этих тем пропустил, а препод обьяснять не хочет. Вот прошу помощи у вас друзья. Напишите пожалуйста мне программы которые решили бы эти задачи:
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.
Что за Redkey в конце? Мб Readkey?
Эм, в таком случае мы не учитываем возможность ввода и букв и других нецыфр.
Но в таком случае программа растолстеет неимоверно.
Нецелесообразно здесь запариваться с такой хренотой
Но в таком случае программа растолстеет неимоверно.
Нецелесообразно здесь запариваться с такой хренотой
Да, Readkey )
А как правильно?
На выходных домой попаду, если смогу в скайп зайду
Нет мне без дизайна, мне бы хотя б в виде сообщения всё то что в паскаль забивать и всё.
Вечером вернусь, может код программы в личку скину.
Огромное спс, на выходных в скайпе попробуем связаться.
Переменные можно задать и Real — все зависит от того, целые числа у тебя или вещественные.
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.
Вы не учитываете возможность ввода отрицательных чисел.
Ээ, сторона куба не может быть отрицательной.
Можно конечно добавить соответствующую проверку на положительность введенных данных.
Но вводящий может быть дураком.
И тогда программа некорректно сработает.
Program kub;
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.
И тогда программа некорректно сработает.
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.
Обычно это обговорено в условии задачи.
Там в четвертой с конца строке тоже точка с запятой должна быть, конечно.
всем спс, вечером еще 6 задач закину. Первую защитали:) огромное спс.
Если уж так запариваться, то надо запрашивать заново ввод длинны, а не вылетать с крашем.
В реальных системах так никто не делает.
К тому же за счет неграмотного использования суффикса «ln» в read и write твой вариант будет выглядеть… странно несколько на экране.
В реальных системах так никто не делает.
К тому же за счет неграмотного использования суффикса «ln» в read и write твой вариант будет выглядеть… странно несколько на экране.
Читай также
