LovesTheTeam.com

Ще ви трябва

• PascalABC.NET или PascalTurbo програмна среда.

инструкция

1

Първо, отворете програмата. Създайте нов файл и задайте добавките. В този случай имаме нужда от модул, който да работи с конзолата - CRT. За това пишем: използва CRT;

2

Посочваме променливите i, s, m - променливи от реалния тип Var i, s, m: Real;

3

За да стартираме програмата, ще напишем: begin И определете заглавието на прозореца на конзолата: SetWindowTitle ("Хронометър");

4

Процедурата TextColor присвоява цвета на текста иоператорът Write записва текст на екрана: TextColor (LightGreen); WriteLn ("Натиснете Enter за стартиране на хронометъра"); WriteLn ("Натиснете отново, за да спрете"); Напишете ("Кликнете отново, за да рестартирате"); Краят на Ln се премества в следващия ред.

5

Операторът ReadLn въвежда стойности от клавиатурата, но в този случай просто чака потребителя да натисне Enter: ReadLn;

6

Ние правим безкраен цикъл:докато (вярно) да започне Времето (true) да започне construct е преведено като: Докато (condition) do (). Въпросът е защо започваме тук? В този случай се нуждаем от комбиниран оператор, което означава, че досега условието е вярно за няколко оператора. Ако не е имало начало след това, докато е имало само едно изявление, което би довело до неизправност на програмата. За да прекратите израза "Докато в края", ще напишем край.

7

Сега нулирайте брояча: i: = 0;

8

Следното изявление се превежда по следния начин: докато не натиснете клавиша (). докато не е натиснат на клавиатурата beginOperator ClrScr изчиства екрана: ClrScr;

9

Определихме условията: Ако секунди са по-големи от 60 и по-малко от 3600 (това е необходимо, така че, когато времето е повече от един час, програмата ще отпечата само това, което се намира на третия ако), след това: ако: (а> 60) и (и <3600), след което да започне променлива m (минути ) е равно на: секунди разделени от 60 и заоблени чела част. m: = Int (I / 60); Променлива S (секунди без минути) е: всички секунди минус минути, умножена по 60. S: = I - м * 60;

10

