Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти сумму элементов стоящих над главной диагональю матрицы Дана целочисленная матрица А размером M на N. Найти сумму элементов стоящих над главной диагональю матрицы. https://www.cyberforum.ru/ turbo-pascal/ thread960732.html Измените знаки всех элементов массива на противоположные Turbo Pascal
Собственно вот сама задача: Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные. Помогите доделать,у меня с - на +меняет а наоборот почему то нет..в чём дело не...
Turbo Pascal Как проверить принадлежит ли число массиву? //array; Program test2; Uses crt; var b:integer; a: array of integer; begin Writeln('Vvedite 4iclo: '); Readln(b); readln; end. https://www.cyberforum.ru/ turbo-pascal/ thread960660.html Turbo Pascal По углам определить вид треугольника https://www.cyberforum.ru/ turbo-pascal/ thread960659.html
Дано 3 угла треугольника a,b,c. Нужно по углам определить вид этого треугольника И дайте ссылку на Какуйто литературу чтобы начинать програмировать с 0 и что бы всё было ясно и понятно
Turbo Pascal TP на win 8 64bit
Срочно нужна ссылка TP под восьмёрку, на 64, я так понимаю, полная несовместимость. ДосБокс вообще медным тазом всё накрывает, нужна помощь)
Turbo Pascal Умножение двухзначного числа на 11 https://www.cyberforum.ru/ turbo-pascal/ thread960593.html
умножение любого двухзначного числа на 11.
Turbo Pascal Вычислить значение выражения Задание B3 Очень надо https://www.cyberforum.ru/ turbo-pascal/ thread960592.html Программа про столетия Turbo Pascal
Напишите процедуру(функцию) для определения годов столетия (1900-2000),которые начинаются и заканчиваются в воскресение. Напишите,пожалуйста,программу полностью.
Turbo Pascal разработать программу наглядной демонстрации поиска экстремума функции методом сканирования. Программа должна решать след задачи: 1) выбор функции (3- https://www.cyberforum.ru/ turbo-pascal/ thread960521.html
разработать программу наглядной демонстрации поиска экстремума функции методом сканирования. Программа должна решать след задачи: 1) выбор функции (3-4 функции) 2) просмотр графика функции 3)...
Turbo Pascal Книжного магазина - Расчет за книгу Здравствуйте. помогите, пожалуйста составить программу для книжного магазина: 1.Просит ввести цену книги 2.Просит ввести сумму, которую заплатил покупатель 3.Высчитывает выдаваемую сумму, если... https://www.cyberforum.ru/ turbo-pascal/ thread960474.html
Выведите через пробел n чисел — числа ai в неубывающем порядке Turbo Pascal
Помогите пожалуйста... Формат входных данных В первой строке входного файла задано целое число n (1 ≤ n ≤ 5 000). Во второй строке заданы через пробел n целых чисел a1, a2, : : :, an (1...
Turbo Pascal Изменить скорость движения Изменить скорость движения. Если окружность движется не быстро, увеличить скорость (x:=x+2), если слишком быстро – уменьшите процедурой Delay. https://www.cyberforum.ru/ turbo-pascal/ thread960266.html
0 / 0 / 0
Регистрация: 23.09.2013
Сообщений: 4
0

Что в этой программе можно изменить (что бы улучшить) И как ее усовершенствовать ? - Turbo Pascal - Ответ 5090840

23.09.2013, 21:00. Показов 665. Ответов 3
Метки (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Program Kalkulator ;
Label m1,m2;
Var Operation,cal:byte;
       a,b:real;
Begin 
 m1: Writeln('1-сложить');
         Writeln('2-вычесть');
         Writeln('3-умножить');
         Writeln('4-делить');
         Writeln;
          Writeln('Вводите выражение через пробел или Enter');
         Writeln;
          
         Read(a);
         Read(Operation);
         Read(b);
            Case Operation of
                1: Writeln(a,'+',b,'=',a+b:10:2);
                2: Writeln(a,'-',b,'=',a-b:10:2);
                3: Writeln(a,'*',b,'=',a*b:10:2);
                4:  if b=0 then Writeln('НА НОЛЬ ДЕЛИТЬ НЕЛЬЗЯ')
                                else Writeln(a,'/',b,'=',a/b:10:2);
           else     
                      Writeln('некорректный ввод');
            end;
     Writeln('1-выход');
     Writeln('2-заново');
     Readln(cal);
   Case cal of
       1: goto m2;
       2: goto m1;
   end;
     m2: readln;
END.


Вернуться к обсуждению:
Что в этой программе можно изменить (что бы улучшить) И как ее усовершенствовать ? Turbo Pascal
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2013, 21:00
Готовые ответы и решения:

Как в этой программе изменить то что во вкладке "о программе"
Здравствуйте, уважаемый народ. Подскажите как в этой программе изменить то что во вкладке "о...

Делфи. В этой программе нужно что-то изменить, чтобы на графике были оси координат
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics,...

Что значит i в этой программе и что оно делает?
А что значит i в этой программе и что оно делает? clc,clear all...

Как найти то что можно улучшить в дизайне, юзабилити сайта?
Допустим стоит такая задача. Дают готовый сайт которые делали очень крутые дизайнеры и он уже...

3
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
23.09.2013, 21:00

Что нужно изменить что бы при добавлении этой ссылки в дополнительной новости с одной строкой, ссылка в шаблоне отображалась и работала
В Dle можно добавлять дополнительные поля новостей и там на выбор 1 строка или много строк, если...

Можно ли изменить значение памяти в этой программе?
Есть такая программа (исходник): cut Суть такая как изменить значение в ней через программы типа...

Производительность в 1С, как же понять что тормозит в 1с её работу и что улучшить?
Здравствуйте! Проблема заключается вот в чём: Имеется сервер с Windows Server 2008R2. Intel(R)...

Что можно улучшить в ПК
Что можно улучшить в ПК . .

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.