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

[Kupe48]

короче мне дали сегодня олимпиаду по информатике и я ее должен до завтра решить, я хз как написать ее потомучто паскаль знаю очень слабо,писал только программы для уравнений простеньких а как это зделать незнаю, помогите плиз

помогите решить задачу пожалуста(((

Задача 2 Написать программу печати таблицы умножения в виде квадрата 10*10 (на
пересечении соответствующих строк и столбцов печатается произведение 2-х множителей)
1 2 3 4....
2 4 6 8...
3 6 9 12 ...

задача 3: Зашифровать заданный текст (не более 255 символов), используя один перемешаннай алфавит, полученный случайной перестановкой букв исходного алфавита.
АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ
ЕЖЧБПКЛАОТДУГЦЯЙХЫВЪЮИФСЩНЬЭЗШРМ

задача 4: Решить ребус Три+два=пять (найти количество решений,напечатать решения, разные буквы-разные цифры)

или вот что нибудь из этого

[Блуд]

№2
не знаю на каком языке, C++:
UP:Паскаль,заметил,ну тут просто,переделаешь

#include <iostream.h>
using namespace std;
int main(){


for (int i=1;i<=9;i++){
 for (int j=1;j<=9;j++){
	 cout<<i*j<<" ";
}
 cout<<endl;
}
system("pause");
}

не ровно только

[GetMax]

Задача №2. На паскале.

Var
   i,j:Byte;
Begin
   j:=1;
   Repeat
      For i:=1 to 10 do
      Begin
         Write(i*j:3)
      End;
      Writeln;
       Inc(j)
  Until j > 10;
   Readln
End.

[Kupe48]

спасибо большое. а 1 задачу как решать?)

[_-Re@l-_]

Записями...Вот так:

type
       pupil = packed record
       Name,Fam,Addr:String;
end;

var
     A:array[1..30] of pupil;
     i:Integer; 
     N,F:String;
begin
        for i:=1 to 30 do
        begin
                write('Введите фамилию:');
                readln(A[i].Fam);
                write('Введите имя:');
                readln(A[i].Name);
                write('Введите адрес:');
                readln(A[i].Addr);
        end;
        Write('Введите фамилию для поиска:');
        Readln(F);
        Write('Введите имя для поиска:');
        Readln(N);
        For I:=1 To 30 Do
        Begin
                If (A[i].Fam = F) and (A[i].Name = N) Then
                Begin
                        Writeln('Адрес:',A[i].Addr);
                        Break;
                End;
        End;
        Readln;
End.

P.S. Работоспособность кода не проверял.
P.P.S.

Сообщений: 1,111

Неплохо?

[Kupe48]

ну да мне и нужен исходник, щас посмотрю спс всем кто помогает)

паскаль подчеркивает Break; пишет unknown identifier

[_-Re@l-_]

паскаль подчеркивает Break; пишет unknown identifier

А у тебя какой паскаль? Не может такого быть чтобы он не знал break. Это стандартная директива.

[Kupe48]

вот 7.1 пишет что незнает а 7.0 вроде пашет, но он у мя русский не отображает...

[Stilet]

Тогда перепиши:

        For I:=1 To 30 Do
        Begin
                If (A[i].Fam = F) and (A[i].Name = N) Then
                Begin
                        Writeln('Адрес:',A[i].Addr);
                        Readln;Halt;
                End;
        End;
        Readln;

И кстати русский он не не понимает, просто ты драйвер клавиатуры для ДОС к нему не прикрутил.

[Kupe48]

ыыыыыыыыыыыыы