Сообщения без ответов | Активные темы


Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа




Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 15 
  Пред. тема | След. тема 
В случае проблем с отображением форума, отключите блокировщик рекламы
Автор Сообщение
  Cherviack

Member
Статус: Не в сети
Регистрация: 05.06.2003
Откуда: Хабаровск
Народ кто может помогите плиз нада 5 прог накатать в Турбо паскале!!!


1пр.
Написать прогу для ввода чисел и знака операции и выполняющию эту арефметическую опперацию (+,-,*,/)как простой ручной калькулятор.

2пр.
Написать прогу ввода числа А, параметра N и массива из N чисел (до 10 чисел) найти элемент массива, по модулю ближайший к значению А, среднее арифмитическое элементов массива и элемент со значением ближайшим к среднему.

3пр.
Написать прогу для вывода перечня слов в скобках, содержащейся во введённой строке.

4пр.
Написать прогу построение в графическом режиме столбчатой диаграммой по заданию 2пр.

5пр.
используя результат выполнения 2-ой и 4-ой пр. написать прогу, которая хранит данные в файле и выполняет действие
1)выбор имяни и файла в данных
2)ввод данных в массив с клавиатуы
3)запись данных из массива в файл данных
4)ввод данных и массива в файл
5)обработка данных в масиве\если она есть во 2-ой пр.
6)Просмотр данных из масива на экране в графическом виде (столбчатая диаграмма)

Зарание БОЛЬШОЕ СПАСИБО!!!

_________________
Хороший юзер-мёртвый юзер

Реклама

Партнер
  SEKTOR

Member
Статус: Не в сети
Регистрация: 08.07.2003
Откуда: Новосибирск
Cherviack Ед. что знаю - калькулятор с плюсом или минусом :D остального ещё не умею...

Код:
PROGRAM calc;

VAR
   x: integer;
   y: integer;
   Summa: integer;

BEGIN
   Write('первое число:  ');
   ReadIn(x);
   Write('Второе число:  ');
   ReadIn(y);
   Summa:=x+y;
   WriteIn('Ответ:  ',summa  );
END.

Кажется так.... вычитание аналогично.

_________________
Иных уж нет, а тех - долечим...

  Cherviack

Member
Статус: Не в сети
Регистрация: 05.06.2003
Откуда: Хабаровск
SEKTOR
Это только сумма? а вычитание? напиши плиз а то я в нём совсем небум бум!

_________________
Хороший юзер-мёртвый юзер

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Cherviack Ты на программера учишся или как?
  SEKTOR

Member
Статус: Не в сети
Регистрация: 08.07.2003
Откуда: Новосибирск
Например так:

Код:
PROGRAM calc;

VAR
   x: integer;
   y: integer;
   Differ: integer;

BEGIN
   Write('первое число:  ');
   ReadIn(x);
   Write('Второе число:  ');
   ReadIn(y);
   Differ:=x-y;
   WriteIn('Ответ:  ',Differ  );
END.

_________________
Иных уж нет, а тех - долечим...

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Калькулятор.
Код:
program a;
var var1,var2,error:longint;
    svar1,svar2:string;
    sInput:string;

begin
     Write('Input expression-');
     ReadLn(sInput);
     if pos('+',sInput)<>0 then
     begin
          svar1:=copy(sInput,1,pos('+',sInput)-1);
          svar2:=copy(sInput,pos('+',sInput)+1,255);
          val(svar1,var1,error);
          val(svar2,var2,error);
          WriteLn('Result is ',var1+var2);
     end else
     if pos('-',sInput)<>0 then
     begin
          svar1:=copy(sInput,1,pos('-',sInput)-1);
          svar2:=copy(sInput,pos('-',sInput)+1,255);
          val(svar1,var1,error);
          val(svar2,var2,error);
          WriteLn('Result is ',var1-var2);
     end else
     if pos('*',sInput)<>0 then
     begin
          svar1:=copy(sInput,1,pos('*',sInput)-1);
          svar2:=copy(sInput,pos('*',sInput)+1,255);
          val(svar1,var1,error);
          val(svar2,var2,error);
          WriteLn('Result is ',var1*var2);
     end else
     if pos('/',sInput)<>0 then
     begin
          svar1:=copy(sInput,1,pos('/',sInput)-1);
          svar2:=copy(sInput,pos('/',sInput)+1,255);
          val(svar1,var1,error);
          val(svar2,var2,error);
          WriteLn('Result is ',var1/var2);
     end;
     readln;
end.

Остальные задачки советую решить самому, если конечно хочеш научиться программированию.
  Cherviack

