lediDojd9
1

Написать и отладить программу с применением операторов циклов

07.12.2009, 18:43. Показов 1717. Ответов 1
Метки нет (Все метки)

Пассажирский самолет может поднять груз общим весом 30т. Составить программу для определения веса почтового груза, который можно поместить в самолет после посадки пассажиров и загрузки их багажи. Во время регистрации пассажиров ЭВМ должна подсчитывать количество пассажиров (условный вес одного человека -100 кг) и суммировать вес багажа.
Написать и отладить программe с применением операторов FOR … DO, FOR … DOWNTO, WHILE REPEAT...UNTIL..
Я сделала так..но где то ошибка...
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
program samolet;
uses crt;
var y,x,z,v,c,b,i,k:integer;
    n:char; a:string;
    label m1;
begin
clrscr;
textbackground(11);
clrscr;
 
window(5,6,26,9);
textbackground(7); clrscr;
window(4,5,25,8);
textbackground(2); clrscr;
textcolor(14);
writeln('   Автор программы');
textcolor(12);
writeln('  Асемгуль');
writeln;
 
window(5,16,50,20);
textbackground(7); clrscr;
window(4,15,49,19);
textbackground(5); clrscr;
textcolor(1);
writeln('По вопросам данной программы');
textcolor(0);
writeln('Обращаться по телефону:8(7182)123456');
writeln;
 
window(5,25,65,40);
textbackground(7); clrscr;
window(4,24,64,39);
textbackground(4); clrscr;
textcolor(1);
writeln('Добро пожаловать в программу для определения веса почтового багажа');
writeln('Для ввода данных нажмите ENTER)');
readkey;
clrscr;
m1:
writeln(' Введите F для использования FOR...TO..DO');
writeln('Введите W для использования WHILE...DO');
writeln('Введите R здля использования REPEAT...UNTIL');
readln(n);
case n of
  'F':
  begin
    for i:=1 to 1000 do
    begin
    Writeln('Введите количество пассажиров');
 readln(y);
 Writeln('Введите вес багажа');
 readln(x);
 v:=30000;
 c:=y*100;
 b:=x*10;
 z:=v-(c+b);
 Writeln('‘Свободно для почтового багажа= ',z);
    writeln('Хотите изменить способ? 1-da, 2-net');
 readln(k);
 if k=1 then goto m1
 else
end;
   end;
  'W':
  begin
    while i<=1000 do
    begin
    Writeln('Введите количество пассажиров');
 readln(y);
 Writeln('Введите вес багажа');
 readln(x);
 c:=y*100;
 b:=x*10;
 v:=30000;
 z:=v-(c+b);
 Writeln('Свободно для почтового багажа=',z);
    i:=i+1;
    writeln('Hotite pom spos? 1-da, 2-net');
 readln(k);
 if k=1 then goto m1
 else
end;
    end;
  'R':
  begin
  if k=1 then goto m1
  else
    repeat
    Writeln('Введите количество пассажиров');
 readln(y);
 writeln('Введите вес багажа');
 readln(x);
 c:=y*100;
 b:=x*10;
 v:=30000;
 z:=v-(c+b);
   Writeln('Свободно для почтового багажа=',z);
    i:=i+1;
    until i>1000;
    writeln('Hotite pom spos? 1-da, 2-net');
 readln(k);
 {if k=1 then goto m1
 else}
end;
end;
  end.
Можно с объяснением....Пожалуйста...

Добавлено через 29 минут
пожалуйста помогите((
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.12.2009, 18:43
Ответы с готовыми решениями:

Составить и отладить программу с использованием вложенных циклов
Вычислить функцию f(x,a)=ln(3x)+\sqrt{\frac{a^3}{2x}} при x=0.3,0.4,...,0.9 и a=2,3,...,6 с...

Составить программу вычисления с применением операторов цикла
p=\prod_{i=1}^{5}{e}^{{i}^{2}}+1

Составить программу вычисления функции у с применением операторов IF THEN ELSE условный оператор
1. {√x+1 при 10&lt;x&lt;13 Y={cos x x&lt;10 {sin x x&gt;13 2. {x^3 ...

Написать файл функцию с использованием операторов ветвления и циклов
Входной массив: A(в индексе 3) Формируемый массив: B(в индексе 3) b(i)=cos(i^2) i=1....3...

1
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
07.12.2009, 18:48 2
Цитата Сообщение от lediDojd9 Посмотреть сообщение
FOR … DO, FOR … DOWNTO
Эти циклы вообще здесь не пойдут, поскольку мы не знаем заранее сколько будет человек и груза.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.12.2009, 18:48
Помогаю со студенческими работами здесь

Написать файл функцию с использованием операторов ветвления и циклов
Входной массив: A(индекс 3x3); Формируемый массив: B( индекс 3x3), b(индекс ij)={a(индекс ij),...

Разработать алгоритм и тесты, написать и отладить программу Выполнить программу, проанализировать результат
Из матрицы У(k, k) получить вектор Т, элементами которого являются элементы главной диагонали...

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru