Turbo Pascal (произносится «ту́рбо паска́ль») — Интегрированная среда разработки программного обеспечения для платформ DOS и Windows 3.x и язык программирования в этой среде, диалект языка Паскаль от фирмы Borland.
Товарный знак Borland Pascal был зарезервирован для дорогих вариантов поставки (с бо́льшим количеством библиотек и исходным кодом стандартной библиотеки), оригинальная дешёвая и широко известная версия продавалась как Turbo Pascal. Название Borland Pascal также используется в более широком смысле — как неофициальное название версии языка Паскаль от фирмы Borland.
В школе мы изучаем Turbo Pascal уже год, пошёл второй. За первый год мы узнали что такое Turbo Pascal и с чем его едят. Мало, не мало, но мы знаем типы данных, логические данные, различные операторы, условный оператор, оператор выбора, и теперь изучаем циклы с пред-условием и с пост-условием.
Рассмотрим одну задачку:
Задано N - количество чисел последовательности и последовательность состоящая из N чисел. Найти произведение чисел и первое положительное число последовательности.
Решение: 1. Исходные данные N - количество чисел последовательности P - число последовательности 2. Результат PR - произведение чисел PC - первое положительное число - Добавим ещё одну переменную - счётчик, назавём её K 3. Код программы на Turbo Pascal
Code
uses crt; var K,N,P,PR,PC:integer; begin clrscr; writeln ('Введите количество чисел последовательности'); readln (n); K:=0; {Зануление счётчика} PR:=1; {Присвоение произведению 1} while K<N do {Пока счётчик меньше количеста числа последовательности} begin writeln ('Введите число из последовательности'); readln (P); K:=K+1; {Это действие показывает, что 1 число из последовательности введено} PR:=PR*P; {Нахождение произведения} if P>0 then {Если P>0, т.е. если число положительное} begin PC:=P; {PC присвоить первое положительное число} writeln ('Первое положительное число =', PC); end; end; writeln ('Произведение=', PR); readkey end.
В заключение, думаю и дальше продолжать выкладывать задачки по программированию :) Скачать .exe файл
If you want to make $20-$50/hour and up to $3500/month of your time working at home part-time then this is the most important message you’re ever going to read...
It may sound hard to believe, but it's true. There are thousands of companies out there who are willing to pay for your opinions regarding their products. This is an important part of product research, and they rely on people just like you for your honest opinion!
Imagine getting paid for doing things like:
- Trying out new menu items from popular restaurants - Take short surveys about new cars that are coming out soon - Give your opinion about new clothing and shoe designs But here's a problem, it's very hard to find out best survey site and you probably can waste too much time but I just stumbled up website http://get-surveys-for-money.com where this guy Jack revealed his secret source where he registered and taking surveys in his free time and earning $265 within 12h and $1440 just within 2 weeks
Click Here To read this amazing story : http://get-surveys-for-money.com
Hi, This just came across my desk and I had to pass it on to you ASAP… Internet multi-millionaire Mack Michaels has a few new positions available right now… If accepted you can easily rake in $11, 917 per month starting from scratch. ==> http://www.maverickmoneymaking.info/maverick.html Once you’re accepted just follow the training Mack gives you. It’s really quite simple… Learn how Mack went from not being able to afford Christmas gifts to a millionaire lifestyle and how you can too! BUT… Due to the extremely high level of Hands-On time Mack spends with every new member he has to limit the number of positions that are open. Right now there are only 2 available in your area. If you’re interested you should move quickly. ==> http://www.maverickmoneymaking.info/maverick.html Your Friend, – Mike
То что вы в школе изучаете языки программирования мне конечно немного завидно, у нас в школах учат включать/выключать компьютеры ну и тому подобные дела... :D
Хех) По информатике мы изучаем перевод и действия над числами в различных системах счисления. В прошлом году весь класс во всю осваивал формулы Excel'a и магию Power Point'a :D Я тупо сделаю за 10-15 минут и отсиживаюсь :D
