Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Cybermafiozo
0 / 0 / 1
Регистрация: 18.10.2010
Сообщений: 49
1

Вывод столицы по названию страны

30.01.2011, 00:00. Просмотров 1221. Ответов 6
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
rogram stran;
const
strana:array[1..6] of string=('Avstria','Bolgariya','Greciya', 'Italiya', 'Norvegiya', 'Franciya');
cap:array[1..6] of string=('Vena', 'Sofia', 'Afini', 'Rim', 'Oslo', 'Parij');
var st,st1:string;
i:integer;
begin
repeat
writeln('vvedite Stranu');
readln(st);
until st=strana;
for i:=1 to 6 do
if st=strana then st1:=cap;
writeln('Stolica: ',st1);
 
readln;
end.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.01.2011, 00:00
Ответы с готовыми решениями:

По названию страны вывести название её столицы
Задача: написать программу которая по названию страны выводит название её столицы(5-7 названий). Не...

По введённому названию страны выводит на экран название столицы
Помогите сделать эту программу. По названию страны (переменная типа Country) присвоить переменной...

По названию страны определить ее столицу
tupe страна = (Австрия, Болгария, Греция, Россия, Италия, Германия); столица = *Вена, София, Афины,...

По названию страны определить название континента
Имеются описания: Type country=(Germany,Cuba,Laos,Monaco,B angladesh,Ukraine); ...

Определить название континента (Азия,Америка,Африка,Европа) по названию страны.
Ничо нету (

6
SuPeR XaKer
30.01.2011, 00:06
  #2

Не по теме:

в данном случае не repit всему виной а РУКИ

0
Cybermafiozo
0 / 0 / 1
Регистрация: 18.10.2010
Сообщений: 49
30.01.2011, 00:22  [ТС] 3
Ну может,ну поправьте пожалуйста кто-нибудь
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5127 / 1564 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
Завершенные тесты: 1
30.01.2011, 00:28 4
4то должна делать программа?
0
SuPeR XaKer
2848 / 1977 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
30.01.2011, 00:30 5
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Uses
 CRT;
const
 strana:array[1..6] of string=('Avstria','Bolgariya','Greciya', 'Italiya', 'Norvegiya', 'Franciya');
 cap:array[1..6] of string=   ('Vena',   'Sofia',    'Afini',   'Rim',     'Oslo',      'Parij');
var
 st:string;
 i:integer;
 t:boolean;
begin
t:=false;
repeat
 write('vvedite Stranu: ');
 readln(st);
for i:=1 to 6 do
 if st=strana[i] then
 begin
  writeln('Stolica: ',cap[i]);
  t:=true;
 end;
if t=false then
 writeln('Íå âåðíûé ââîä.Ïîâòîðèòå.');
until t;
readkey
end.
1
Cybermafiozo
0 / 0 / 1
Регистрация: 18.10.2010
Сообщений: 49
30.01.2011, 00:39  [ТС] 6
Спасибо.Кстати изначально у меня было(в паскале) написано strana[i] ,а не просто strana ,не знаю почему так странно скопировалось
0
Ev[G]eN
iOS/Android Developer
Эксперт С++
5127 / 1564 / 952
Регистрация: 23.01.2011
Сообщений: 3,192
Завершенные тесты: 1
30.01.2011, 00:40 7
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
const
 strana:array[1..6] of string=('Avstria', 'Bolgariya', 'Greciya', 'Italiya', 'Norvegiya', 'Franciya');
 cap:array[1..6] of string=('Vena', 'Sofia', 'Afini', 'Rim', 'Oslo', 'Parij');
var
 bool:boolean;
 st:string;
 j:integer;
begin
bool:=false;
repeat
 write('vvedite Stranu: ');
 readln(st);
  for j:=1 to 6 do
   begin
    if st=strana[j] then
     begin
      writeln('Stolica: ',cap[j]);
      bool:=true;
     end;
     if bool=false then
      begin
       writeln('Neizvestnie dannie');
      end;
 until bool;
end.
0
30.01.2011, 00:40
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.01.2011, 00:40

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

По заданной стране вывести название столицы этой страны. Для решения взять 8 любых стран
1.По заданной стране вывести название континента, где эта страна находится. Для решения взять 8...

Дан список стран и их столиц. По названию страны определить ее столицу
Условие:Дан список стран и их столиц. По названию страны определить ее столицу. Задача...


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

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

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