Изразът Write записва колко минути са минали исекунди и крайният оператор завършва работата на начинаещия след условието, ако: Write (m, "минути" и "s: 1: 2," секунди (a / s) "); че секундите трябва да бъдат написани с два знака след десетичната запетая.

11

Ако секунди са по-малки от 60, просто пишете колко секунди са минали с два десетични знака: ако i <60 след това пишете ("", i: 1: 2, "seconds (a / s)");

12

Ако повече от 3600 секунди (т.е. повече от час), тогава:ако i> 3600 след това започнете m: = Int (i / 60); s: = i-m * 60; ch: = Int (m / 60); m: m-ch * 60; Запиши (ча, "час (а)", m, "минути" и ", s: 1: 2," секунди (a / s) ");

13

Така че, програмата пише, че е 0 секунди,сега увеличава брояча i с 10 милисекунди и тъй като програмата изпълнява всичко незабавно, ние правим закъснение за същото време: i: = i + 0.01; Забавяне (10); На следващо място, ние правим край Докато оператора (не keypressed): край; Ако потребителят натисне клавиша, програмата чака, когато той отново я притиска, за да стартирате хронометъра пак: Readln; Readln; сложим случайно, нулира брояча, след като операторът Докато (вярно), така че, когато потребителят кликне втори път Enter, програмата ще отида само с него, ще се нулира брояча и да започне обратното броене до края на правене zanovo.Dalee Докато за цялата програма: край;

14

Ето цялата програма: използва CRT; var i: Реал; s: реално; m: реално; ch: Real, започнете SetWindowTitle ("Хронометър"); TextColor (LightGreen); WriteLn ("Натиснете Enter за стартиране на хронометъра"); WriteLn ("Натиснете отново, за да спрете"); Напишете ("Кликнете отново, за да рестартирате"); ReadLn; докато (вярно) да започне i: = 0; докато не е натиснат на клавиатурата, не стартирайте ClrScr; ако (i> 60) и (i <3600) започваме m: = Int (i / 60); s: = i-m * 60; Напишете (m, "минути" и ", s: 1: 2," секунди (a / s) "); ако аз <60 след това пишете ("", i: 1: 2, "секунди (a / s)"); ако i> 3600 след това започнете m: = Int (i / 60); s: = i-m * 60; ch: = Int (m / 60); m: m-ch * 60; Запиши (ча, "час (а)", m, "минути" и ", s: 1: 2," секунди (s / s) "); приключи; i: = i + 0,01; Забавяне (10); приключи; readln; readln; край.

15

Оказа се, че не е много хубаво, но програмата работи правилно!

Съвет 2: Как да напиша програма на паскал

Pascal е един от най-популярните езици за програмиране. Той е известен със своята относителна лекота, а в някои училища той влиза в задължителното общо образование програмата по информатика и ИКТ. Това прави програмите за писане по-лесни, че компилаторът идва с него.

Ще ви трябва

• Инсталиран пакет Turbo Pascal.

инструкция

1

Да пиша програмата на паскал Първо, трябва да отворите среда запрограмиране. За да направите това, стартирайте файла Turbo.exe, който се намира в папката с инсталираната програма в директорията bin. След това се появява син прозорец, който е редактор.

2

Да се ​​приложи програмата първо трябва да определите името му иизползвани в него от набор от променливи. Например, има задача да въведете две числа. В този случай трябва да създадете три променливи - A, B и C, съответно.

3

След това трябва да определите типа на променливите. В допълнение операциите могат да се използват само числа, така че е препоръчително да зададете типа Integer (цяло число).

4

След това е необходимо да се направи цялата програма операция vychisleniya.V ще изглежда по следния начин: «Програма Добавяне; Var A, B, C: Integer; beginA :. = B + C; край»

5

Сега, когато програмата е написана, имате нужда от неязапишете, компилирате и изпълнявате. Запазването се извършва чрез избор на съответната позиция в менюто (F10 - File - Save). След това се отваря диалогов прозорец, където ще бъдете помолени да изберете името и местоположението на файла програмата без да се стартира, е необходимо да задържате клавишите Alt и F9. Ако приложението не съдържа грешки, Pascal ще покаже съобщението "Compile Successful: Натиснете произволен клавиш". За да стартирате програмата, използвайте комбинацията от бутоните Ctrl и F9. Ако писмената програма стартира без съобщение за грешка, то работи правилно.

Съвет 3: Как да напиша програма в Turbo Pascal

Паскал е най - популярният език, използван впрограмиране. Тя е относително проста и дори включена в задължителната програма за компютърни науки в някои общообразователни училища. Също така с него идва компилаторът, което прави писането на програмите още по-лесно.

инструкция

1

Отворете средата за програмиране, за да напишете програмата в паскал. За да направите това, стартирайте файла Turbo.exe. Той е в папката с инсталирана програма. След това се отваря прозорец със син цвят. Това е редакторът, в който трябва да напишете програмата.

2

За да се реализира програмата, излезе с име и набор от променливи,използвани в него. Например, ако проблемът е да добавите две числа, тогава трябва да създадем три променливи, обозначаващи първата summand, втората summand и сумата.

3

Не използвайте руски букви за името, знацитепунктуация или специални символи (това е прост език и всичко трябва да бъде възможно най-просто - латински). В противен случай програмата ще даде грешка при запазване или неправилно работа в резултат на това.

4

Помислете за вида на променливите. Изпълнете същата операция за добавяне. В него могат да се използват само номера, така че присвоите типа Integer, т.е. е цяло число.

5

Извършете операцията. В случай на събиране всичко е просто, а за написването на по-сложни програми трябва да знаете командите, използвани в Pascal. Тази операция ще изглежда така: Добавяне на програма: Var A, B, C: цяло число: BeginA: = B + C: End.

6

След като напишете програмата, запазете я,събиране и изпълнение. Запазете, като изберете съответния елемент в менюто - F10 / Файл / Запазване. Отваря се прозорец, където трябва да изберете името на файла и пътя, който да го запазите. събирам програмата, като държи Alt + F9. Ако приложението не съдържа грешки, съобщението Compile successful: натискане на който и да е клавиш се появява.

7

Пусни го. програмата като натиснете бутоните Ctrl + F9. Ако не сте получили информация за грешка при стартирането на програмата, то тя работи правилно и сте се справили със задачата.