Member
Статус: Не в сети
Регистрация: 05.06.2003
Откуда: Хабаровск
Ray Adams
нет просто это как вводная тема, а времени пока нет сесть и разбираться!))) а сессия поджимает!

_________________
Хороший юзер-мёртвый юзер

  Dilon

Member
Статус: Не в сети
Регистрация: 30.04.2004
Откуда: [Omsk Team]
SEKTOR
твоя программа, просто складывает два числа, а нужно, чтобы выражение само считалось, типа ввел 3+4 прога посчитала и написала - 7, как у Ray Adams

_________________
forum.omskteam.ru- Все о керамограните

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Задачка N3
Код:
program a;
{$APPTYPE CONSOLE}
var
    sInput:string;

begin
     Write('Input string-');
     ReadLn(sInput);
     while true do
     begin
          if pos(' ',sInput)<>0 then
          begin
               WriteLn('(',copy(sInput,1,pos(' ',sInput)-1),')');
               delete(sInput,1 ,pos(' ',sInput));
          end else
          begin
               WriteLn('(',sInput,')');
               Break;
          end;
     end;
     readln;
end.
  Cherviack

Member
Статус: Не в сети
Регистрация: 05.06.2003
Откуда: Хабаровск
Ray Adams
Ты не мог бы мне калькулятор *.PAS-овским файликом скинуть на cherviack@mail.ru А то у мя пишет Erorк 98: Integer vareble expected.

_________________
Хороший юзер-мёртвый юзер

  Ray Adams

Advanced member
Статус: Не в сети
Регистрация: 09.06.2003
Откуда: USSR
Cherviack Я писал на Delphi может с Паскалем что-то там изменено, я не помню. Но сделать вот так, замени этот кусок

Цитата:
var var1,var2,error:longint;
svar1,svar2:string;
sInput:string;

на вот такой
Цитата:
var var1,var2,error:integer;
svar1,svar2:string;
sInput:string;


  Cherviack

Member
Статус: Не в сети
Регистрация: 05.06.2003
Откуда: Хабаровск
Люди прогресс...есть готовые 1,2,3 если по ним кто сможет сделать 4 или 5 скажите я пришлю! Заранее спасибо!

_________________
Хороший юзер-мёртвый юзер

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Давай кидай на dmitry2004@rambler.ru первые 3 задания, я попробую сделать 4-е (оно в общем несложное),
а 5-е, как я понимаю - это логическое объединение первых пяти прог.
P.S. в пятом задании должно быть что-то типа меню, для выбора необходимых действий?
  Cherviack

Member
Статус: Не в сети
Регистрация: 05.06.2003
Откуда: Хабаровск
Lord_of_Darkness
1)выбор имяни и файла в данных
2)ввод данных в массив с клавиатуы
3)запись данных из массива в файл данных
4)ввод данных и массива в файл
5)обработка данных в масивеесли она есть во 2-ой пр.
6)Просмотр данных из масива на экране в графическом виде (столбчатая диаграмма)

это и есть меню

Добавлено спустя 3 часа, 56 минут, 19 секунд:
Люди есть есчё 5пр. но её чуть переделать вроде надо...кому скинуть посмосмотреть........а то я не шарю чот там к чему)))

_________________
Хороший юзер-мёртвый юзер

  Lord_of_Darkness

Member
Статус: Не в сети
Регистрация: 03.01.2004
Откуда: Питер
Cherviack
Цитата:
Люди есть есчё 5пр. но её чуть переделать вроде надо...кому скинуть посмосмотреть........а то я не шарю чот там к чему)))

Кидай мне, я переделаю. ( dmitry2004@rambler.ru )

P.S. Вот четвертая прога: http://cp.people.overclockers.ru/cgi-bi ... =Diagr.rar

Добавлено спустя 8 часов, 36 минут, 41 секунду:
Cherviack
5-ую кинул на мыло.

Добавлено спустя 3 минуты, 36 секунд:
Цитата:
Добавлено спустя 8 часов, 36 минут, 41 секунду:

Нифига! Столько времени прошло...
(не подумайте что я все это время лабу исправлял :wink: :lol: :lol:
Показать сообщения за:  Поле сортировки  
Начать новую тему Новая тема / Ответить на тему Ответить  Сообщений: 15 
-

Список форумов » Специализированные форумы » Программирование

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 11

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  

Лаборатория

Ретроклокинг: влияние поколений интерфейсов SSD на производительность


Обзор ноутбука ASUS Zenbook DUO (UX8406)


Обзор и тестирование модульного блока питания MSI MAG A850GL PCIE5


Обзор и тестирование процессорного кулера APNX AP1-V


Обзор и тестирование материнской платы MSI Z790 Gaming Plus WIFI





Новости
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB | Kolobok smiles © Aiwan