С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
driveme
0 / 0 / 0
Регистрация: 22.05.2014
Сообщений: 25
1

Составить программу, выводящую на экран меню студенческой столовой (наименование, изделия, вес)

29.05.2014, 15:50. Просмотров 643. Ответов 1
Метки нет (Все метки)

Составит программу, выводящую на экран меню студенческой столовой(наименование изделия, вес,стоимость)
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.05.2014, 15:50
Ответы с готовыми решениями:

Составить программу выводящую на экран меню ресторана "Дракон"
составить программу,выводящую на экран меню ресторана "Дракон"(наименование...

Составить программу выводящую меню на неделю
Запросите у пользователя No дня недели и выведите меню на этот день....

Составить программу, выводящую на экран расписание занятий
Составить программу, выводящую на экран расписание занятий (номер пары, время...

Составить программу, выводящую на экран данную матрицу
Добрый вечер. Нужно помочь с двумя программками до завтра. 1.Дан двумерный...

Составить программу, выводящую на экран перечень товаров
В задаче записи (не менее 5) вводятся с клавиатуры, записываются в файл и...

1
Power torr
9 / 9 / 9
Регистрация: 28.05.2014
Сообщений: 11
29.05.2014, 16:09 2
Лучший ответ Сообщение было отмечено driveme как решение

Решение

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
program dfdsf;
uses crt;
Type stolovaia=Record
     NI:string[25];
     ves:integer;
     cena:integer;
     End;
Var A:Array[1..100] of stolovaia;
    i,n:integer;
Begin
clrscr;
    write('Введите кол-во блюд: ');readln(n);
    For i:=1 to n do
     Begin
      write('Название блюда: ');readln(A[i].NI);
      write('Вес блюда: ');readln(A[i].ves);
      write('Цена: ');readln(A[i].cena);
     End;
    writeln('----------------------------------------------------');
    writeln('           Название      | ','Вес       | ',' Цена|');
    writeln('----------------------------------------------------');
    For i:=1 to n do
     writeln(A[i].NI:25,'|':1,A[i].ves:6,'|':6,A[i].cena:6,'|');
     readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.05.2014, 16:09

Составить программу, выводящую на экран факториалы всех чисел от 0 до n
Составить программу, выводящую на экран факториалы всех чисел от 0 до n, где n...

Составить программу, выводящую на экран сведения о периодических изданиях
Составить программу, выводящую на экран сведения о периодических изданиях...

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


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

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

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