Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Лилька
0 / 0 / 0
Регистрация: 30.05.2010
Сообщений: 12
#1

Определить, есть ли страны, находящиеся а Африке или в Азии - Pascal

30.05.2010, 16:00. Просмотров 813. Ответов 1
Метки нет (Все метки)

Решите пожалуйста задачу:Даны названия 20-ти стран и частей света, в которых они находятся.Определить,есть ли среди них страны,находящиеся а Африке или в Азии.В случаи положительного ответа напечатать их названия.Зарание огромное спасибо!!!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.05.2010, 16:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, есть ли страны, находящиеся а Африке или в Азии (Pascal):

Как определить, есть у двух множеств пересечение, или нет?
Как определить, есть у двух множеств пересечение, или нет?

Определить три страны, имеющие наивысший рейтинг
Задана таблица, которая содержит сведения о полученных медалях на спортивной...

Заданы две строки. Определить, есть или нет в них общие слова
Заданы две строки. Определить, есть или нет в них общие слова. Решите...

По названию страны определить континент
type страна = (Германия,Куба,Лаос, Монако,Непал,Польша); континент =...

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

Даны название 20-ти стран и частей света,в которые они находятся.Определить, есть ли среди них страны,находящиеся в Африке или в Азии
Помогите пожалуйста решение напишите сюда Даны название 20-ти стран и частей...

1
Домолаз
нэ
64 / 64 / 42
Регистрация: 08.04.2010
Сообщений: 166
30.05.2010, 19:41 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
uses crt;
type
   country=record
   name:string;
   part:string;
end;
const
   n=20;
var
   c:array[1..100] of country;
   i:longint;
   q:boolean;
begin
   clrscr;
   for i:=1 to n do
   begin
      writeln(i,':');
      writeln('Название страны: ');
      readln(c[i].name);
      writeln('Название части света,в которой находится ',c[i].name);
      readln(c[i].part);
   end;
   q:=true;
   writeln('Страны, которые в Африке или Азии: ');
   for i:=1 to n do
   begin
      if (c[i].part='Африка') or (c[i].part='Азия') then
      begin
         write(c[i].name,' ');
         q:=false;
      end;
   end;
   if q=true then
      writeln('Таких стран нет!');
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.05.2010, 19:41
Привет! Вот еще темы с решениями:

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

Определить, есть в списке страны, находящиеся в Африке или в Азии
Даны названия 20 стран и частей света, в которых они находятся. Определить,...

Определить, есть ли среди стран те, которые находятся в Африке или в Азии
Даны названия 20 стран и частей света, в которых они находятся. Определить,...

Даны названия 20 стран и частей света, где они находятся. Определить, есть ли среди них страны Азии и Африки
Даны названия 20 стран и частей света, в которых они находятся. Определить,...


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

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

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