Помогите срочно пожалуйста...

[LoginOFF]

нужно написать вот такую программку:
дан список из 20 студентов в такой форме:Фамилия (факультет).
надо вывести саммую длинную фамилию в заданном факультете.
пожалуйсто, кто может, помогите... экзамен завалил сёдня, а завтра уже пересдача..... нужно сделать на С или фортране.. лучше на фортране...
бальшое спасибо...

[Darkcat]

Знал бы я Фортран... На Паскале могу написать за 5 минут. Алгоритм тоже нарисовать не проблема...

[Raystlin]

Ага, с ЯВУ не дружим?

[fenec]

гык..., я недавно сдал экзамен по фортрану
*но если чесно, сейчас лень думать...

[Михаил-iver]

Да... на фортране сложновато(плохо я его знаю). На Паскале(Дельфи) вроде можно.

[Aregus]

#include <iostream>
#include <string.h>


void main ( )
{
using namespace std;

int i,m,im,k;
char c[20][20];
for (i=0; i<20; i++)
cin >> c;
m=0;
for (i=0; i<20; i++)
{
k=strlen(c);
if (k>m)
{
im=i;
m=k;
}
}
cout << c[im] <<endl<< im+1 ;
cin >> im;
}

[Новый папа]

А этот код точно выдает самую длинную фамилию на факультете или просто выбирает самую длинную из всех?

[Aregus]

А млин как всегда недочитал условие. =)))) Переделывать не буду так как лень. И так половие группы весь семестр делал инфу. И вообще я си не знаю. =)))) Прога элементарная, если вы этого не можете сделать то что вы потеряли на экзамене?

[Darkcat]

А этот код точно выдает самую длинную фамилию на факультете или просто выбирает самую длинную из всех?

Нет, но решаемо одним операндом сравнения.
if (fak=cf)
{
k=strlen(c);
if (k>m)
{
im=i;
m=k;
}
}
Типа того. Массив CF содержит название факультета студента, переменная fak - искомый факультет.

[Aregus]

Тогда, еще нужно забивать массив с группой, а это можно сделать (если список выглядит так: Пупукин(ггм)) Прочтеинем фамилии до ( затем прочетнием до ) фак. Элементарно, но лень =))

[LoginOFF]

respect2all
и большое спасибо... выручили миня..... сессия закрыта....

[Батька]

!!!!

[fenec]

Да... на фортране сложновато(плохо я его знаю). На Паскале(Дельфи) вроде можно.

фортран достаточно простой язык...
Aregus
либо я чето не совсем понимаю, либо это не вортран...
вот простейший исходник из фортрана:

!задание: Дана текстовая строка длинной 40 символов, состоящая из цифр, букв лат. алфавита
!и спец. символов. Осоществить сортировку символов в строке: в начале разместить цифры, затем
!буквы лат. алфавита, а затем спецсимволы.
program zad3
character str1*(40),str2*(40),buf*(1)
integer k
print *,'enter the text'
read 100,str1
do i=1,40
if ((str1(i:i).ge.'0').and.(str1(i:i).le.'9')) then
k=k+1
str2(k:k)=str1(i:i)
endif
enddo
do i=1,40
if ((str1(i:i).ge.'A').and.(str1(i:i).le.'Z')) then
k=k+1
str2(k:k)=str1(i:i)
endif
if ((str1(i:i).ge.'a').and.(str1(i:i).le.'z')) then
k=k+1
str2(k:k)=str1(i:i)
endif
enddo
do i=1,40
if ((str1(i:i).lt.'0').or.(str1(i:i).gt.'9')) then
if ((str1(i:i).lt.'A').or.(str1(i:i).gt.'Z')) then
if ((str1(i:i).gt.'z').or.(str1(i:i).lt.'a')) then
k=k+1
str2(k:k)=str1(i:i)
endif
endif
endif
enddo
print *,str2
100 format (a)
end program zad3

[Aregus]

флип, это си. А фортран до твоего поста не видел. Вобщето уровень этих прог- ниже плинтуса. Так что давайте закроем тему. ЗЫ: очень рад за афтара, мне вот ещё матан сдавать.

[Darkcat]

Дурдом для математиков. Один бегает с воплями:
- Я вас щас проинтегрирую, я вас щас продифференцирую!
Все от него шарахаются, кроме одного. Первый к нему подбегает:
- А ты чего меня не боишься?
- А я Е в степени Х...