Это код калькулятора(Паскаль), нужно, чтобы он был написан по столбикам, а не по строчкам, как сейчас. program Calculator; uses Functions, GrMouse, GrButton, Graph, GrOutPut, dos, crt;: string=' 7 8 9/< - x^y'+ ' 4 5 6 * sin cos'+ ' 1 2 3 - tg ktg'+ ' 0 с. + = ы'+ ' P R O E K T'; {$F+}: array [1.35] of TGrButton;, QuitButton: TGrButton;, SecondEdit: TGrButton;: TMouseStatus;: boolean;GetCaption (i: byte): string;, TempPos, Count: byte;: =0;: =0;x: =1 to Length (Captions) doCaptions [x] =' ' then inc (count);Count=i-2 then TempPos: =x;Count=i-1 then GetCaption: =copy (Captions, TempPos+2, x-TempPos-1);;;ChangeSysOfCount (SysOfCount: TSysCountStr);: string;SysOfCount [1] of 'D': begin;;SysOfCount [1] of 'D': begin SysCount: =DEC; DisButtons: =DECindexes; end;;(FParam);(SParam);(false);(SParam);(true);(FParam);;SetGroupEnabled (SysOfCount: TSysCountStr);: =ALLnumbers;i: =2 to 35 doi in DisButtons thenButtons [i] donot Enabled then(true);(SysOFCount);i: =2 to 35 doi in DisButtons then[i]. SetEnabled (False);: ='';;DrawingSquareOfButt (MaxTopInc, LeftOffs, TopOffs, BStartInd, BCount: word);: =0;j<=MaxTopInc doi: =BStartInd-1 to BStartInd+BCount-2 do[j+i+1]. Left: =i*50+LeftOffs;[j+i+1]. Top: =j*7+TopOffs;[j+i+1]. Draw;;(j, 7);;;Action;: =true;;SetRadioClick (var ActButt, DisAct1, DisAct2: TGrButton);ActButt. FillColor=ActButt. FillColor then. FillColor: =ActButt. PressedColor;. FillColor: =1;. FillColor: =1;. Fill (ActButt. PressedColor);. Fill (DisAct1. FillColor);. FIll (DisAct2. FillColor);;;SetDECsys;(Buttons [8], Buttons [1], Buttons [15]);('DEC');;FstAction;(FirstEdit. FillColor=1) then. FillColor: =4;. FillColor: =1;. Draw;. Draw;(true);: =false;;;SndAction;(SecondEdit. FillColor=1) then. FillColor: =1;. FillColor: =4;. Draw;. Draw;(false Init;. Init;. Init;. Init;i: =1 to 35 doButtons [i] do;: =GetCaption (i+1);;QuitButton do: =140;: =GetMaxY-50;: =20;: =370;: ='Quit';;;CEButton do: =GetMaxX-220;: =80;: =30;: =85;: ='CE';;;FirstEdit do: =GetMaxX-55;: =120;: ='Fst';: =4;;;SecondEdit do: =GetMaxX-55;: =170;: ='Snd';;;(30, 140, 1200, 1, 1);(30, 170, 120, 2, 6);(5, 5, GetMaxX-5, GetMaxY-5);(OutXs, OutYs, OutXf, OutYf); {/*End of drawing*/};;;[1]. PressedColor: =8;[8]. PressedColor: =8;[15]. PressedColor: =8;('DEC');(Buttons [8], Buttons [1], Buttons [15]);[8]. Action: =SetDECsys;[6]. Action: =BackSpaceSymbol;[24]. Action: =SetPlusMines;[27]. Action: =GetResult; {}not Quit doi: =1 to 35 doButtons [i] doonClick (Action, MouseStatus) then(Length (Caption) =1) then(Caption [1] in SysCount) then(Caption);: =false;;(Caption [1]);Caption [1] ='с' then Calculated: =false;;: =0;KeyPressed then: =Ord (readkey);Key of .57, 46, 97.103:UpCase (Char (Key)) in SysCount then(UpCase (Char (Key)));: =false;; : begin;: =false;; : SetEnterMode ('*'); {*} : SetEnterMode ('+'); {+} : SetEnterMode ('-'); {-} : SetEnterMode ('/'); {/} : exit. onClick (Action, MouseStatus);. OnClick (CEClick, MouseStatus);FirstEdit. OnClick (FstAction, MouseStatus) or (FActive) then FstAction;SecondEdit. OnClick (SndAction, MouseStatus) or (SActive) then SndAction;;;.
Ответы
1. Как выше уже сказали, имя файла ОБЫЧНО состоит и правда из двух частей. Это придумали еще давно, сначала просто для удобства, чтобы понимать, что за информация содержится внутри (текст, звук и т. д.) . Впоследствии операционные системы стали использовать расширение для распознавания содержимого и запуска необходимого приложения для обработки файла, или распознавала, что файл является программой и запускается сам (это в Windows и DOS файлы с расширением *.exe, *.bat, *.com) а вот в Линуксе исполняемый файл может иметь любое расширение, или вообще его не иметь. В Windows ( а ранее в DOS) использовалось расширение с ограничениями, в три знака. Сейчас Windows использует и больше знаков для работы (например *.docx). В принципе имя файла может состоять хоть из одной, хоть из десяти частей. Главное его открыть нужной программой, чтобы прочитать.
Pascal:
var a,b,c:real;
begin
write ('Number 1: ');
readln (a);
write ('Number 2: ');
readln (b);
write ('Number 3: ');
readln (c);
writeln ('Srednee: ',(a+b+c)/3:0:4);
readln;
end.
C++:
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
float a,b,c;
cout.setf(std::ios_base::fixed,std::ios_base::floatfield);
cout <<"Number 1: ";
cin >>a;
cout <<"Number 2: ";
cin >>b;
cout <<"Number 3: ";
cin >>c; cout.precision(4);
cout <<"Srednee: " <<(a+b+c)/3 <<endl;
return 0;
}
var a,b,c:real;
begin
write ('Number 1: ');
readln (a);
write ('Number 2: ');
readln (b);
write ('Number 3: ');
readln (c);
writeln ('Srednee: ',(a+b+c)/3:0:4);
readln;
end.
C++:
#include <iostream>
#include <iomanip>
using namespace std;
int main()
{
float a,b,c;
cout.setf(std::ios_base::fixed,std::ios_base::floatfield);
cout <<"Number 1: ";
cin >>a;
cout <<"Number 2: ";
cin >>b;
cout <<"Number 3: ";
cin >>c; cout.precision(4);
cout <<"Srednee: " <<(a+b+c)/3 <<endl;
return 0;
}
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Бетті кітап түрінде орнату үшін не істеу керек?
Автор: FATAHOVAMAINA
Информатика бжб көмектесіп жіберіңдерші
Автор: An-solomon
