Паскаль, пожалуйста помогите. Составить программу. Задача: Найти поверхность и объём прямого параллелепипеда.
Исходные данные?
видимо автора нет.Надеюсь в массив сможет пару чисел подставить,чтобы получить ответ)
//Pascal ABC.NET v3.1 сборка 1172 Var a,b,c:real; begin read(a,b,c); writeln('S=',2*(a*b+b*c+a*c)); writeln('V=',a*b*c); end. Пример ввода: 1 2 3 Пример вывода: S=22 V=6
тут можно было и не указывать вид паскаля, ведь написано в старом стиле. указывать надо когда в стиле .Нет написано
program ololo;uses crt; var w:integer; a,s,b,c,v:real; begin repeat Writeln(''); Writeln(''); Writeln('Ввод значений сторон - 1'); Writeln('Вычислить объем - 2'); Writeln('Вычислить площадь - 3'); Writeln('Завершить программу -4'); Writeln('_________________________'); Readln(w); case w of 1:begin clrscr; Writeln('Ввод стороны A'); Readln(a); Writeln('Ввод стороны B'); Readln(b); Writeln('Ввод сторны C'); Readln(c); end; 2:begin clrscr; v:=a*b*c; Writeln('Объем фигуры равен =',v); end; 3:begin clrscr; s:=2*((a*b)+(b*c)+(a*c)); Writeln('Площадь фигуры равна =',s); end; end; until w=4; end.
Весь массив в текстовом файле.Остается только открыть копировать в паскаль и поставить числа
исходные : 15 , 16,20
в текстовом файле массив,просто подставь туда числа,куда подставлять по русски написанно)
Интересно, где Вы там обнаружили массив, хех?
Ну ошибся,в чем проблема? все ведь правильно)