Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Joker456
15 / 15 / 16
Регистрация: 13.10.2013
Сообщений: 188
#1

Пограмма для подсчета стоимости бензина - Pascal ABC

02.06.2014, 14:48. Просмотров 221. Ответов 0
Метки нет (Все метки)

Здравствуйте
Решил написать свою задачу пригодную в быту для подсчета стоимости бензина на сколько заправляешься, но тут вылезла ошибка "не описана n метка", что делать ?
Прилагаю исходный код, поправьте что не так.
Если будет вариант решения короче приму.

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Program azs;
Const
  ai92 = 32.40;
  ai95 = 35.20;
  ai80 = 28.10;
Var
 summa, summa2, litr:Integer;
 zaprav,sdacha, litrov:Real;
 button : 1..6;
 button2 : 1..4;
 
Begin
 WriteLn('АЗС ИП Ануфриев Д.В.', #10,#13,' Выберите бензин: ',#10,#13,'1. АИ 92 [',ai92,' руб]',#10,#13,'2. АИ 95 [',ai95,' руб]',#10,#13,'3. АИ 80 [',ai80,' руб ]');
 ReadLn(button);
 Case button of
  1 : Begin
       Repeat
        Write('Введите вашу сумму: ');
        ReadLn(summa);
       Until summa > 0;
       WriteLn('Выберите: ',#10,#13,' 1. Указываю литры ',#10,#13,'2. Указываю сумму на которую заправляюсь ');
       ReadLn(button2);
        Case button2 of
         1 : Begin
              Repeat
               Write('Введите кол-во литров: ');
               ReadLn(litr);
              Until litr > 0;
               zaprav:=ai92*litr;
               sdacha:=summa-zaprav;
               WriteLn('Вы заправили АИ 92 по цене ',ai92,' руб на ',litr,' л.');
               WriteLn('Ваша сдача ',sdacha,' руб');
               WriteLn('Спасибо, за покупку приезжайте еще !');
             end;
         2 : Begin
              Repeat
               Write('Введите сумму: ');
               ReadLn(summa2);
              Until summa2 > 0;
               litrov:=summa2 / ai92;
               zaprav:=litrov*ai92;
               sdacha:=summa-zaprav;
               WriteLn('Вы заправили АИ 92 по цене ',ai92,' руб на ',litrov,' л.');
               WriteLn('Ваша сдача ',sdacha,' руб');
               WriteLn('Спасибо, за покупку приезжайте еще !');
             end;
        end;
  2 : Begin
       Repeat
        Write('Введите вашу сумму: ');
        ReadLn(summa);
       Until summa > 0;
       WriteLn('Выберите: ',#10,#13,' 1. Указываю литры ',#10,#13,'2. Указываю сумму на которую заправляюсь ');
       ReadLn(button2);
        Case button2 of
         1 : Begin
              Repeat
               Write('Введите кол-во литров: ');
               ReadLn(litr);
              Until litr > 0;
               zaprav:=ai95*litr;
               sdacha:=summa-zaprav;
               WriteLn('Вы заправили АИ 95 по цене ',ai95,' руб на ',litr,' л.');
               WriteLn('Ваша сдача ',sdacha,' руб');
               WriteLn('Спасибо, за покупку приезжайте еще !');
             end;
         2 : Begin
              Repeat
               Write('Введите сумму: ');
               ReadLn(summa2);
              Until summa2 > 0;
               litrov:=summa2 / ai95;
               zaprav:=litrov*ai95;
               sdacha:=summa-zaprav;
               WriteLn('Вы заправили АИ 95 по цене ',ai95,' руб на ',litrov,' л.');
               WriteLn('Ваша сдача ',sdacha,' руб');
               WriteLn('Спасибо, за покупку приезжайте еще !');
             end;
        end;
  3 : Begin
       Repeat
        Write('Введите вашу сумму: ');
        ReadLn(summa);
       Until summa > 0;
       WriteLn('Выберите: ',#10,#13,' 1. Указываю литры ',#10,#13,'2. Указываю сумму на которую заправляюсь ');
       ReadLn(button2);
        Case button2 of
         1 : Begin
              Repeat
               Write('Введите кол-во литров: ');
               ReadLn(litr);
              Until litr > 0;
               zaprav:=ai80*litr;
               sdacha:=summa-zaprav;
               WriteLn('Вы заправили АИ 80 по цене ',ai80,' руб на ',litr,' л.');
               WriteLn('Ваша сдача ',sdacha,' руб');
               WriteLn('Спасибо, за покупку приезжайте еще !');
             end;
         2 : Begin
              Repeat
               Write('Введите сумму: ');
               ReadLn(summa2);
              Until summa2 > 0;
               litrov:=summa2 / ai80;
               zaprav:=litrov*ai80;
               sdacha:=summa-zaprav;
               WriteLn('Вы заправили АИ 80 по цене ',ai80,' руб на ',litrov,' л.');
               WriteLn('Ваша сдача ',sdacha,' руб');
               WriteLn('Спасибо, за покупку приезжайте еще !');
             end;
        end;
      end;
 end;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2014, 14:48
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Пограмма для подсчета стоимости бензина (Pascal ABC):

Расчет количества и стоимости затрачиваемого бензина на путь.
Уважаемые Братья и Сестры(если таковые есть) помогите с написанием...

Вычислить расход бензина и его стоимость
Программа должна вычислять расход бензина и стоимость израсходонового бензина ,...

Составить алгоритм для вычисления стоимости мебельного гарнитура
Всем привет! Помогите пожалуйста решить задачу в Паскале. Задача: Составить...

Написать программу для подсчета слов в строке
Дана строка, содержащая несколько слов ,разделенных одним пробелом. В начале...

Доработать программу для подсчета двух чисел
Доработать эту программу так,чтобы она эти два числа подсчитывала. program...

Написать функцию для подсчета слов в предложении
Создайте функцию, которая возвращает количество слов в предложении, что служит...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2014, 14:48
Привет! Вот еще темы с решениями:

Программа для подсчета часов, минут и секунд
Написать программу подсчета количества часов, минут и секунд в высокостный год....

Разработать программу для подсчета слов в строке
Всем привет! Помогите создать программу для подсчета слов ,длинной 5...

Напишите программу для подсчета различных цифр в файле
Напишите программу для подсчета различных цифр в файле. Файл уже готовый...

Составить программу для расчета стоимости поездки на дачу туда и обратно
Help!Помогите! Составить программу для расчета стоимости поездки на дачу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

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