Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 11, средняя оценка - 4.82
SaLoMoN
0 / 0 / 0
Регистрация: 17.11.2011
Сообщений: 91
#1

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

01.12.2011, 18:11. Просмотров 1460. Ответов 2
Метки нет (Все метки)

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

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

Даны номерные знаки нескольких автомашин. Опредеите, есть ли среди них знаки,имеющие код города не 77,90 или 99. - Pascal
Даны номерные знаки нескольких автомашин. Опредеите, есть ли среди них знаки,имеющие код города не 77,90 или 99. program a3; uses...

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

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

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

Даны целые числа с1, с2, …, сm Определить, есть ли среди них простые? - Pascal ABC
Даны целые числа с1, с2, …, сm. Определить, есть ли среди них простые?

2
GoldenBoy
Goldeeeeeeen !
242 / 234 / 75
Регистрация: 15.10.2011
Сообщений: 457
01.12.2011, 19:00 #2
Добавлено через 19 минут
4.

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
type strana = record
     x,y:array[1..20] of string;
     end;
var s:strana; i:integer;
begin
for i:=1 to 20 do
begin
with s do
begin
writeln('ÑòðГ*Г*Г* #',i);
write('ГЌГ*çâГ*Г*ГЁГҐ : ');
readln(s.x[i]);
write('Г—Г*Г±ГІГј Г±ГўГҐГІГ*: ');
readln(s.y[i]);
end;
end;
 
writeln('ÑòðГ*Г*Г» Г*Г*õîäÿùèåñÿ Гў Àôðèêå: ');
for i:=1 to 20 do
if (s.y[i]='ÀôðèêГ*') then writeln(s.x[i]);
 
writeln('ÑòðГ*Г*Г» Г*Г*õîäÿùèåñÿ Гў Àçèè: ');
for i:=1 to 20 do
if (s.y[i]='Àçèÿ') then writeln(s.x[i]);
end.
1
anydevelop
168 / 49 / 8
Регистрация: 20.10.2011
Сообщений: 232
13.01.2012, 19:03 #3
Первая задача:
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
program strany;
 
var
    countries: array[1..20, 1..2] of String;
    i: Integer;
    ans: Boolean;
 
begin
    ans := False;
    writeln('Введите страны и континенты, по слову в строке (первая строка - страна, вторая - её континент, третья - другая страна и т. д.):');
    for i:=1 to 20 do
    begin
        readln(countries[i, 1]);
        readln(countries[i, 2]);
        if (countries[i, 2] = 'Africa') or (countries[i, 2] = 'Asia') or (countries[i, 2] = 'Африка') or (countries[i, 2] = 'Азия') then
            ans := True;
        readln;
    end;
    writeln('');
    if ans = True then
    begin
        writeln('Вот африканские и азиатские страны:');
        for i:=1 to 20 do
        begin
            if (countries[i, 2] = 'Africa') or (countries[i, 2] = 'Asia') or (countries[i, 2] = 'Африка') or (countries[i, 2] = 'Азия') then
                writeln(countries[i, 1]);
        end;
    end else
        writeln('Нет стран из Африки или Азии');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.01.2012, 19:03
Привет! Вот еще темы с ответами:

Даны три марки ЭВМ, определить, есть ли среди них Pentium-4 - Pascal ABC
Даны три марки ЭВМ, определить, есть ли среди них Pentium-4. Вывести соответствующее сообщение.

Даны 3 целых числа. определить, есть ли среди них нулевое значение. паскаль - Pascal ABC
Даны 3 целых числа. определить, есть ли среди них нулевое значение. Помогите плиз паскаль.

Даны N целых чисел. С помощью оператора Do Loop...While определить, каких среди них больше - четных или нечетных? - VBA
Даны N целых чисел. С помощью оператора Do Loop...While определить, каких среди них больше - четных или нечетных?

Даны номерные знаки трех автомашин.Определить, есть ли среди них знак "МНЗ 2754" - Pascal ABC
1)Даны номерные знаки трех автомашин.Определить, есть ли среди них знак "МНЗ 2754" и напечатать об этом сообщение Помогите кто может,а...


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

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

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